X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fsieve.el;h=ca181c2e7b30d4a55c301b8a72f7632bf49ff9a3;hb=b0eccd76f35ef80c3ad13f09e588d49358e9c22a;hp=e988cb759de449f4b4637ed2cf26e68a88835664;hpb=a243cbbf617ac1645a3f3c9c6ccaec69ea058afc;p=gnus

diff --git a/lisp/sieve.el b/lisp/sieve.el
index e988cb759..ca181c2e7 100644
--- a/lisp/sieve.el
+++ b/lisp/sieve.el
@@ -320,17 +320,12 @@ Server  : " server ":" (or port "2000") "
       (insert "\n"))))
 
 (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))
-    ;; authenticate
-    (if (eq sieve-manage-state 'nonauth)
-      (if (funcall (nth 2 (assq sieve-manage-auth
-                                sieve-manage-authenticator-alist))
-                   (current-buffer))
-          (setq sieve-manage-state 'auth))
-      (eq sieve-manage-state 'auth))))
+    (sieve-manage-authenticate)))
 
 (defun sieve-refresh-scriptlist ()
   (interactive)