From 59053d3372aea357ffd351f873b2438bc76a851c Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 1 Dec 1999 16:43:42 +0000 Subject: [PATCH] * 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. --- ChangeLog | 8 ++++++++ smtp.el | 12 +++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index b3d01f6..4de2040 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,13 @@ 1999-12-02 Kenichi OKADA + * 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 + * smtp.el (smtp-via-smtp): Comment out vain commands. 1999-12-02 Kenichi OKADA 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)) -- 1.7.10.4