Mercurial > emacs
comparison lisp/gnus/sieve.el @ 110791:5d585a964174
sieve-manage: use auth-source.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 06 Oct 2010 13:13:11 +0000 |
| parents | 8d09094063d0 |
| children | 6ab940f572a9 |
comparison
equal
deleted
inserted
replaced
| 110790:1f25b03df4ad | 110791:5d585a964174 |
|---|---|
| 318 (cdr script) | 318 (cdr script) |
| 319 script)) | 319 script)) |
| 320 (insert "\n")))) | 320 (insert "\n")))) |
| 321 | 321 |
| 322 (defun sieve-open-server (server &optional port) | 322 (defun sieve-open-server (server &optional port) |
| 323 ;; open server | 323 (with-current-buffer |
| 324 (set (make-local-variable 'sieve-manage-buffer) | 324 ;; open server |
| 325 (sieve-manage-open server)) | 325 (set (make-local-variable 'sieve-manage-buffer) |
| 326 ;; authenticate | 326 (sieve-manage-open server)) |
| 327 (sieve-manage-authenticate nil nil sieve-manage-buffer)) | 327 ;; authenticate |
| 328 (if (eq sieve-manage-state 'nonauth) | |
| 329 (if (funcall (nth 2 (assq sieve-manage-auth | |
| 330 sieve-manage-authenticator-alist)) | |
| 331 (current-buffer)) | |
| 332 (setq sieve-manage-state 'auth)) | |
| 333 (eq sieve-manage-state 'auth)))) | |
| 328 | 334 |
| 329 (defun sieve-refresh-scriptlist () | 335 (defun sieve-refresh-scriptlist () |
| 330 (interactive) | 336 (interactive) |
| 331 (with-current-buffer sieve-buffer | 337 (with-current-buffer sieve-buffer |
| 332 (setq buffer-read-only nil) | 338 (setq buffer-read-only nil) |