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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5f9e1347787ad485af905ad28a5696c3076e0d21..14ab0eb2bbb4848e52a1d6dbc35708bf3ed631ad 100644 (file)
--- 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 1c9513d21916c279c0ea23e342dd1b32f3edf4c7..6d676bb85144eaadbabe1405d320c3f56a3b8993 100644 (file)
--- 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)