summaryrefslogtreecommitdiff
path: root/lisp/mail/smtpmail.el
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2011-05-23 13:44:29 +0900
committerKenichi Handa <handa@m17n.org>2011-05-23 13:44:29 +0900
commitb8d747b9bd6e8278349aa7faaf4bbbf0b9ce24db (patch)
treeea4cdbf9c5cc9a10cfdb90d3fd6c49fdcda10c62 /lisp/mail/smtpmail.el
parent02bd54507635629c9d35bc2193a0cfa3567309c6 (diff)
downloademacs-b8d747b9bd6e8278349aa7faaf4bbbf0b9ce24db.tar.gz
RFC2047-encode header of outgoing mails.
Diffstat (limited to 'lisp/mail/smtpmail.el')
-rw-r--r--lisp/mail/smtpmail.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index f59e8b02cd0..a68e1e6b1f2 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -362,6 +362,8 @@ The list is in preference order.")
(if mail-interactive
(with-current-buffer errbuf
(erase-buffer))))
+ ;; Encode the header according to RFC2047.
+ (mail-encode-header (point-min) delimline)
;;
(setq smtpmail-address-buffer (generate-new-buffer "*smtp-mail*"))
(setq smtpmail-recipient-address-list