From 12612ec9b50b93c2173efef4efc2573dafef48ec Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 22 Nov 2004 04:08:08 +0000 Subject: [PATCH] Synch to No Gnus 200411220407. --- lisp/ChangeLog | 4 ++++ lisp/nnfolder.el | 11 ++++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 53867eb..c2ff23c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-11-22 Marek Martin (tiny change) + + * nnfolder.el (nnfolder-request-create-group): Save current buffer. + 2004-11-19 Lars Magne Ingebrigtsen * dns.el (query-dns): Use sit-for to time instead of diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index e810732..dfa7a16 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -1,5 +1,5 @@ ;;; nnfolder.el --- mail folder access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Simon Josefsson (adding MARKS) @@ -371,10 +371,11 @@ the group. Then the marks file will be regenerated properly by Gnus.") (deffoo nnfolder-request-create-group (group &optional server args) (nnfolder-possibly-change-group nil server) (nnmail-activate 'nnfolder) - (when group - (unless (assoc group nnfolder-group-alist) - (push (list group (cons 1 0)) nnfolder-group-alist) - (nnfolder-save-active nnfolder-group-alist nnfolder-active-file) + (when (and group + (not (assoc group nnfolder-group-alist))) + (push (list group (cons 1 0)) nnfolder-group-alist) + (nnfolder-save-active nnfolder-group-alist nnfolder-active-file) + (save-current-buffer (nnfolder-read-folder group))) t) -- 1.7.10.4