summaryrefslogtreecommitdiff
path: root/lisp/mail/sendmail.el
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2011-05-27 13:54:39 +0900
committerKenichi Handa <handa@m17n.org>2011-05-27 13:54:39 +0900
commitc92a1e54c44d3939a1ac57b45def3424d0e4cf13 (patch)
treee27df8d2a7968cff1184d37a4dd8b724515c12c1 /lisp/mail/sendmail.el
parente61124cd850ad6e0fc511dc995031db77b3535cd (diff)
downloademacs-c92a1e54c44d3939a1ac57b45def3424d0e4cf13.tar.gz
mail/sendmail.el (mail-encode-header): Avoid double encoding by let-binding rfc2047-encode-encoded-words to nil.
Diffstat (limited to 'lisp/mail/sendmail.el')
-rw-r--r--lisp/mail/sendmail.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index b6fd586c2ed..9e3a6d8f7f6 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1029,7 +1029,8 @@ Return non-nil if and only if some part of the header is encoded."
(if (and selected (coding-system-get selected :mime-charset))
(cons selected mm-coding-system-priorities)
mm-coding-system-priorities))
- (tick (buffer-chars-modified-tick)))
+ (tick (buffer-chars-modified-tick))
+ (rfc2047-encode-encoded-words nil))
(rfc2047-encode-message-header)
(= tick (buffer-chars-modified-tick)))))