From: ueno <ueno>
Date: Sat, 4 Nov 2000 07:20:41 +0000 (+0000)
Subject: * sasl.el: Add RFCs.
X-Git-Tag: deisui-1_14_0-1~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ba555b305a0662b5e3042ec5f0b930ecbef960b5;p=elisp%2Fflim.git

* sasl.el: Add RFCs.
* smtp.el: Rearrange.
---

diff --git a/sasl.el b/sasl.el
index 71ed50c..99c5685 100644
--- a/sasl.el
+++ b/sasl.el
@@ -23,7 +23,16 @@
 ;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
+
+;; This module provides common interface functions to share several
+;; SASL mechanism drivers.  The toplevel is designed to be mostly
+;; compatible with [Java-SASL].
+;;
+;; [SASL] J. Myers, "Simple Authentication and Security Layer (SASL)",
+;;	RFC 2222, October 1997.
 ;;
+;; [Java-SASL] R. Weltman & R. Lee, "The Java SASL Application Program
+;;	Interface", draft-weltman-java-sasl-03.txt, March 2000.
 
 ;;; Code:
 
@@ -141,7 +150,7 @@ Argument INSTANTIATOR is the instantiator instantiator."
 	(list function (funcall function instantiator challenge)))))
 
 (defvar sasl-read-passphrase nil)
-(defun sasl-read-passphrase (prompt &optional key)
+(defun sasl-read-passphrase (prompt)
   (if (not sasl-read-passphrase)
       (if (functionp 'read-passwd)
 	  (setq sasl-read-passphrase 'read-passwd)
diff --git a/smtp.el b/smtp.el
index 3f8324a..432add8 100644
--- a/smtp.el
+++ b/smtp.el
@@ -368,9 +368,10 @@ of the host to connect to.  SERVICE is name of the service desired."
 	  (smtp-connection-process connection))
 	 (mechanisms
 	  (cdr (assq 'auth (smtp-connection-extensions connection))))
+	 (sasl-mechanisms
+	  (or smtp-sasl-mechanisms sasl-mechanisms))
 	 (authenticator
-	  (let ((sasl-mechanisms smtp-sasl-mechanisms))
-	    (sasl-find-authenticator mechanisms)))
+	  (sasl-find-authenticator mechanisms))
 	 instantiator
 	 mechanism
 	 sasl-response