procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(smtpmail-send-it): Use user-mail-address from

Browse source 
calling buffer.
(smtpmail-auth-credentials): Bump :version to 21.4 (21.3 will not
have the patch).
This commit is contained in:
Simon Josefsson 2002-05-09 10:18:09 +00:00
parent eb1666e20c
commit 1a8e727bc0
2 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2002-05-07 Simon Josefsson <jas@extundo.com>
* mail/smtpmail.el (smtpmail-send-it): Use user-mail-address from
calling buffer.
(smtpmail-auth-credentials): Bump :version to 21.4 (21.3 will not
have the patch).
2002-05-09 Kim F. Storm <storm@cua.dk>
* wid-edit.el (checkbox): New check-mark image.

7
lisp/mail/smtpmail.el
View file

@ -167,7 +167,7 @@ looks like `user@realm'."
(string :tag "Username")
(choice (const :tag "Query when needed" nil)
(string :tag "Password")))))
:version "21.3"
:version "21.4"
:group 'smtpmail)
(defcustom smtpmail-starttls-credentials '(("" 25 "" ""))
@ -220,6 +220,7 @@ This is relative to `smtpmail-queue-dir'.")
(case-fold-search nil)
delimline
(mailbuf (current-buffer))
(mail-address user-mail-address)
(smtpmail-code-conv-from
(if enable-multibyte-characters
(let ((sendmail-coding-system smtpmail-code-conv-from))
@ -260,7 +261,7 @@ This is relative to `smtpmail-queue-dir'.")
;; they put one in themselves.
(goto-char (point-min))
(if (not (re-search-forward "^From:" delimline t))
(let* ((login user-mail-address)
(let* ((login mail-address)
(fullname (user-full-name)))
(cond ((eq mail-from-style 'angles)
(insert "From: " fullname)
@ -685,7 +686,7 @@ This is relative to `smtpmail-queue-dir'.")
; (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn)))
(smtpmail-send-command process (format "MAIL FROM: <%s>%s%s"
(or mail-envelope-from
user-mail-address)
mail-address)
size-part
body-part))