Mercurial > emacs
changeset 110217:5c9d7f960c31
gnus-start.el (gnus-activate-group): Take an optional parameter to say that you don't want to call gnus-request-group with don-check, but do check the reponse. This is for virtual groups only.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 06 Sep 2010 00:15:13 +0000 |
| parents | 6f3cc5774150 |
| children | f9aca84de985 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-start.el |
| diffstat | 2 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Mon Sep 06 00:10:55 2010 +0000 +++ b/lisp/gnus/ChangeLog Mon Sep 06 00:15:13 2010 +0000 @@ -1,5 +1,9 @@ 2010-09-05 Lars Magne Ingebrigtsen <larsi@gnus.org> + * gnus-start.el (gnus-activate-group): Take an optional parameter to + say that you don't want to call gnus-request-group with don-check, but + do check the reponse. This is for virtual groups only. + * nnimap.el (nnimap-request-list): Servers may return \NoSelect case-insensitively. (nnimap-debug): Removed.
--- a/lisp/gnus/gnus-start.el Mon Sep 06 00:10:55 2010 +0000 +++ b/lisp/gnus/gnus-start.el Mon Sep 06 00:15:13 2010 +0000 @@ -1526,7 +1526,8 @@ (when (> (cdr cache-active) (cdr active)) (setcdr active (cdr cache-active)))))))) -(defun gnus-activate-group (group &optional scan dont-check method) +(defun gnus-activate-group (group &optional scan dont-check method + dont-sub-check) "Check whether a group has been activated or not. If SCAN, request a scan of that group as well." (let ((method (or method (inline (gnus-find-method-for-group group)))) @@ -1541,9 +1542,11 @@ (gnus-request-scan group method)) t) (if (or debug-on-error debug-on-quit) - (inline (gnus-request-group group dont-check method)) + (inline (gnus-request-group group (or dont-sub-check dont-check) + method)) (condition-case nil - (inline (gnus-request-group group dont-check method)) + (inline (gnus-request-group group (or dont-sub-check dont-check) + method)) ;;(error nil) (quit (message "Quit activating %s" group) @@ -1796,7 +1799,7 @@ (gnus-read-active-file-1 method nil)) (t (dolist (info infos) - (gnus-activate-group (gnus-info-group info) nil t method)))))) + (gnus-activate-group (gnus-info-group info) nil nil method t)))))) ;; Create a hash table out of the newsrc alist. The `car's of the ;; alist elements are used as keys.