From: okada <okada>
Date: Wed, 1 Dec 1999 16:43:42 +0000 (+0000)
Subject: * smtp.el (smtp-send-command): Add new optional argument
X-Git-Tag: slim-1_13_4~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=59053d3372aea357ffd351f873b2438bc76a851c;p=elisp%2Fflim.git

* smtp.el (smtp-send-command): Add new optional argument
to delete insecure words in a trace buffer.
(smtp-auth-cram-md5): Update.
(smtp-auth-plain): Update.
(smtp-auth-login): Update.
---

diff --git a/ChangeLog b/ChangeLog
index b3d01f6..4de2040 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 1999-12-02  Kenichi OKADA <okada@opaopa.org>
 
+	* smtp.el (smtp-send-command): Add new optional argument
+	to delete insecure words in a trace buffer.
+	(smtp-auth-cram-md5): Update.
+	(smtp-auth-plain): Update.
+	(smtp-auth-login): Update.
+
+1999-12-02  Kenichi OKADA <okada@opaopa.org>
+
 	* smtp.el (smtp-via-smtp): Comment out vain commands.
 
 1999-12-02  Kenichi OKADA <okada@opaopa.org>
diff --git a/smtp.el b/smtp.el
index 2ed8cf2..4294457 100644
--- a/smtp.el
+++ b/smtp.el
@@ -368,9 +368,11 @@ don't define this value."
     (setq smtp-read-point match-end)
     return-value))
 
-(defun smtp-send-command (process command)
+(defun smtp-send-command (process command &optional secure)
   (goto-char (point-max))
-  (insert command "\r\n")
+  (if secure
+      (insert "Here is insecure words.\r\n")
+    (insert command "\r\n"))
   (setq smtp-read-point (point))
   (process-send-string process command)
   (process-send-string process "\r\n"))
@@ -490,7 +492,7 @@ don't define this value."
 			 (fillarray secure-word 0))
 	   secure-word (unwind-protect
 			   (base64-encode-string secure-word)
-			 (fillarray secure-word 0))))
+			 (fillarray secure-word 0))) t)
     (fillarray secure-word 0)
     (setq response (smtp-read-response process))
     (if (or (null (car response))
@@ -511,7 +513,7 @@ don't define this value."
 			 (fillarray secure-word 0))
 	   secure-word (unwind-protect
 			   (concat "AUTH PLAIN " secure-word)
-			 (fillarray secure-word 0))))
+			 (fillarray secure-word 0))) t)
     (fillarray secure-word 0)
     (setq response (smtp-read-response process))
     (if (or (null (car response))
@@ -534,7 +536,7 @@ don't define this value."
      process
      (setq secure-word (unwind-protect
 			   (base64-encode-string secure-word)
-			 (fillarray secure-word 0))))
+			 (fillarray secure-word 0))) t)
     (fillarray secure-word 0)
     (setq response (smtp-read-response process))
     (if (or (null (car response))