2001-07-27 12:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / nnfolder.el

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 1f58199..ceedda3 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -447,8 +447,9 @@ all.  This may very well take some time.")
       (goto-char (point-min))
       (when (looking-at "X-From-Line: ")
        (replace-match "From "))
-      (let ((nnmail-file-coding-system nnfolder-active-file-coding-system))
-       (with-temp-buffer
+      (with-temp-buffer
+       (let ((nnmail-file-coding-system nnfolder-active-file-coding-system)
+             (nntp-server-buffer (current-buffer)))
          (nnmail-find-file nnfolder-active-file)
          (setq nnfolder-group-alist (nnmail-parse-active))))
       (save-excursion