* 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 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,12 @@
 2000-11-20  Kenichi OKADA  <okada@opaopa.org>
 
+       * 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  <okada@opaopa.org>
+
        * elmo-imap4.el (elmo-network-authenticate-session): Use `elmo-imap4-login'
 
 2000-11-20  Kenichi OKADA  <okada@opaopa.org>

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 20c3f4d..e027e89 100644 (file)
--- 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 (file)
--- 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))