From: okada <okada>
Date: Sat, 20 Nov 1999 07:24:33 +0000 (+0000)
Subject: 	* smtp.el (smtp-via-smtp): Fix typo.
X-Git-Tag: slim-1_13_0
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8a57bf890ec6fa86f4133528042c701ace23e765;p=elisp%2Fflim.git

	* smtp.el (smtp-via-smtp): Fix typo.
	* hmac-md5.el: Add Author and Maintainer.
---

diff --git a/ChangeLog b/ChangeLog
index 02db5d4..59101a2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 1999-10-20  Kenichi OKADA <okada@opaopa.org>
 
+	* smtp.el (smtp-via-smtp): Fix typo.
+	* hmac-md5.el: Add Author and Maintainer.
+
+1999-10-20  Kenichi OKADA <okada@opaopa.org>
+
 	* hmac-md5.el (hmac-md5): Specify the 4th arg to `md5'
 	as `binary' if possible.
 
diff --git a/hmac-md5.el b/hmac-md5.el
index 0c86aa8..d627622 100644
--- a/hmac-md5.el
+++ b/hmac-md5.el
@@ -3,6 +3,8 @@
 ;; Copyright (C) 1999 Shuhei KOBAYASHI
 
 ;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;;	Kenichi OKADA <okada@opaopa.org>
+;; Maintainer: Kenichi OKADA <okada@opaopa.org>
 ;; Keywords: HMAC, RFC 2104, HMAC-MD5, MD5, KEYED-MD5, CRAM-MD5
 
 ;; This file is part of FLIM (Faithful Library about Internet Message).
diff --git a/smtp.el b/smtp.el
index 79e4620..b671a4e 100644
--- a/smtp.el
+++ b/smtp.el
@@ -166,7 +166,7 @@ don't define this value."
 		     (smtp-send-command
 		      process
 		      (base64-encode-string
-		       (cram-md5-encode
+		       (sasl-cram-md5
 			user passphrase 
 			(base64-decode-string
 			 (substring (car (cdr response)) 4)))))
@@ -177,11 +177,11 @@ don't define this value."
 			 (throw 'done (car (cdr response)))))
 
 		    ((string= "plain" auth)
-		     (smtp-send-command
-		      process
-		      (concat "AUTH PLAIN "
-			      (base64-encode-string
-			       (plain-encode "" user passphrase))))
+                     (smtp-send-command
+                      process
+                      (concat "AUTH PLAIN "
+                              (base64-encode-string
+                               (plain-encode "" user passphrase))))
 		     (setq response (smtp-read-response process))
 		     (if (or (null (car response))
 			     (not (integerp (car response)))