(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)
(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)))