[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnfolder.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnfolder.el [lexbind] |
Date: |
Wed, 08 Dec 2004 19:35:35 -0500 |
Index: emacs/lisp/gnus/nnfolder.el
diff -c emacs/lisp/gnus/nnfolder.el:1.11.2.5
emacs/lisp/gnus/nnfolder.el:1.11.2.6
*** emacs/lisp/gnus/nnfolder.el:1.11.2.5 Wed Dec 8 23:31:40 2004
--- emacs/lisp/gnus/nnfolder.el Wed Dec 8 23:36:31 2004
***************
*** 1,5 ****
;;; nnfolder.el --- mail folder access for Gnus
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
;; Free Software Foundation, Inc.
;; Author: Simon Josefsson <address@hidden> (adding MARKS)
--- 1,5 ----
;;; nnfolder.el --- mail folder access for Gnus
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
;; Free Software Foundation, Inc.
;; Author: Simon Josefsson <address@hidden> (adding MARKS)
***************
*** 370,379 ****
(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)
(nnfolder-read-folder group)))
t)
--- 370,380 ----
(deffoo nnfolder-request-create-group (group &optional server args)
(nnfolder-possibly-change-group nil server)
(nnmail-activate 'nnfolder)
! (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)