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)) |