(message-make-in-reply-to): Use mm-with-multibyte-buffer.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 82cde814cb2a29bbbea6f140ccb19ea29c7312e7..2a2b5b9bc2d26c4df05845ea7b50e3abfd8ad001 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,11 +1,15 @@
+2008-03-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * message.el (message-make-in-reply-to): Use mm-with-multibyte-buffer.
+
 2008-03-28  Michael Harnois  <mdharnois@gmail.com>  (tiny change)
 
        * nnimap.el (nnimap-find-minmax-uid): Fix Exchange 2007 IMAP problem.
 
 2008-03-24  Reiner Steib  <Reiner.Steib@gmx.de>
 
-       * message.el (message-signature-separator): Change default.  Improve
-       custom type.
+       * message.el (message-signature-separator): Change default.
+       Improve custom type.
        (message-cite-function): Change default to
        message-cite-original-without-signature.
 
@@ -18,9 +22,9 @@
        (message-shorten-references): Be more strict when building list of
        valid references to comply with GNKSA.
 
-        * gnus-group.el (gnus-read-ephemeral-bug-group)
-        (gnus-read-ephemeral-debian-bug-group)
-        (gnus-read-ephemeral-emacs-bug-group): Use the correct variable.
+       * gnus-group.el (gnus-read-ephemeral-bug-group)
+       (gnus-read-ephemeral-debian-bug-group)
+       (gnus-read-ephemeral-emacs-bug-group): Use the correct variable.
 
        * message.el (message-info): Don't use booleanp which isn't supported
        in Emacs 21 and XEmacs.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index a35d7b1bf9849535c407c9f489ca09b35f73a2ad..1ce7e461839f5a421b29d466758542d607d3c56d 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -5345,19 +5345,18 @@ In posting styles use `(\"Expires\" (make-expires-date 30))'."
                   ;; Quote a string containing non-ASCII characters.
                   ;; It will make the RFC2047 encoder cause an error
                   ;; if there are special characters.
-                  (let ((default-enable-multibyte-characters t))
-                    (with-temp-buffer
-                      (insert (car name))
-                      (goto-char (point-min))
-                      (while (search-forward "\"" nil t)
-                        (when (prog2
-                                  (backward-char)
-                                  (zerop (% (skip-chars-backward "\\\\") 2))
-                                (goto-char (match-beginning 0)))
-                          (insert "\\"))
-                        (forward-char))
-                      ;; Those quotes will be removed by the RFC2047 encoder.
-                      (concat "\"" (buffer-string) "\"")))
+                   (mm-with-multibyte-buffer
+                     (insert (car name))
+                     (goto-char (point-min))
+                     (while (search-forward "\"" nil t)
+                       (when (prog2
+                                 (backward-char)
+                                 (zerop (% (skip-chars-backward "\\\\") 2))
+                               (goto-char (match-beginning 0)))
+                         (insert "\\"))
+                       (forward-char))
+                     ;; Those quotes will be removed by the RFC2047 encoder.
+                     (concat "\"" (buffer-string) "\""))
                 (car name))
             (nth 1 name))
           "'s message of \""