X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fnnml.el;h=ed631eb806d870c88b6a1f4c2f92ae92de3a4c1c;hp=dd6ba47a263155f250c754ddd8b5e29a1d7480cb;hb=507b285173baa14c25dc095f5c65d05a5474a8fe;hpb=62b6726bbc56e1dd0367a63b8a27d5f7b8c3ddff

diff --git a/lisp/nnml.el b/lisp/nnml.el
index dd6ba47a2..ed631eb80 100644
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -313,7 +313,6 @@ all.  This may very well take some time.")
   (nnml-possibly-change-directory group server)
   (nnmail-check-syntax)
   (let (result)
-    (nnmail-cache-insert (nnmail-fetch-field "message-id"))
     (if (stringp group)
 	(and
 	 (nnmail-activate 'nnml)
@@ -328,7 +327,6 @@ all.  This may very well take some time.")
 			  (nnmail-article-group 'nnml-active-number))))
        (when last
 	 (nnmail-save-active nnml-group-alist nnml-active-file)
-	 (nnmail-cache-close)
 	 (nnml-save-nov))))
     result))
 
@@ -682,11 +680,11 @@ all.  This may very well take some time.")
   (nnml-open-server (or (nnoo-current-server 'nnml) ""))
   (setq nnml-directory (expand-file-name nnml-directory))
   ;; Recurse down the directories.
-  (nnml-generate-nov-databases-1 nnml-directory)
+  (nnml-generate-nov-databases-1 nnml-directory nil t)
   ;; Save the active file.
   (nnmail-save-active nnml-group-alist nnml-active-file))
 
-(defun nnml-generate-nov-databases-1 (dir &optional seen)
+(defun nnml-generate-nov-databases-1 (dir &optional seen no-active)
   "Regenerate the NOV database in DIR."
   (interactive "DRegenerate NOV in: ")
   (setq dir (file-name-as-directory dir))
@@ -706,7 +704,9 @@ all.  This may very well take some time.")
       (when files
 	(funcall nnml-generate-active-function dir)
 	;; Generate the nov file.
-	(nnml-generate-nov-file dir files)))))
+	(nnml-generate-nov-file dir files)
+	(unless no-active
+	  (nnmail-save-active nnml-group-alist nnml-active-file))))))
 
 (defvar files)
 (defun nnml-generate-active-info (dir)