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.
@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
......
......@@ -430,8 +430,12 @@ MODE can be \"login\" or \"password\"."
(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
......
......@@ -451,8 +451,10 @@ and non-`vertical', do both horizontal and vertical recentering."
(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."
......
......@@ -3862,9 +3862,7 @@ The function `gnus-group-find-parameter' will do that for you."
;; 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))))
......
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