mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-09-14 23:59:50 +02:00
parent 1c14176cfd
commit 7520339cd1
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/smtpmail.el
View file

@ -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)