Signed-off-by: Julien Danjou <julien@danjou.info>
2011-03-07 Julien Danjou <julien@danjou.info>
* sieve-manage.el (sieve-sasl-auth): Create auth-info if not found.
+ (sieve-sasl-auth): Check that auth-source-search did return something,
+ or just return an empty string.
2011-03-05 Antoine Levitt <antoine.levitt@gmail.com>
:port "sieve"
:max 1
:create t))
- (user-name (plist-get (nth 0 auth-info) :user))
- (user-password (plist-get (nth 0 auth-info) :secret))
+ (user-name (or (plist-get (nth 0 auth-info) :user) ""))
+ (user-password (or (plist-get (nth 0 auth-info) :secret) ""))
(user-password (if (functionp user-password)
(funcall user-password)
user-password))