From f57c13ed46723c1ef9c00ebaab365be30d02bb87 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 8 Oct 2004 07:25:09 +0000 Subject: [PATCH] Synch to No Gnus 200410080724. --- lisp/ChangeLog | 4 ++++ lisp/mm-uu.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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 + + * mm-uu.el (mm-uu-dissect-text-parts): Support all text/* types. + 2004-10-07 TSUCHIYA Masatoshi * 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))))) -- 1.7.10.4