Synch to No Gnus 200601311136.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2e0050..354a86f 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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