Mercurial > emacs
diff lisp/gnus/imap.el @ 57581:645f020dcc8a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-626
Merge from gnus--rel--5.10
Patches applied:
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-54
Update from CVS
2004-10-18 Reiner Steib <Reiner.Steib@gmx.de>
* lisp/gnus/mml.el (mml-preview): Use `pop-to-buffer'.
* lisp/gnus/message.el (message-goto-mail-followup-to): Insert after "To".
(message-carefully-insert-headers): Add comment.
* lisp/gnus/gnus-sum.el (gnus-summary-make-menu-bar): Add help texts.
* lisp/gnus/gnus-art.el (gnus-button-alist): Improve
`gnus-button-handle-library' entry.
* lisp/gnus/gnus-art.el (gnus-button-alist): Fixed regexp for manual links.
* lisp/gnus/gnus-group.el (gnus-group-get-new-news-this-group): Added
doc-string.
* lisp/gnus/gnus-start.el (gnus-activate-group): Added doc-string.
* lisp/gnus/gnus-art.el (gnus-button-handle-man, gnus-button-alist): Try to
handle manual section.
* lisp/gnus/imap.el (imap-store-password): New variable.
(imap-interactive-login): Use it.
Suggested by Mark Plaksin <happy@mcplaksin.org>.
* lisp/gnus/gnus-art.el (gnus-button-alist, gnus-header-button-alist): Allow
/ in mailto URLs.
* lisp/gnus/spam.el (spam-directory): Derive from `gnus-directory'.
* lisp/gnus/gnus-sum.el (gnus-pick-line-number): Add autoload.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 18 Oct 2004 22:23:44 +0000 |
| parents | 2d9a1d1ac73d |
| children | 760f3e227fea f3ec05478165 |
line wrap: on
line diff
--- a/lisp/gnus/imap.el Mon Oct 18 20:45:52 2004 +0000 +++ b/lisp/gnus/imap.el Mon Oct 18 22:23:44 2004 +0000 @@ -270,6 +270,11 @@ :type 'number :group 'imap) +(defcustom imap-store-password nil + "If non-nil, store session password without promting." + :group 'imap + :type 'boolean) + ;; Various variables. (defvar imap-fetch-data-hook nil @@ -827,9 +832,10 @@ (progn (setq ret t imap-username user) - (if (and (not imap-password) - (y-or-n-p "Store password for this session? ")) - (setq imap-password passwd))) + (when (and (not imap-password) + (or imap-store-password + (y-or-n-p "Store password for this session? "))) + (setq imap-password passwd))) (message "Login failed...") (setq passwd nil) (setq imap-password nil)