From: Julien Danjou Date: Mon, 7 Mar 2011 15:41:26 +0000 (+0100) Subject: sieve-manage: return empty string if no user/password X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=b94e6917956f748007b46c54f2bed607fd71f6c7;p=gnus sieve-manage: return empty string if no user/password Signed-off-by: Julien Danjou --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index be8ecc61c..3922baf03 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,8 @@ 2011-03-07 Julien Danjou * 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 diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el index ec59cf374..5c2e775a2 100644 --- a/lisp/sieve-manage.el +++ b/lisp/sieve-manage.el @@ -277,8 +277,8 @@ Valid states are `closed', `initial', `nonauth', and `auth'.") :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))