[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/imap.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/imap.el [emacs-unicode-2] |
Date: |
Fri, 22 Oct 2004 06:22:05 -0400 |
Index: emacs/lisp/gnus/imap.el
diff -c emacs/lisp/gnus/imap.el:1.10.4.5 emacs/lisp/gnus/imap.el:1.10.4.6
*** emacs/lisp/gnus/imap.el:1.10.4.5 Thu Oct 14 08:50:06 2004
--- emacs/lisp/gnus/imap.el Fri Oct 22 10:13:33 2004
***************
*** 270,275 ****
--- 270,280 ----
: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,835 ****
(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)))
(message "Login failed...")
(setq passwd nil)
(setq imap-password nil)
--- 832,841 ----
(progn
(setq ret t
imap-username user)
! (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)