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.
+
2011-03-05 Antoine Levitt <antoine.levitt@gmail.com>
* gnus.el (gnus-interactive): Use read-directory-name.
(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)