Re: sieve-manage no longer works without authinfo

[Ted Zlatanov <tzz@lifelogs.com>]

On Mon, 07 Mar 2011 01:04:25 -0500 Michael Welsh Duggan <md5i@md5i.com> wrote: 

MWD> If an entry does not exists for a server in .authinfo, `sieve-manage' is
MWD> failing like this:

MWD> Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
MWD>   fillarray(nil 0)

Try this patch, which defaults the user name and the password to "".
But I don't know if that's the right fix.  Julien Danjou, who added the
authentication support originally, should say.

Ted

diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el
index c9a0df2..ca44238 100644
--- a/lisp/sieve-manage.el
+++ b/lisp/sieve-manage.el
@@ -276,8 +276,8 @@ Valid states are `closed', `initial', `nonauth', and `auth'.")
     (let* ((auth-info (auth-source-search :host sieve-manage-server
                                           :port "sieve"
                                           :max 1))
-           (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))