mail/sendmail.el (mail-encode-header): Bind rfc2047-encode-encoded-words to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b7eabd200903f9a4522165d7aab7dc23cc50296..14531f6adc5a328d27f1de5044216f70b9795d7f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mail/sendmail.el (mail-encode-header):
+       Bind rfc2047-encode-encoded-words to nil.
+
 2012-03-13  Glenn Morris  <rgm@gnu.org>
 
        * calendar/calendar.el (calendar-string-spread):

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index f4dfcfcf64727dd68d30a740b72bef7de9f46e10..4e2d827fc29cd15dc4d903314d646b7e753595a9 100644 (file)
--- 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)))))