Mercurial > emacs
comparison lisp/net/imap.el @ 86817:be7be23ea4b9
(sasl-find-mechanism, sasl-mechanism-name)
(sasl-make-client, sasl-next-step, sasl-step-data)
(sasl-step-set-data): Declare as functions.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 29 Nov 2007 04:29:07 +0000 |
| parents | 3082569ef3c5 |
| children | 781256628613 |
comparison
equal
deleted
inserted
replaced
| 86816:4a5a63e12e5a | 86817:be7be23ea4b9 |
|---|---|
| 963 (if (and (> (length name) 5) | 963 (if (and (> (length name) 5) |
| 964 (string-equal "AUTH=" (substring name 0 5 ))) | 964 (string-equal "AUTH=" (substring name 0 5 ))) |
| 965 (setq mecs (cons (substring name 5) mecs))))) | 965 (setq mecs (cons (substring name 5) mecs))))) |
| 966 (imap-capability nil buffer)) | 966 (imap-capability nil buffer)) |
| 967 mecs)) | 967 mecs)) |
| 968 | |
| 969 (declare-function sasl-find-mechanism "sasl" (mechanism)) | |
| 970 (declare-function sasl-mechanism-name "sasl" (mechanism)) | |
| 971 (declare-function sasl-make-client "sasl" (mechanism name service server)) | |
| 972 (declare-function sasl-next-step "sasl" (client step)) | |
| 973 (declare-function sasl-step-data "sasl" (step)) | |
| 974 (declare-function sasl-step-set-data "sasl" (step data)) | |
| 968 | 975 |
| 969 (defun imap-sasl-auth-p (buffer) | 976 (defun imap-sasl-auth-p (buffer) |
| 970 (and (condition-case () | 977 (and (condition-case () |
| 971 (require 'sasl) | 978 (require 'sasl) |
| 972 (error nil)) | 979 (error nil)) |