/[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.4 by sds, Fri Aug 31 17:02:20 2001 UTC revision 1.4.4.1 by zsh, Thu Feb 7 15:28:33 2002 UTC
# Line 719  LOGINFUNC is passed a username and a pas Line 719  LOGINFUNC is passed a username and a pas
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))
# Line 887  necessery.  If nil, the buffer name is g Line 887  necessery.  If nil, the buffer name is g
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))
# Line 957  password is remembered in the buffer." Line 957  password is remembered in the buffer."
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)
# Line 1751  Return nil if no complete line has arriv Line 1751  Return nil if no complete line has arriv
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    
# Line 2455  Return nil if no complete line has arriv Line 2455  Return nil if no complete line has arriv
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)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.4.1

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