diff lisp/gnus/sieve.el @ 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.

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