From 9ba67f17ceca62ca176b81b8288ff9d413e7554b Mon Sep 17 00:00:00 2001 From: keiichi Date: Sat, 25 Dec 1999 05:38:54 +0000 Subject: [PATCH] (mm-dissect-buffer-header): Correspondence with FLIM. --- lisp/mm-decode.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) 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." -- 1.7.10.4