From e0da801ae4b5791480bce39e1d4337e02f3bcb7a Mon Sep 17 00:00:00 2001 From: Gnus developers Date: Fri, 22 Oct 2010 01:39:13 +0000 Subject: [PATCH] gnus-group.el (gnus-group-unsubscribe-group): Fix args passed to gnus-group-completing-read. gnus-start.el (gnus-read-active-file-1): Don't add method to gnus-have-read-active-file if it's already been in. --- lisp/gnus/ChangeLog | 10 ++++++++++ lisp/gnus/gnus-group.el | 2 +- lisp/gnus/gnus-start.el | 2 +- 3 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 0e41b71b2ce..e6decde4b6f 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,13 @@ +2010-10-22 Katsumi Yamaoka + + * gnus-start.el (gnus-read-active-file-1): Don't add method to + gnus-have-read-active-file if it's already been in. + +2010-10-22 Tom Tromey + + * gnus-group.el (gnus-group-unsubscribe-group): Fix args passed to + gnus-group-completing-read. + 2010-10-21 Lars Magne Ingebrigtsen * message.el (message-mode-map): Don't bind M-; to comment region, to diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 6cd8f75d94c..7152c18d145 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -3676,7 +3676,7 @@ If given numerical prefix, toggle the N next groups." Killed newsgroups are subscribed. If SILENT, don't try to update the group line." (interactive (list (gnus-group-completing-read - nil (gnus-read-active-file-p)))) + nil nil (gnus-read-active-file-p)))) (let ((newsrc (gnus-group-entry group))) (cond ((string-match "^[ \t]*$" group) diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 26da22e478a..dafcd642727 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -2090,7 +2090,7 @@ If SCAN, request a scan of that group as well." (gnus-message 5 "%s" mesg) (gnus-active-to-gnus-format method gnus-active-hashtb nil t) ;; We mark this active file as read. - (push method gnus-have-read-active-file) + (add-to-list 'gnus-have-read-active-file method) (gnus-message 5 "%sdone" mesg))))))) (defun gnus-read-active-file-2 (groups method) -- 2.39.5