From: okada <okada>
Date: Wed, 15 Dec 1999 17:32:37 +0000 (+0000)
Subject: smtp.el (smtp-aut-login): Update to new api.
X-Git-Tag: slim-1_13_5~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f4acb653f77658a94a236172a6498a7fca2f5050;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index 803221b..b547f53 100644
--- 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
--- 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)))