[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101368: gnus-start.el (gnus-activate
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101368: 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. |
Date: |
Mon, 06 Sep 2010 00:15:13 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101368
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2010-09-06 00:15:13 +0000
message:
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.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-start.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-09-06 00:06:55 +0000
+++ b/lisp/gnus/ChangeLog 2010-09-06 00:15:13 +0000
@@ -1,5 +1,9 @@
2010-09-05 Lars Magne Ingebrigtsen <address@hidden>
+ * 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.
=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el 2010-09-05 23:20:25 +0000
+++ b/lisp/gnus/gnus-start.el 2010-09-06 00:15:13 +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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101368: 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.,
Katsumi Yamaoka <=