[Emacs-diffs] Changes to emacs/lisp/gnus/nnfolder.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/gnus/nnfolder.el
diff -c emacs/lisp/gnus/nnfolder.el:1.15.4.4 
emacs/lisp/gnus/nnfolder.el:1.15.4.5
*** emacs/lisp/gnus/nnfolder.el:1.15.4.4        Fri Nov 19 06:55:01 2004
--- emacs/lisp/gnus/nnfolder.el Wed Dec  8 05:02:25 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)