From f1dbac22d9fd0823363a6837148288b5334d365d Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 21 Mar 1998 22:11:56 +0000 Subject: [PATCH] (mime-view-display-entity): Modify to omit check for body-presentation-method. --- mime-view.el | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/mime-view.el b/mime-view.el index 4e05ae2..d714772 100644 --- a/mime-view.el +++ b/mime-view.el @@ -707,23 +707,23 @@ The compressed face will be piped to this command.") (cons 'encoding encoding) (cons 'major-mode major-mode) params))) - (body-filter (cdr (assq 'body-filter situation))) - (body-presentation-method - (cdr (assq 'body-presentation-method situation)))) - (cond ((functionp body-filter) - (save-restriction - (narrow-to-region (point-max)(point-max)) - (insert-buffer-substring mime-raw-buffer end-of-header end) - (funcall body-filter ctype params encoding) - )) - ((functionp body-presentation-method) - (funcall body-presentation-method situation) - ) - ((and (null entity-node-id) - (null (mime-entity-children message-info))) - (goto-char (point-max)) - (mime-view-insert-entity-button entity message-info subj) - )) + (body-filter (cdr (assq 'body-filter situation)))) + (if (functionp body-filter) + (save-restriction + (narrow-to-region (point-max)(point-max)) + (insert-buffer-substring mime-raw-buffer end-of-header end) + (funcall body-filter ctype params encoding) + ) + (let ((body-presentation-method + (cdr (assq 'body-presentation-method situation)))) + (cond ((functionp body-presentation-method) + (funcall body-presentation-method situation) + ) + ((and (null entity-node-id) + (null (mime-entity-children message-info))) + (goto-char (point-max)) + (mime-view-insert-entity-button entity message-info subj) + )))) (when (mime-view-entity-separator-visible-p entity message-info) (goto-char (point-max)) (insert "\n")) -- 1.7.10.4