[Emacs-diffs] Changes to emacs/lisp/gnus/imap.el

[Miles Bader]

Index: emacs/lisp/gnus/imap.el
diff -c emacs/lisp/gnus/imap.el:1.15 emacs/lisp/gnus/imap.el:1.16
*** emacs/lisp/gnus/imap.el:1.15        Tue Oct 12 02:25:56 2004
--- emacs/lisp/gnus/imap.el     Mon Oct 18 22:23:43 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)