From 3ce913e00f84bb1ef9bad720d5065c1b3c52ffa0 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Tue, 10 Jul 2001 17:49:44 +0000 Subject: [PATCH] 2001-07-09 23:00:00 ShengHuo ZHU * gnus-msg.el (gnus-bug): Erase buffer. * nnfolder.el (nnfolder-possibly-change-group): Don't create group. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-msg.el | 1 + lisp/nnfolder.el | 18 +++++++----------- 3 files changed, 14 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8f7b97ebc..d81d8ae7c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-07-09 23:00:00 ShengHuo ZHU + + * 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 * mm-decode.el (mm-attachment-override-p): Fix typo. diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 51dfb9e4d..c6f0a4f5c 100644 --- 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 95b914217..da60f7921 100644 --- 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) -- 2.34.1