[Emacs-diffs] /srv/bzr/emacs/trunk r107601: mail/sendmail.el (mail-encode-header): Bind rfc2047-encode-encoded-words to nil.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 107601
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2012-03-13 23:27:56 +0000
message:
  mail/sendmail.el (mail-encode-header): Bind rfc2047-encode-encoded-words to 
nil.
modified:
  lisp/ChangeLog
  lisp/mail/sendmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-13 17:56:31 +0000
+++ b/lisp/ChangeLog    2012-03-13 23:27:56 +0000
@@ -1,3 +1,8 @@
+2012-03-13  Katsumi Yamaoka  <address@hidden>
+
+       * mail/sendmail.el (mail-encode-header):
+       Bind rfc2047-encode-encoded-words to nil.
+
 2012-03-13  Glenn Morris  <address@hidden>
 
        * calendar/calendar.el (calendar-string-spread):

=== modified file 'lisp/mail/sendmail.el'
--- a/lisp/mail/sendmail.el     2012-03-10 09:11:22 +0000
+++ b/lisp/mail/sendmail.el     2012-03-13 23:27:56 +0000
@@ -1085,9 +1085,10 @@
                (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)))))