* smtp.el (smtp-via-smtp): Fix typo.

	* hmac-md5.el: Add Author and Maintainer.

diff --git a/ChangeLog b/ChangeLog
index 02db5d4..59101a2 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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)))