[Emacs-diffs] /srv/bzr/emacs/trunk r105773: (smtpmail-send-command): Don't include AUTH passwords in the log buffer

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105773
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2011-09-14 23:59:50 +0200
message:
  (smtpmail-send-command): Don't include AUTH passwords in the log buffer
modified:
  lisp/ChangeLog
  lisp/mail/smtpmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-14 21:43:36 +0000
+++ b/lisp/ChangeLog    2011-09-14 21:59:50 +0000
@@ -1,3 +1,8 @@
+2011-09-14  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * mail/smtpmail.el (smtpmail-send-command): Don't include AUTH
+       passwords in the log buffer.
+
 2011-09-14  Stefan Monnier  <address@hidden>
 
        * textmodes/bibtex.el (bibtex-complete-string-cleanup)

=== modified file 'lisp/mail/smtpmail.el'
--- a/lisp/mail/smtpmail.el     2011-09-03 20:24:12 +0000
+++ b/lisp/mail/smtpmail.el     2011-09-14 21:59:50 +0000
@@ -891,8 +891,8 @@
 
 (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)