Mercurial > emacs
changeset 112103:dc86a96ec68e
Small sieve.el fix for bug #7720.
* lisp/gnus/sieve.el (sieve-open-server): Give a more explicit error if
sieve-manage-open returns nil.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 02 Jan 2011 17:41:54 -0800 |
| parents | ff459bc4b620 |
| children | 147ba7e5851b |
| files | lisp/gnus/ChangeLog lisp/gnus/sieve.el |
| diffstat | 2 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Jan 02 17:18:33 2011 -0800 +++ b/lisp/gnus/ChangeLog Sun Jan 02 17:41:54 2011 -0800 @@ -1,3 +1,8 @@ +2011-01-03 Glenn Morris <rgm@gnu.org> + + * sieve.el (sieve-open-server): Give a more explicit error if + sieve-manage-open returns nil. (Bug#7720) + 2011-01-02 Lars Magne Ingebrigtsen <larsi@gnus.org> * nnimap.el (nnimap-login): Prefer AUTH=CRAM-MD5, if it's available.
--- a/lisp/gnus/sieve.el Sun Jan 02 17:18:33 2011 -0800 +++ b/lisp/gnus/sieve.el Sun Jan 02 17:41:54 2011 -0800 @@ -322,9 +322,10 @@ (defun sieve-open-server (server &optional port) "Open SERVER (on PORT) and authenticate." (with-current-buffer - ;; open server - (set (make-local-variable 'sieve-manage-buffer) - (sieve-manage-open server)) + (or ;; open server + (set (make-local-variable 'sieve-manage-buffer) + (sieve-manage-open server)) + (error "Error opening server %s" server)) (sieve-manage-authenticate))) (defun sieve-refresh-scriptlist ()