summaryrefslogtreecommitdiff
path: root/lisp/mail
diff options
context:
space:
mode:
authorKatsumi Yamaoka <yamaoka@jpl.org>2012-03-13 23:27:56 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2012-03-13 23:27:56 +0000
commit899cb7cb68e9845e787291c4ba8ba8fa692be605 (patch)
tree6102f30f830c3d742054b0cd9146e1aaadc6f213 /lisp/mail
parent3809f91dfa03f4494d6ea8f5c9e0137993531864 (diff)
downloademacs-899cb7cb68e9845e787291c4ba8ba8fa692be605.tar.gz
mail/sendmail.el (mail-encode-header): Bind rfc2047-encode-encoded-words to nil.
Diffstat (limited to 'lisp/mail')
-rw-r--r--lisp/mail/sendmail.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index f4dfcfcf647..4e2d827fc29 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1085,9 +1085,10 @@ Return non-nil if and only if some part of the header is encoded."
(cons selected mm-coding-system-priorities)
mm-coding-system-priorities))
(tick (buffer-chars-modified-tick))
- ;; rms: this proved necessary, but I don't recall why.
- ;; Can anyone determine why, and state it here?
- (rfc2047-encode-encoded-words t))
+ ;; Many mailers, including Gnus, passes a message of which
+ ;; the header is already encoded, so this is necessary to
+ ;; prevent it from being encoded again.
+ (rfc2047-encode-encoded-words nil))
(rfc2047-encode-message-header)
(= tick (buffer-chars-modified-tick)))))