diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-01-02 17:41:54 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-01-02 17:41:54 -0800 |
| commit | 980f570a78ae67460930f06de5be34ea65520c8f (patch) | |
| tree | 22d536a54a7fec5d83cf7ae1ead7d589215b4aab /lisp/gnus/sieve.el | |
| parent | d368a3408f480f10de6aba919b85ff711e3cfca3 (diff) | |
| download | emacs-980f570a78ae67460930f06de5be34ea65520c8f.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus/sieve.el')
| -rw-r--r-- | lisp/gnus/sieve.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/sieve.el b/lisp/gnus/sieve.el index ca181c2e7b3..f37a3b6ad7d 100644 --- a/lisp/gnus/sieve.el +++ b/lisp/gnus/sieve.el @@ -322,9 +322,10 @@ Server : " server ":" (or port "2000") " (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 () |