From f48d7e0ae5a6f23be5a5baf492045ac17d2bdb95 Mon Sep 17 00:00:00 2001
From: okada <okada>
Date: Sun, 19 Nov 2000 22:18:00 +0000
Subject: [PATCH] 	* 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.

---
 elmo/ChangeLog     |    7 +++++++
 elmo/elmo-imap4.el |    8 +++++++-
 elmo/elmo-pop3.el  |    8 +++++++-
 3 files changed, 21 insertions(+), 2 deletions(-)

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