* gnus-msg.el (gnus-copy-article-buffer): Quote decoded words containing

[gnus] / lisp / mml.el

diff --git a/lisp/mml.el b/lisp/mml.el
index 1b43f68..3ccac95 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -714,7 +714,8 @@ If HANDLES is non-nil, use it instead reparsing the buffer."
   ;; First decode the head.
   (save-restriction
     (message-narrow-to-head)
-    (mail-decode-encoded-word-region (point-min) (point-max)))
+    (let ((rfc2047-quote-decoded-words-containing-tspecials t))
+      (mail-decode-encoded-word-region (point-min) (point-max))))
   (unless handles
     (setq handles (mm-dissect-buffer t)))
   (goto-char (point-min))