summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
8e6fc1e)
are not bound. Unintern them if they are nil.
+2008-04-26 Teodor Zlatanov <tzz@lifelogs.com>
+
+ * mail-source.el (mail-source-bind): Don't use user or password if they
+ are not bound. Unintern them if they are nil.
+
2008-04-25 Teodor Zlatanov <tzz@lifelogs.com>
* mail-source.el: Load auth-source.el.
2008-04-25 Teodor Zlatanov <tzz@lifelogs.com>
* mail-source.el: Load auth-source.el.
the `mail-source-keyword-map' variable."
`(let* ,(mail-source-bind-1 (car type-source))
(mail-source-set-1 ,(cadr type-source))
the `mail-source-keyword-map' variable."
`(let* ,(mail-source-bind-1 (car type-source))
(mail-source-set-1 ,(cadr type-source))
- (let ((user (or
- (auth-source-user-or-password
- "login"
- server ; this is "host" in auth-sources
- ',(car type-source))
- user))
- (password (or
- (auth-source-user-or-password
- "password"
- server ; this is "host" in auth-sources
- ',(car type-source))
- password)))
+ (let ((user
+ (or
+ (auth-source-user-or-password
+ "login"
+ server ; this is "host" in auth-sources
+ ',(car type-source))
+ (when (boundp 'user) (symbol-value 'user))))
+ (password
+ (or
+ (auth-source-user-or-password
+ "password"
+ server ; this is "host" in auth-sources
+ ',(car type-source))
+ (when (boundp 'user) (symbol-value 'user)))))
+ (unless user
+ (unintern 'user))
+ (unless password
+ (unintern 'password))
,@body)))
(put 'mail-source-bind 'lisp-indent-function 1)
,@body)))
(put 'mail-source-bind 'lisp-indent-function 1)