# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1294018914 28800
# Node ID dc86a96ec68e48352165b8acd57f413018fa8ecc
# Parent  ff459bc4b620aaa47b688046bd20db039dc5c002
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.

diff -r ff459bc4b620 -r dc86a96ec68e lisp/gnus/ChangeLog
--- 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.
diff -r ff459bc4b620 -r dc86a96ec68e lisp/gnus/sieve.el
--- 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 ()