/[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.5 by monnier, Sun Nov 25 22:19:45 2001 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)

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

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