From: yamaoka <yamaoka>
Date: Fri, 8 Oct 2004 07:25:09 +0000 (+0000)
Subject: Synch to No Gnus 200410080724.
X-Git-Tag: t-gnus-6_17_4-quimby-~720
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f57c13ed46723c1ef9c00ebaab365be30d02bb87;p=elisp%2Fgnus.git-

Synch to No Gnus 200410080724.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b05349e..e16fd7d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-08  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* mm-uu.el (mm-uu-dissect-text-parts): Support all text/* types.
+
 2004-10-07  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
 	* gnus-art.el (gnus-mime-display-single): Call `mm-display-inline'
diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index 4efbfff..f6c139b 100644
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -500,11 +500,13 @@ value of `mm-uu-text-plain-type'."
 (defun mm-uu-dissect-text-parts (handle)
   "Dissect text parts and put uu handles into HANDLE."
   (let ((buffer (mm-handle-buffer handle))
-	children)
+	type children)
     (cond ((stringp buffer)
 	   (mapc 'mm-uu-dissect-text-parts (cdr handle)))
 	  ((bufferp buffer)
-	   (when (and (equal "text/plain" (mm-handle-media-type handle))
+	   (when (and (setq type (mm-handle-media-type handle))
+		      (stringp type)
+		      (string-match "\\`text/" type)
 		      (with-current-buffer buffer
 			(setq children
 			      (mm-uu-dissect t (mm-handle-type handle)))))