Mercurial > emacs
comparison lisp/gnus/sieve-manage.el @ 110111:5b9f64b04a04
Delete all trailing white space.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 02 Sep 2010 01:42:32 +0000 |
| parents | 8d09094063d0 |
| children | 84a76c5e1b1c |
comparison
equal
deleted
inserted
replaced
| 110110:91cc7bab2ca4 | 110111:5b9f64b04a04 |
|---|---|
| 333 ;; Authenticators | 333 ;; Authenticators |
| 334 | 334 |
| 335 (defun sieve-sasl-auth (buffer mech) | 335 (defun sieve-sasl-auth (buffer mech) |
| 336 "Login to server using the SASL MECH method." | 336 "Login to server using the SASL MECH method." |
| 337 (message "sieve: Authenticating using %s..." mech) | 337 (message "sieve: Authenticating using %s..." mech) |
| 338 (if (sieve-manage-interactive-login | 338 (if (sieve-manage-interactive-login |
| 339 buffer | 339 buffer |
| 340 (lambda (user passwd) | 340 (lambda (user passwd) |
| 341 (let (client step tag data rsp) | 341 (let (client step tag data rsp) |
| 342 (setq client (sasl-make-client (sasl-find-mechanism (list mech)) | 342 (setq client (sasl-make-client (sasl-find-mechanism (list mech)) |
| 343 user "sieve" sieve-manage-server)) | 343 user "sieve" sieve-manage-server)) |