diff options
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 () |