Mercurial > emacs

diff lisp/gnus/nnml.el @ 110253:f81515cea5ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
nnml.el (nnml-save-nov): Remove some debugging-related messages.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 06 Sep 2010 23:54:07 +0000
parents 8867a7812454
children f2e111723c3a
line wrap: on
line diff
--- a/lisp/gnus/nnml.el	Mon Sep 06 22:42:29 2010 +0000
+++ b/lisp/gnus/nnml.el	Mon Sep 06 23:54:07 2010 +0000
@@ -784,7 +784,6 @@
 (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 @@
 	(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 @@
 	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 @@
 			       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)