[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100588: mail/sendmail.el (mail-encode-header): Avoid double encoding by let-binding rfc2047-encode-encoded-words to nil.

[Kenichi Handa]

------------------------------------------------------------
revno: 100588 [merge]
committer: Kenichi Handa <address@hidden>
branch nick: emacs-23
timestamp: Fri 2011-05-27 13:55:00 +0900
message:
  mail/sendmail.el (mail-encode-header): Avoid double encoding by let-binding 
rfc2047-encode-encoded-words to nil.
modified:
  lisp/ChangeLog
  lisp/mail/sendmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-23 04:44:29 +0000
+++ b/lisp/ChangeLog    2011-05-27 04:54:39 +0000
@@ -1,3 +1,8 @@
+2011-05-27  Kenichi Handa  <address@hidden>
+
+       * mail/sendmail.el (mail-encode-header): Avoid double encoding by
+       let-binding rfc2047-encode-encoded-words to nil.
+
 2011-05-23  Kenichi Handa  <address@hidden>
 
        * mail/sendmail.el: Require `rfc2047'.

=== modified file 'lisp/mail/sendmail.el'
--- a/lisp/mail/sendmail.el     2011-05-23 04:44:29 +0000
+++ b/lisp/mail/sendmail.el     2011-05-27 04:54:39 +0000
@@ -1029,7 +1029,8 @@
            (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)))))