smtp.el (smtp-aut-login): Update to new api.

diff --git a/ChangeLog b/ChangeLog
index 803221b..b547f53 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,6 @@
 1999-12-13  Kenichi OKADA <okada@opaopa.org>
 
-       * SLIM-TIPS: Update.
+       * smtp.el (smtp-aut-login): Update to new api.
 
 1999-12-14   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
@@ -34,7 +34,7 @@
 
        * sasl.el (sasl-scram-md5-make-salted-pass): New function.
        * smtp.el (smtp-auth-scram-md5): Use `sasl-scram-md5-make-salted-pass'
-       instead of `scram-md5-make-salted-pass' and `scram-md5-parse-server-msg-1'.     
+       instead of `scram-md5-make-salted-pass' and `scram-md5-parse-server-msg-1'.
 
 1999-12-13  Kenichi OKADA <okada@opaopa.org>
 

diff --git a/smtp.el b/smtp.el
index f2b8365..0a1612b 100644 (file)
--- a/smtp.el
+++ b/smtp.el
@@ -528,9 +528,16 @@ don't define this value."
 (defun smtp-auth-login (process)
   (let ((secure-word (copy-sequence smtp-authentication-passphrase))
        response)
+    (smtp-send-command process "AUTH LOGIN")
+    (setq response (smtp-read-response process))
+    (if (or (null (car response))
+           (not (integerp (car response)))
+           (>= (car response) 400))
+       (throw 'done (car (cdr response))))
     (smtp-send-command
      process
-     (concat "AUTH LOGIN " smtp-authentication-user))
+     (base64-encode-string
+      smtp-authentication-user))
     (setq response (smtp-read-response process))
     (if (or (null (car response))
            (not (integerp (car response)))