From: yamaoka <yamaoka>
Date: Thu, 3 Feb 2005 07:01:40 +0000 (+0000)
Subject: Synch to No Gnus 200502030701.
X-Git-Tag: t-gnus-6_17_4-quimby-~571
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7cdb157846faa67c30f501b0637867103226be22;p=elisp%2Fgnus.git-

Synch to No Gnus 200502030701.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1fc184c..f640f27 100644
--- 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 0db89d3..ce61994 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4701,7 +4701,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