Mercurial > emacs
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))))