From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 6 Sep 2010 23:54:07 +0000 (+0000)
Subject: nnml.el (nnml-save-nov): Remove some debugging-related messages.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~51
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5edc8186ce140d04a5293c8d7886883b8f1c0798;p=emacs.git

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

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)