diff lisp/gnus/sieve.el @ 110793:6ab940f572a9

sieve-manage.el: Add authenticate function. sieve-manage.el (sieve-manage-open): Use sieve-manage-default-port.

--- a/lisp/gnus/sieve.el	Wed Oct 06 13:21:07 2010 +0000
+++ b/lisp/gnus/sieve.el	Wed Oct 06 14:02:39 2010 +0000
@@ -320,17 +320,12 @@
       (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)