* gnus-uu.el (gnus-uu-digest-mail-forward): Bind

mail-parset-charset and use non-numeric argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68bc185..1806d72 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-12 22:28:54  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-uu.el (gnus-uu-digest-mail-forward): Bind
+       mail-parset-charset and use non-numeric argument.
+
 2000-05-12 20:54:11  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * mml.el (mml-buffer-list): New variable.

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 358a8c6..6796d07 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -522,7 +522,13 @@ didn't work, and overwrite existing files.  Otherwise, ask each time."
   (interactive "P")
   (let ((gnus-uu-save-in-digest t)
        (file (make-temp-name (nnheader-concat gnus-uu-tmp-dir "forward")))
+       (message-forward-as-mime message-forward-as-mime)
+       (mail-parse-charset gnus-newsgroup-charset)
+       (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets)
        gnus-uu-digest-buffer subject from)
+    (if (and n (not (numberp n)))
+       (setq message-forward-as-mime (not message-forward-as-mime)
+             n nil))
     (gnus-setup-message 'forward
       (setq gnus-uu-digest-from-subject nil)
       (setq gnus-uu-digest-buffer