procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gnus-group.el (gnus-group-unsubscribe-group): Fix args passed to gnus-group-completing-read.

Browse source 
gnus-start.el (gnus-read-active-file-1): Don't add method to gnus-have-read-active-file if it's already been in.
This commit is contained in:
Gnus developers 2010-10-22 01:39:13 +00:00 • committed by Katsumi Yamaoka
parent d806c87222
commit e0da801ae4
3 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/ChangeLog
View file

@ -1,3 +1,13 @@
2010-10-22 Katsumi Yamaoka <yamaoka@jpl.org>
* 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 <tromey@redhat.com>
* gnus-group.el (gnus-group-unsubscribe-group): Fix args passed to
gnus-group-completing-read.
2010-10-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
* message.el (message-mode-map): Don't bind M-; to comment region, to

2
lisp/gnus/gnus-group.el
View file

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

2
lisp/gnus/gnus-start.el
View file

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