*** empty log message ***

[gnus] / lisp / nnfolder.el

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index ccc2f92..81c2b90 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -517,6 +517,7 @@ time saver for large mailboxes.")
              (unless (file-exists-p file)
                (gnus-make-directory (file-name-directory file))
                (nnmail-write-region 1 1 file t 'nomesg))
+             (setq nnfolder-current-group group)
              (setq nnfolder-current-buffer
                    (nnfolder-read-folder file scanning))
              (when nnfolder-current-buffer