X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnmbox.el;h=c3a59318a700576da489c9bc09eeccf4c409189c;hb=7d3cebb22d43e3ae26e7b1ab3b40c12ec80be154;hp=7477a31d22b39f71ebb361db3317979a87a3e8e8;hpb=49d38b41c190eaab2cb34294fac7302a9c9ea353;p=elisp%2Fgnus.git-

diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el
index 7477a31..c3a5931 100644
--- a/lisp/nnmbox.el
+++ b/lisp/nnmbox.el
@@ -190,9 +190,8 @@
 		       (car active) (cdr active) group)))))
 
 (defun nnmbox-save-buffer ()
-  (let* ((coding-system-for-write (or nnmbox-file-coding-system-for-write
-				      nnmbox-file-coding-system))
-	 (output-coding-system coding-system-for-write))
+  (let ((coding-system-for-write (or nnmbox-file-coding-system-for-write
+				     nnmbox-file-coding-system)))
     (save-buffer)))
 
 (defun nnmbox-save-active (group-alist active-file)
@@ -333,7 +332,10 @@
        (while (re-search-backward "^X-Gnus-Newsgroup: " nil t)
 	 (delete-region (point) (progn (forward-line 1) (point))))
        (when nnmail-cache-accepted-message-ids
-	 (nnmail-cache-insert (nnmail-fetch-field "message-id") group))
+	 (nnmail-cache-insert (nnmail-fetch-field "message-id") 
+			      group
+			      (nnmail-fetch-field "subject")
+			      (nnmail-fetch-field "from")))
        (setq result (if (stringp group)
 			(list (cons group (nnmbox-active-number group)))
 		      (nnmail-article-group 'nnmbox-active-number)))