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 --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 00702e73596a0c30e92f6a4724937c3b7bbb13c4..75aebf7987383f5f9bbf23347e04dcb2c61adfad 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/sieve.el b/lisp/gnus/sieve.el
index ca181c2e7b30d4a55c301b8a72f7632bf49ff9a3..f37a3b6ad7d10df3293cb3647867a7ded043de3a 100644 (file)
--- 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 ()