changeset 110253:f81515cea5ce

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 c3d46c9f8007
children 8b5fccbe534c
files lisp/gnus/ChangeLog lisp/gnus/nnml.el
diffstat 2 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Mon Sep 06 22:42:29 2010 +0000
+++ b/lisp/gnus/ChangeLog	Mon Sep 06 23:54:07 2010 +0000
@@ -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.
--- 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)