diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-09-14 23:59:50 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-09-14 23:59:50 +0200 |
| commit | 7520339cd1226cd3d4c0691df4b2291aa60b7118 (patch) | |
| tree | c00b40708626d7b1b664c7435715137aa6b18ed8 /lisp/mail/smtpmail.el | |
| parent | 1c14176cfd92376a14e4dbce27eb0c6457d12061 (diff) | |
| download | emacs-7520339cd1226cd3d4c0691df4b2291aa60b7118.tar.gz emacs-7520339cd1226cd3d4c0691df4b2291aa60b7118.tar.bz2 emacs-7520339cd1226cd3d4c0691df4b2291aa60b7118.zip | |
(smtpmail-send-command): Don't include AUTH passwords in the log buffer
Diffstat (limited to 'lisp/mail/smtpmail.el')
| -rw-r--r-- | lisp/mail/smtpmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |