From 980f570a78ae67460930f06de5be34ea65520c8f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 2 Jan 2011 17:41:54 -0800 Subject: [PATCH] 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. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/sieve.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 00702e73596..75aebf79873 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-01-03 Glenn Morris + + * sieve.el (sieve-open-server): Give a more explicit error if + sieve-manage-open returns nil. (Bug#7720) + 2011-01-02 Lars Magne Ingebrigtsen * 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 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 () -- 2.39.5