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) |
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 |
|
|