719 |
it where sucessful authenticating itself to the server, nil otherwise. |
it where sucessful authenticating itself to the server, nil otherwise. |
720 |
Returns t if login was successful, nil otherwise." |
Returns t if login was successful, nil otherwise." |
721 |
(with-current-buffer buffer |
(with-current-buffer buffer |
722 |
(make-variable-buffer-local 'imap-username) |
(make-local-variable 'imap-username) |
723 |
(make-variable-buffer-local 'imap-password) |
(make-local-variable 'imap-password) |
724 |
(let (user passwd ret) |
(let (user passwd ret) |
725 |
;; (condition-case () |
;; (condition-case () |
726 |
(while (or (not user) (not passwd)) |
(while (or (not user) (not passwd)) |
887 |
(with-current-buffer (get-buffer-create buffer) |
(with-current-buffer (get-buffer-create buffer) |
888 |
(if (imap-opened buffer) |
(if (imap-opened buffer) |
889 |
(imap-close buffer)) |
(imap-close buffer)) |
890 |
(mapcar 'make-variable-buffer-local imap-local-variables) |
(mapcar 'make-local-variable imap-local-variables) |
891 |
(imap-disable-multibyte) |
(imap-disable-multibyte) |
892 |
(buffer-disable-undo) |
(buffer-disable-undo) |
893 |
(setq imap-server (or server imap-server)) |
(setq imap-server (or server imap-server)) |
957 |
(or (eq imap-state 'auth) |
(or (eq imap-state 'auth) |
958 |
(eq imap-state 'select) |
(eq imap-state 'select) |
959 |
(eq imap-state 'examine)) |
(eq imap-state 'examine)) |
960 |
(make-variable-buffer-local 'imap-username) |
(make-local-variable 'imap-username) |
961 |
(make-variable-buffer-local 'imap-password) |
(make-local-variable 'imap-password) |
962 |
(if user (setq imap-username user)) |
(if user (setq imap-username user)) |
963 |
(if passwd (setq imap-password passwd)) |
(if passwd (setq imap-password passwd)) |
964 |
(if (funcall (nth 2 (assq imap-auth imap-authenticator-alist)) buffer) |
(if (funcall (nth 2 (assq imap-auth imap-authenticator-alist)) buffer) |