/[emacs]/emacs/lisp/gnus/imap.el
ViewVC logotype

Diff of /emacs/lisp/gnus/imap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10.4.5 by miles, Thu Oct 14 08:50:06 2004 UTC revision 1.10.4.6 by miles, Fri Oct 22 10:13:33 2004 UTC
# Line 270  Shorter values mean quicker response, bu Line 270  Shorter values mean quicker response, bu
270    :type 'number    :type 'number
271    :group 'imap)    :group 'imap)
272    
273    (defcustom imap-store-password nil
274      "If non-nil, store session password without promting."
275      :group 'imap
276      :type 'boolean)
277    
278  ;; Various variables.  ;; Various variables.
279    
280  (defvar imap-fetch-data-hook nil  (defvar imap-fetch-data-hook nil
# Line 827  Returns t if login was successful, nil o Line 832  Returns t if login was successful, nil o
832                (progn                (progn
833                  (setq ret t                  (setq ret t
834                        imap-username user)                        imap-username user)
835                  (if (and (not imap-password)                  (when (and (not imap-password)
836                           (y-or-n-p "Store password for this session? "))                             (or imap-store-password
837                      (setq imap-password passwd)))                                 (y-or-n-p "Store password for this session? ")))
838                      (setq imap-password passwd)))
839              (message "Login failed...")              (message "Login failed...")
840              (setq passwd nil)              (setq passwd nil)
841              (setq imap-password nil)              (setq imap-password nil)

Legend:
Removed from v.1.10.4.5  
changed lines
  Added in v.1.10.4.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26