From 6c5a011d4b207b82ff673b8ae03f913a3756368b Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Mon, 7 Mar 2011 15:31:38 +0100 Subject: [PATCH] sieve-manage: create auth-info if needed Signed-off-by: Julien Danjou --- lisp/ChangeLog | 4 ++++ lisp/sieve-manage.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ba11e2cd4..be8ecc61c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-03-07 Julien Danjou + + * sieve-manage.el (sieve-sasl-auth): Create auth-info if not found. + 2011-03-05 Antoine Levitt * gnus.el (gnus-interactive): Use read-directory-name. diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el index c9a0df205..ec59cf374 100644 --- a/lisp/sieve-manage.el +++ b/lisp/sieve-manage.el @@ -275,7 +275,8 @@ Valid states are `closed', `initial', `nonauth', and `auth'.") (with-current-buffer buffer (let* ((auth-info (auth-source-search :host sieve-manage-server :port "sieve" - :max 1)) + :max 1 + :create t)) (user-name (plist-get (nth 0 auth-info) :user)) (user-password (plist-get (nth 0 auth-info) :secret)) (user-password (if (functionp user-password) -- 2.25.1