From: keiichi <keiichi>
Date: Sat, 25 Dec 1999 05:38:54 +0000 (+0000)
Subject: (mm-dissect-buffer-header): Correspondence with FLIM.
X-Git-Tag: nana-gnus-7_1_0_16~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9ba67f17ceca62ca176b81b8288ff9d413e7554b;p=elisp%2Fgnus.git-

(mm-dissect-buffer-header): Correspondence with FLIM.
---

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 23c6f56..76d564d 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -221,9 +221,9 @@ to:
 		id (mail-fetch-field "content-id"))))
       (unless ctl
 	(setq ctl (mail-header-parse-content-type "text/plain")))
-      (setq cte (and cte (intern (downcase (mail-header-remove-whitespace
-					    (mail-header-remove-comments
-					     cte)))))
+      (setq cte (and cte (downcase (mail-header-remove-whitespace
+				    (mail-header-remove-comments
+				     cte))))
 	    cd (and cd (ignore-errors
 			 (mail-header-parse-content-disposition cd))))
       (cond
@@ -267,10 +267,7 @@ to:
 (defun mm-dissect-singlepart (handle ctl &optional force)
   (mime-buffer-entity-set-buffer-internal handle (mm-copy-to-buffer))
   (push (mm-handle-buffer handle) mm-dissection-list)
-  (when (or force
-	    (not (and (eq (mime-content-type-primary-type ctl) 'text)
-		      (eq (mime-content-type-subtype ctl) 'plane))))
-    handle))
+  handle)
 
 (defun mm-remove-all-parts ()
   "Remove all MIME handles."