[Emacs-diffs] /srv/bzr/emacs/trunk r101626: gnus-sum.el (gnus-auto-center-group): Transform into a defcustom.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101626
author: Gnus developers
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-26 12:47:09 +0000
message:
  gnus-sum.el (gnus-auto-center-group): Transform into a defcustom.
  gnus.el (gnus-group-fast-parameter): Return the last matching parameter 
instead of the first matching parameter.
  auth-source.el (auth-source-user-or-password): Query for password, although 
there are no existing auth sources.
  auth-source.el (auth-source-user-or-password): Use the existing auth sources, 
if any, for creation.
modified:
  doc/misc/gnus-news.texi
  lisp/gnus/auth-source.el
  lisp/gnus/gnus-sum.el
  lisp/gnus/gnus.el

=== modified file 'doc/misc/gnus-news.texi'
--- a/doc/misc/gnus-news.texi   2010-09-26 04:03:19 +0000
+++ b/doc/misc/gnus-news.texi   2010-09-26 12:47:09 +0000
@@ -103,6 +103,12 @@
 @c ************************
 
 @itemize @bullet
+
address@hidden
+Symbols like @code{gcc-self} now has the same presedence rules in
address@hidden as other ``real'' variables: The last match
+wins instead of the first match.
+
 @item
 Old intermediate incoming mail files (@file{Incoming*}) are deleted
 after a couple of days, not immediately.  @xref{Mail Source

=== modified file 'lisp/gnus/auth-source.el'
--- a/lisp/gnus/auth-source.el  2010-09-18 10:02:19 +0000
+++ b/lisp/gnus/auth-source.el  2010-09-26 12:47:09 +0000
@@ -430,8 +430,12 @@
          (and found (return found)))
 
        ;; We haven't found something, so we will create it interactively.
-       (when (and (not found) choices create-missing)
-         (setq found (apply 'auth-source-create mode (car choices) search)))
+       (when (and (not found) create-missing)
+         (setq found (apply 'auth-source-create
+                            mode (if choices
+                                     (car choices)
+                                   (car auth-sources))
+                            search)))
 
        ;; Cache the result.
        (when found

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2010-09-26 04:03:19 +0000
+++ b/lisp/gnus/gnus-sum.el     2010-09-26 12:47:09 +0000
@@ -451,8 +451,10 @@
                 (integer :tag "height")
                 (sexp :menu-tag "both" t)))
 
-(defvar gnus-auto-center-group t
-  "*If non-nil, always center the group buffer.")
+(defcustom gnus-auto-center-group t
+  "If non-nil, always center the group buffer."
+  :group 'gnus-summary-maneuvering
+  :type 'boolean)
 
 (defcustom gnus-show-all-headers nil
   "*If non-nil, don't hide any headers."

=== modified file 'lisp/gnus/gnus.el'
--- a/lisp/gnus/gnus.el 2010-09-26 04:03:19 +0000
+++ b/lisp/gnus/gnus.el 2010-09-26 12:47:09 +0000
@@ -3862,9 +3862,7 @@
              ;; Expand if necessary.
              (if (and (stringp result) (string-match "\\\\[0-9&]" result))
                  (setq result (gnus-expand-group-parameter (car head)
-                                                           result group)))
-             ;; Exit the loop early.
-             (setq tail nil))))
+                                                           result group))))))
        ;; Done.
        result))))