2001-07-09 23:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-msg.el (gnus-bug): Erase buffer.

	* nnfolder.el (nnfolder-possibly-change-group): Don't create group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8f7b97e..d81d8ae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-07-09 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-bug): Erase buffer.
+
+       * nnfolder.el (nnfolder-possibly-change-group): Don't create group.
+
 2001-07-09 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-decode.el (mm-attachment-override-p): Fix typo.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 51dfb9e..c6f0a4f 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1017,6 +1017,7 @@ If YANK is non-nil, include the original article."
     (let (text)
       (save-excursion
        (set-buffer (gnus-get-buffer-create " *gnus environment info*"))
+        (erase-buf)
        (gnus-debug)
        (setq text (buffer-string)))
       (insert "<#part type=application/x-emacs-lisp disposition=inline description=\"User settings\">\n" text "\n<#/part>"))

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 95b9142..da60f79 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -636,17 +636,13 @@ deleted.  Point is left where the deleted region was."
     (setq nnfolder-current-buffer nil
          nnfolder-current-group nil))
   ;; Change group.
-  (when (and group
-            (not (equal group nnfolder-current-group)))
-    (let ((file-name-coding-system nnmail-pathname-coding-system))
-      (nnmail-activate 'nnfolder)
-      (when (and (not (assoc group nnfolder-group-alist))
-                (not (file-exists-p
-                      (nnfolder-group-pathname group))))
-       ;; The group doesn't exist, so we create a new entry for it.
-       (push (list group (cons 1 0)) nnfolder-group-alist)
-       (nnfolder-save-active nnfolder-group-alist nnfolder-active-file))
-
+  (let ((file-name-coding-system nnmail-pathname-coding-system))
+    (when (and group
+               (not (equal group nnfolder-current-group))
+               (progn
+                 (nnmail-activate 'nnfolder)
+                 (and (assoc group nnfolder-group-alist)
+                      (file-exists-p (nnfolder-group-pathname group)))))
       (if dont-check
          (setq nnfolder-current-group group
                nnfolder-current-buffer nil)