From: okada Date: Sun, 19 Nov 2000 22:18:00 +0000 (+0000) Subject: * elmo-imap4.el (toplevel): defun at compile time. X-Git-Tag: wl-2_6-root~179 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f48d7e0ae5a6f23be5a5baf492045ac17d2bdb95;p=elisp%2Fwanderlust.git * elmo-imap4.el (toplevel): defun at compile time. sasl-find-mechanism, sasl-make-client, sasl-mechanism-name, sasl-next-step, sasl-step-data, sasl-step-set-data. * elmo-pop3.el (toplevel): Ditto. --- diff --git a/elmo/ChangeLog b/elmo/ChangeLog index b2bf93d..83a497d 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,12 @@ 2000-11-20 Kenichi OKADA + * elmo-imap4.el (toplevel): defun at compile time. + sasl-find-mechanism, sasl-make-client, sasl-mechanism-name, + sasl-next-step, sasl-step-data, sasl-step-set-data. + * elmo-pop3.el (toplevel): Ditto. + +2000-11-20 Kenichi OKADA + * elmo-imap4.el (elmo-network-authenticate-session): Use `elmo-imap4-login' 2000-11-20 Kenichi OKADA diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 20c3f4d..e027e89 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -62,7 +62,13 @@ (defun-maybe starttls-negotiate (a)) (defun-maybe elmo-generic-list-folder-unread (spec number-alist mark-alist unread-marks)) (defun-maybe elmo-generic-folder-diff (spec folder number-list)) - (defsubst-maybe utf7-decode-string (string &optional imap) string)) + (defsubst-maybe utf7-decode-string (string &optional imap) string) + (defun-maybe sasl-find-mechanism (mechanisms)) + (defun-maybe sasl-make-client (mechanism name service server)) + (defun-maybe sasl-mechanism-name (client)) + (defun-maybe sasl-next-step (client step)) + (defun-maybe sasl-step-data (step)) + (defun-maybe sasl-step-set-data (step data))) (defvar elmo-imap4-use-lock t "USE IMAP4 with locking process.") diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index e9b445c..1c0bee6 100644 --- a/elmo/elmo-pop3.el +++ b/elmo/elmo-pop3.el @@ -41,7 +41,13 @@ (require 'sasl)) (error)) (defun-maybe md5 (a)) - (defun-maybe starttls-negotiate (a))) + (defun-maybe starttls-negotiate (a)) + (defun-maybe sasl-find-mechanism (mechanisms)) + (defun-maybe sasl-make-client (mechanism name service server)) + (defun-maybe sasl-mechanism-name (client)) + (defun-maybe sasl-next-step (client step)) + (defun-maybe sasl-step-data (step)) + (defun-maybe sasl-step-set-data (step data))) (condition-case nil (progn (require 'sasl))