From: okada <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  <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
--- 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))