diff options
| author | Gnus developers <ding@gnus.org> | 2011-03-08 14:26:05 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-03-08 14:26:05 +0000 |
| commit | a50575464256f7d77914548c520255e72950803c (patch) | |
| tree | 3fac9c0c9f6d7b9cbbc9e03675824cd7b844ad06 /lisp/gnus/sieve-manage.el | |
| parent | b511b994ae5fc66d36a64f54eb71b87612463918 (diff) | |
| download | emacs-a50575464256f7d77914548c520255e72950803c.tar.gz | |
Merge changes made in Gnus trunk.
message.texi (Message Buffers): Update default value of message-generate-new-buffers.
shr.el (shr-table-horizontal-line): Change the defaults for the table lines to be spaces instead.
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.
gnus-start.el (gnus-group-change-level): Allow putting foreign groups onto the list of killed groups, too. This makes killed nnimap groups, for instance, more reliably not reappear.
nnimap.el (nnimap-request-thread): Don't bug out when we can't find the parent.
Diffstat (limited to 'lisp/gnus/sieve-manage.el')
| -rw-r--r-- | lisp/gnus/sieve-manage.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el index c9a0df20590..5c2e775a211 100644 --- a/lisp/gnus/sieve-manage.el +++ b/lisp/gnus/sieve-manage.el @@ -275,9 +275,10 @@ 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)) - (user-name (plist-get (nth 0 auth-info) :user)) - (user-password (plist-get (nth 0 auth-info) :secret)) + :max 1 + :create t)) + (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)) |