/[emacs]/emacs/lisp/gnus/nnfolder.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnfolder.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by teirllm, Sun Nov 14 23:07:12 2004 UTC revision 1.20 by miles, Tue Dec 7 21:56:38 2004 UTC
# Line 1  Line 1 
1  ;;; nnfolder.el --- mail folder access for Gnus  ;;; nnfolder.el --- mail folder access for Gnus
2  ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003  ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
3  ;;        Free Software Foundation, Inc.  ;;        Free Software Foundation, Inc.
4    
5  ;; Author: Simon Josefsson <simon@josefsson.org> (adding MARKS)  ;; Author: Simon Josefsson <simon@josefsson.org> (adding MARKS)
# Line 370  the group.  Then the marks file will be Line 370  the group.  Then the marks file will be
370  (deffoo nnfolder-request-create-group (group &optional server args)  (deffoo nnfolder-request-create-group (group &optional server args)
371    (nnfolder-possibly-change-group nil server)    (nnfolder-possibly-change-group nil server)
372    (nnmail-activate 'nnfolder)    (nnmail-activate 'nnfolder)
373    (when group    (when (and group
374      (unless (assoc group nnfolder-group-alist)               (not (assoc group nnfolder-group-alist)))
375        (push (list group (cons 1 0)) nnfolder-group-alist)      (push (list group (cons 1 0)) nnfolder-group-alist)
376        (nnfolder-save-active nnfolder-group-alist nnfolder-active-file)      (nnfolder-save-active nnfolder-group-alist nnfolder-active-file)
377        (save-current-buffer
378        (nnfolder-read-folder group)))        (nnfolder-read-folder group)))
379    t)    t)
380    

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26