changeset 110585:677b6dea1d61

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.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 26 Sep 2010 12:47:09 +0000
parents 9d94d76ce611
children 867180d035b0
files doc/misc/gnus-news.texi lisp/gnus/auth-source.el lisp/gnus/gnus-sum.el lisp/gnus/gnus.el
diffstat 4 files changed, 17 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/doc/misc/gnus-news.texi	Sun Sep 26 01:06:28 2010 -0500
+++ b/doc/misc/gnus-news.texi	Sun Sep 26 12:47:09 2010 +0000
@@ -103,6 +103,12 @@
 @c ************************
 
 @itemize @bullet
+
+@item
+Symbols like @code{gcc-self} now has the same presedence rules in
+@code{gnus-parameters} 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
--- a/lisp/gnus/auth-source.el	Sun Sep 26 01:06:28 2010 -0500
+++ b/lisp/gnus/auth-source.el	Sun Sep 26 12:47:09 2010 +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
--- a/lisp/gnus/gnus-sum.el	Sun Sep 26 01:06:28 2010 -0500
+++ b/lisp/gnus/gnus-sum.el	Sun Sep 26 12:47:09 2010 +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."
--- a/lisp/gnus/gnus.el	Sun Sep 26 01:06:28 2010 -0500
+++ b/lisp/gnus/gnus.el	Sun Sep 26 12:47:09 2010 +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))))