(gnus-mime-delete-part): Specify gnus-decoded as charset to deleted part.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a7f8c3..7e1985b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-06-01  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-mime-delete-part): Specify gnus-decoded as charset
+       to deleted part.
+
 2009-05-30  David Engster  <dengste@eml.cc>
 
        * nnmairix.el: Remove old documentation in the commentary block.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 91fccf7..df1a970 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4943,7 +4943,7 @@ Deleting parts may malfunction or destroy the article; continue? "))
            "`----\n"))
          (setcdr data
                  (cdr (mm-make-handle
-                       nil `("text/plain") nil nil
+                       nil `("text/plain" (charset . gnus-decoded)) nil nil
                        (list "attachment")
                        (format "Deleted attachment (%s bytes)" bsize))))))
       ;; (set-buffer gnus-summary-buffer)