X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fnnml.el;h=6d5a8d20d2a5ceaa4424dcdbfa4e009df1235356;hp=5a2473a283a6a190b5e9af334c59725327ab61bb;hb=d639251a1e82f39fb5ae3bddf07ba00ac4a5e3ec;hpb=efe56233fd3a3fbf780ec6d19dfe99d7d0a4cba4

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 5a2473a28..6d5a8d20d 100644
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -824,6 +824,7 @@ 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))
@@ -833,7 +834,8 @@ 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)))))
+      (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist))))
+  (message "nnml saving nov...done"))
 
 ;;;###autoload
 (defun nnml-generate-nov-databases (&optional server)