[Emacs-diffs] /srv/bzr/emacs/trunk r102741: Small sieve.el fix for bug #7720.

[Glenn Morris]

------------------------------------------------------------
revno: 102741
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2011-01-02 17:41:54 -0800
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/sieve.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-01-02 23:17:32 +0000
+++ b/lisp/gnus/ChangeLog       2011-01-03 01:41:54 +0000
@@ -1,3 +1,8 @@
+2011-01-03  Glenn Morris  <address@hidden>
+
+       * sieve.el (sieve-open-server): Give a more explicit error if
+       sieve-manage-open returns nil.  (Bug#7720)
+
 2011-01-02  Lars Magne Ingebrigtsen  <address@hidden>
 
        * nnimap.el (nnimap-login): Prefer AUTH=CRAM-MD5, if it's available.

=== modified file 'lisp/gnus/sieve.el'
--- a/lisp/gnus/sieve.el        2010-10-06 14:02:39 +0000
+++ b/lisp/gnus/sieve.el        2011-01-03 01:41:54 +0000
@@ -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 ()