1 |
;;; sieve-manage.el --- Implementation of the managesive protocol in elisp |
;;; sieve-manage.el --- Implementation of the managesive protocol in elisp |
2 |
;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc. |
3 |
|
|
4 |
;; Author: Simon Josefsson <simon@josefsson.org> |
;; Author: Simon Josefsson <simon@josefsson.org> |
5 |
|
|
184 |
it where sucessful authenticating itself to the server, nil otherwise. |
it where sucessful authenticating itself to the server, nil otherwise. |
185 |
Returns t if login was successful, nil otherwise." |
Returns t if login was successful, nil otherwise." |
186 |
(with-current-buffer buffer |
(with-current-buffer buffer |
187 |
(make-variable-buffer-local 'sieve-manage-username) |
(make-local-variable 'sieve-manage-username) |
188 |
(make-variable-buffer-local 'sieve-manage-password) |
(make-local-variable 'sieve-manage-password) |
189 |
(let (user passwd ret reason) |
(let (user passwd ret reason) |
190 |
;; (condition-case () |
;; (condition-case () |
191 |
(while (or (not user) (not passwd)) |
(while (or (not user) (not passwd)) |
370 |
to work in." |
to work in." |
371 |
(setq buffer (or buffer (format " *sieve* %s:%d" server (or port 2000)))) |
(setq buffer (or buffer (format " *sieve* %s:%d" server (or port 2000)))) |
372 |
(with-current-buffer (get-buffer-create buffer) |
(with-current-buffer (get-buffer-create buffer) |
373 |
(mapcar 'make-variable-buffer-local sieve-manage-local-variables) |
(mapcar 'make-local-variable sieve-manage-local-variables) |
374 |
(sieve-manage-disable-multibyte) |
(sieve-manage-disable-multibyte) |
375 |
(buffer-disable-undo) |
(buffer-disable-undo) |
376 |
(setq sieve-manage-server (or server sieve-manage-server)) |
(setq sieve-manage-server (or server sieve-manage-server)) |
458 |
(with-current-buffer (or buffer (current-buffer)) |
(with-current-buffer (or buffer (current-buffer)) |
459 |
(if (not (eq sieve-manage-state 'nonauth)) |
(if (not (eq sieve-manage-state 'nonauth)) |
460 |
(eq sieve-manage-state 'auth) |
(eq sieve-manage-state 'auth) |
461 |
(make-variable-buffer-local 'sieve-manage-username) |
(make-local-variable 'sieve-manage-username) |
462 |
(make-variable-buffer-local 'sieve-manage-password) |
(make-local-variable 'sieve-manage-password) |
463 |
(if user (setq sieve-manage-username user)) |
(if user (setq sieve-manage-username user)) |
464 |
(if passwd (setq sieve-manage-password passwd)) |
(if passwd (setq sieve-manage-password passwd)) |
465 |
(if (funcall (nth 2 (assq sieve-manage-auth |
(if (funcall (nth 2 (assq sieve-manage-auth |