From 5edc8186ce140d04a5293c8d7886883b8f1c0798 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 6 Sep 2010 23:54:07 +0000 Subject: [PATCH] nnml.el (nnml-save-nov): Remove some debugging-related messages. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/nnml.el | 8 ++------ 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 + + * nnml.el (nnml-save-nov): Remove some debugging-related messages. + 2010-09-06 Katsumi Yamaoka * 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) -- 2.39.2