emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r102036: gnus-group.el (gnus-group-un


From: Katsumi Yamaoka
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r102036: gnus-group.el (gnus-group-unsubscribe-group): Fix args passed to gnus-group-completing-read.
Date: Fri, 22 Oct 2010 01:39:13 +0000
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 102036
author: Gnus developers
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-10-22 01:39:13 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-group.el
  lisp/gnus/gnus-start.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-21 22:12:01 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-22 01:39:13 +0000
@@ -1,3 +1,13 @@
+2010-10-22  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
+
+       * gnus-group.el (gnus-group-unsubscribe-group): Fix args passed to
+       gnus-group-completing-read.
+
 2010-10-21  Lars Magne Ingebrigtsen  <address@hidden>
 
        * message.el (message-mode-map): Don't bind M-; to comment region, to

=== modified file 'lisp/gnus/gnus-group.el'
--- a/lisp/gnus/gnus-group.el   2010-10-18 22:09:28 +0000
+++ b/lisp/gnus/gnus-group.el   2010-10-22 01:39:13 +0000
@@ -3676,7 +3676,7 @@
 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)

=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el   2010-10-07 22:26:11 +0000
+++ b/lisp/gnus/gnus-start.el   2010-10-22 01:39:13 +0000
@@ -2090,7 +2090,7 @@
          (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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]