Mercurial > emacs

comparison lisp/net/imap.el @ 110111:5b9f64b04a04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Delete all trailing white space.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Thu, 02 Sep 2010 01:42:32 +0000
parents 8d09094063d0
children 3d982e5c5f58
comparison
equal deleted inserted replaced
110110:91cc7bab2ca4 110111:5b9f64b04a04
1225 (make-local-variable 'imap-password) 1225 (make-local-variable 'imap-password)
1226 (make-local-variable 'imap-last-authenticator) 1226 (make-local-variable 'imap-last-authenticator)
1227 (when user (setq imap-username user)) 1227 (when user (setq imap-username user))
1228 (when passwd (setq imap-password passwd)) 1228 (when passwd (setq imap-password passwd))
1229 (if imap-auth 1229 (if imap-auth
1230 (and (setq imap-last-authenticator 1230 (and (setq imap-last-authenticator
1231 (assq imap-auth imap-authenticator-alist)) 1231 (assq imap-auth imap-authenticator-alist))
1232 (funcall (nth 2 imap-last-authenticator) (current-buffer)) 1232 (funcall (nth 2 imap-last-authenticator) (current-buffer))
1233 (setq imap-state 'auth)) 1233 (setq imap-state 'auth))
1234 ;; Choose authenticator. 1234 ;; Choose authenticator.
1235 (let ((auths imap-authenticators) 1235 (let ((auths imap-authenticators)