* gnus-art.el (gnus-output-to-file): Bind file-name-coding-system.

[gnu-emacs] / lisp / gnus / gnus-uu.el

diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el
index a5c660ea9faa4f1ad478e56eed86e5bc47ca9589..4cbe01ab727949b85d0f8d0842b9d0cba1a427cb 100644 (file)
--- a/lisp/gnus/gnus-uu.el
+++ b/lisp/gnus/gnus-uu.el
@@ -564,7 +564,8 @@ didn't work, and overwrite existing files.  Otherwise, ask each time."
       (when (re-search-forward "^From:")
        (delete-region (point) (gnus-point-at-eol))
        (insert " " from))
-      (message-forward post t))
+      (let ((message-forward-decoded-p t))
+       (message-forward post t)))
     (setq gnus-uu-digest-from-subject nil)))
 
 (defun gnus-uu-digest-post-forward (&optional n)
@@ -2133,4 +2134,4 @@ If no file has been included, the user will be asked for a file."
 
 (provide 'gnus-uu)
 
-;; gnus-uu.el ends here
+;;; gnus-uu.el ends here