X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmm-uu.el;h=f6c139bb4035f10959fdf0922dfce0fce4a61ffa;hb=f57c13ed46723c1ef9c00ebaab365be30d02bb87;hp=4efbfffe25c18c3969754e6e511930c5d92c778a;hpb=75354d9e5001f1689c78fc0b606b364c514b2e6b;p=elisp%2Fgnus.git- 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)))))