From: yamaoka <yamaoka>
Date: Tue, 31 Jan 2006 11:36:42 +0000 (+0000)
Subject: Synch to No Gnus 200601311136.
X-Git-Tag: t-gnus-6_17_4-quimby-~119
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=21888fb52971b4f6bdd8f01f54f6790a222bc7bf;p=elisp%2Fgnus.git-

Synch to No Gnus 200601311136.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2e0050..354a86f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2006-01-31  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* mm-uu.el (mm-uu-emacs-sources-extract): Say the part has been
+	decoded.
+	(mm-uu-diff-extract): Ditto.
+
+	* mm-view.el (mm-display-inline-fontify): Get decoded part rightly.
+
 2006-01-31  Kevin Ryde  <user42@zip.com.au>
 
 	* mailcap.el (mailcap-viewer-passes-test): Don't put "(nil t)" into
diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index d6e0f49..af41774 100644
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -370,7 +370,7 @@ apply the face `mm-uu-extract'."
 
 (defun mm-uu-emacs-sources-extract ()
   (mm-make-handle (mm-uu-copy-to-buffer start-point end-point)
-		  '("application/emacs-lisp")
+		  '("application/emacs-lisp" (charset . gnus-decoded))
 		  nil nil
 		  (list mm-dissect-disposition
 			(cons 'filename file-name))))
@@ -386,7 +386,7 @@ apply the face `mm-uu-extract'."
 
 (defun mm-uu-diff-extract ()
   (mm-make-handle (mm-uu-copy-to-buffer start-point end-point)
-		  '("text/x-patch")))
+		  '("text/x-patch" (charset . gnus-decoded))))
 
 (defun mm-uu-diff-test ()
   (and gnus-newsgroup-name
diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 319acf7..1d180bb 100644
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -540,7 +540,8 @@
       (buffer-disable-undo)
       (mm-enable-multibyte)
       (insert (cond ((eq charset 'gnus-decoded)
-		     (mm-insert-part handle))
+		     (with-current-buffer (mm-handle-buffer handle)
+		       (buffer-string)))
 		    (coding-system
 		     (mm-decode-coding-string text coding-system))
 		    (charset