nnml.el (nnml-save-nov): Remove some debugging-related messages.

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)