# HG changeset patch # User Katsumi Yamaoka # Date 1283817247 0 # Node ID f81515cea5ce5c42804819913a93ed3eb2466289 # Parent c3d46c9f8007dba80040c94791e8d134529b9fdc nnml.el (nnml-save-nov): Remove some debugging-related messages. diff -r c3d46c9f8007 -r f81515cea5ce lisp/gnus/ChangeLog --- 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 + + * nnml.el (nnml-save-nov): Remove some debugging-related messages. + 2010-09-06 Katsumi Yamaoka * pop3.el: Require cl when compiling. diff -r c3d46c9f8007 -r f81515cea5ce lisp/gnus/nnml.el --- 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)