* 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 (file)
--- 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 (file)
--- 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))