(gnus-mime-inline-part): Show the raw contents if a prefix arg is neither nil

 nor a number, as info specifies.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6e8275..2752f7d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-03  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-mime-inline-part): Show the raw contents if a
+       prefix arg is neither nil nor a number, as info specifies.
+
 2005-02-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * nntp.el (nntp-marks-changed-p): Use time-less-p to compare the

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 6a30529..4068ae0 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4333,7 +4333,16 @@ are decompressed."
          (setq charset
                (or (cdr (assq arg
                               gnus-summary-show-article-charset-alist))
-                   (mm-read-coding-system "Charset: ")))))
+                   (mm-read-coding-system "Charset: "))))
+        (t
+         (if (mm-handle-undisplayer handle)
+             (mm-remove-part handle))
+         (setq contents
+               (if (fboundp 'string-to-multibyte)
+                   (string-to-multibyte contents)
+                 (mapconcat
+                  (lambda (ch) (mm-string-as-multibyte (char-to-string ch)))
+                  contents "")))))
        (forward-line 2)
        (mm-insert-inline handle
                          (if (and charset