diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/nnml.el | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5f9e1347787..14ab0eb2bbb 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2010-09-06 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * nnml.el (nnml-save-nov): Remove some debugging-related messages. + 2010-09-06 Katsumi Yamaoka <yamaoka@jpl.org> * pop3.el: Require cl when compiling. diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el index 1c9513d2191..6d676bb8514 100644 --- a/lisp/gnus/nnml.el +++ b/lisp/gnus/nnml.el @@ -784,7 +784,6 @@ article number. This function is called narrowed to an article." (defvar nnml-incremental-nov-buffer-alist nil) (defun nnml-save-incremental-nov () - (message "nnml saving incremental nov...") (save-excursion (while nnml-incremental-nov-buffer-alist (when (buffer-name (cdar nnml-incremental-nov-buffer-alist)) @@ -795,8 +794,7 @@ article number. This function is called narrowed to an article." (set-buffer-modified-p nil) (kill-buffer (current-buffer))) (setq nnml-incremental-nov-buffer-alist - (cdr nnml-incremental-nov-buffer-alist)))) - (message "nnml saving incremental nov...done")) + (cdr nnml-incremental-nov-buffer-alist))))) (defun nnml-open-incremental-nov (group) (or (cdr (assoc group nnml-incremental-nov-buffer-alist)) @@ -863,7 +861,6 @@ article number. This function is called narrowed to an article." buffer))) (defun nnml-save-nov () - (message "nnml saving nov...") (save-excursion (while nnml-nov-buffer-alist (when (buffer-name (cdar nnml-nov-buffer-alist)) @@ -873,8 +870,7 @@ article number. This function is called narrowed to an article." nnml-nov-buffer-file-name nil 'nomesg)) (set-buffer-modified-p nil) (kill-buffer (current-buffer))) - (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist)))) - (message "nnml saving nov...done")) + (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist))))) ;;;###autoload (defun nnml-generate-nov-databases (&optional server) |