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 |
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) |