projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
75354d9
)
Synch to No Gnus 200410080724.
author
yamaoka
<yamaoka>
Fri, 8 Oct 2004 07:25:09 +0000
(07:25 +0000)
committer
yamaoka
<yamaoka>
Fri, 8 Oct 2004 07:25:09 +0000
(07:25 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/mm-uu.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
b05349e
..
e16fd7d
100644
(file)
--- 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'
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
(file)
--- 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))
(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)
(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)))))
(with-current-buffer buffer
(setq children
(mm-uu-dissect t (mm-handle-type handle)))))