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) |
1751 |
;; |
;; |
1752 |
;; addr-adl = nstring |
;; addr-adl = nstring |
1753 |
;; ; Holds route from [RFC-822] route-addr if |
;; ; Holds route from [RFC-822] route-addr if |
1754 |
;; ; non-NIL |
;; ; non-nil |
1755 |
;; |
;; |
1756 |
;; addr-host = nstring |
;; addr-host = nstring |
1757 |
;; ; NIL indicates [RFC-822] group syntax. |
;; ; nil indicates [RFC-822] group syntax. |
1758 |
;; ; Otherwise, holds [RFC-822] domain name |
;; ; Otherwise, holds [RFC-822] domain name |
1759 |
;; |
;; |
1760 |
;; addr-mailbox = nstring |
;; addr-mailbox = nstring |
1761 |
;; ; NIL indicates end of [RFC-822] group; if |
;; ; nil indicates end of [RFC-822] group; if |
1762 |
;; ; non-NIL and addr-host is NIL, holds |
;; ; non-nil and addr-host is nil, holds |
1763 |
;; ; [RFC-822] group name. |
;; ; [RFC-822] group name. |
1764 |
;; ; Otherwise, holds [RFC-822] local-part |
;; ; Otherwise, holds [RFC-822] local-part |
1765 |
;; ; after removing [RFC-822] quoting |
;; ; after removing [RFC-822] quoting |
1766 |
;; |
;; |
1767 |
;; addr-name = nstring |
;; addr-name = nstring |
1768 |
;; ; If non-NIL, holds phrase from [RFC-822] |
;; ; If non-nil, holds phrase from [RFC-822] |
1769 |
;; ; mailbox after removing [RFC-822] quoting |
;; ; mailbox after removing [RFC-822] quoting |
1770 |
;; |
;; |
1771 |
|
|
2455 |
(push (imap-parse-nstring) body);; body-fld-desc |
(push (imap-parse-nstring) body);; body-fld-desc |
2456 |
(imap-forward) |
(imap-forward) |
2457 |
;; next `or' for Sun SIMS bug, it regard body-fld-enc as a |
;; next `or' for Sun SIMS bug, it regard body-fld-enc as a |
2458 |
;; nstring and return NIL instead of defaulting back to 7BIT |
;; nstring and return nil instead of defaulting back to 7BIT |
2459 |
;; as the standard says. |
;; as the standard says. |
2460 |
(push (or (imap-parse-nstring) "7BIT") body);; body-fld-enc |
(push (or (imap-parse-nstring) "7BIT") body);; body-fld-enc |
2461 |
(imap-forward) |
(imap-forward) |