projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
shr: Render td content with shr-descend
[gnus]
/
lisp
/
sieve.el
diff --git
a/lisp/sieve.el
b/lisp/sieve.el
index
e988cb7
..
ca181c2
100644
(file)
--- 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)
(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))
(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)
(defun sieve-refresh-scriptlist ()
(interactive)