From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Wed, 14 Sep 2011 21:59:50 +0000 (+0200)
Subject: (smtpmail-send-command): Don't include AUTH passwords in the log buffer
X-Git-Tag: emacs-pretest-24.0.90~104^2~45
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7520339cd1226cd3d4c0691df4b2291aa60b7118;p=emacs.git

(smtpmail-send-command): Don't include AUTH passwords in the log buffer
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8c50789a84..6804f4150af 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* mail/smtpmail.el (smtpmail-send-command): Don't include AUTH
+	passwords in the log buffer.
+
 2011-09-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* textmodes/bibtex.el (bibtex-complete-string-cleanup)
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 544570a1bc3..42c43c0951c 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -891,8 +891,8 @@ The list is in preference order.")
 
 (defun smtpmail-send-command (process command)
   (goto-char (point-max))
-  (if (= (aref command 0) ?P)
-      (insert "PASS <omitted>\r\n")
+  (if (string-match "\\`AUTH [A-Z]+ " command)
+      (insert (match-string 0 command) "<omitted>\r\n")
     (insert command "\r\n"))
   (setq smtpmail-read-point (point))
   (process-send-string process command)