Commit 2d04f304 authored by Gnus developers's avatar Gnus developers Committed by Katsumi Yamaoka
Browse files

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.
parent 8af55556
...@@ -103,6 +103,12 @@ EasyPG is included in Emacs 23 and available separately as well. ...@@ -103,6 +103,12 @@ EasyPG is included in Emacs 23 and available separately as well.
@c ************************ @c ************************
@itemize @bullet @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 @item
Old intermediate incoming mail files (@file{Incoming*}) are deleted Old intermediate incoming mail files (@file{Incoming*}) are deleted
after a couple of days, not immediately. @xref{Mail Source after a couple of days, not immediately. @xref{Mail Source
......
...@@ -430,8 +430,12 @@ MODE can be \"login\" or \"password\"." ...@@ -430,8 +430,12 @@ MODE can be \"login\" or \"password\"."
(and found (return found))) (and found (return found)))
;; We haven't found something, so we will create it interactively. ;; We haven't found something, so we will create it interactively.
(when (and (not found) choices create-missing) (when (and (not found) create-missing)
(setq found (apply 'auth-source-create mode (car choices) search))) (setq found (apply 'auth-source-create
mode (if choices
(car choices)
(car auth-sources))
search)))
;; Cache the result. ;; Cache the result.
(when found (when found
......
...@@ -451,8 +451,10 @@ and non-`vertical', do both horizontal and vertical recentering." ...@@ -451,8 +451,10 @@ and non-`vertical', do both horizontal and vertical recentering."
(integer :tag "height") (integer :tag "height")
(sexp :menu-tag "both" t))) (sexp :menu-tag "both" t)))
(defvar gnus-auto-center-group t (defcustom gnus-auto-center-group t
"*If non-nil, always center the group buffer.") "If non-nil, always center the group buffer."
:group 'gnus-summary-maneuvering
:type 'boolean)
(defcustom gnus-show-all-headers nil (defcustom gnus-show-all-headers nil
"*If non-nil, don't hide any headers." "*If non-nil, don't hide any headers."
......
...@@ -3862,9 +3862,7 @@ The function `gnus-group-find-parameter' will do that for you." ...@@ -3862,9 +3862,7 @@ The function `gnus-group-find-parameter' will do that for you."
;; Expand if necessary. ;; Expand if necessary.
(if (and (stringp result) (string-match "\\\\[0-9&]" result)) (if (and (stringp result) (string-match "\\\\[0-9&]" result))
(setq result (gnus-expand-group-parameter (car head) (setq result (gnus-expand-group-parameter (car head)
result group))) result group))))))
;; Exit the loop early.
(setq tail nil))))
;; Done. ;; Done.
result)))) result))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment