From: morioka Date: Tue, 16 Jun 1998 22:48:06 +0000 (+0000) Subject: Rename `mime-method-to-save' to `mime-save-content'. X-Git-Tag: remi-199811302358~42 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ca82b3f71b6da1544fe3cb65d9edbce4372a7983;p=elisp%2Fsemi.git Rename `mime-method-to-save' to `mime-save-content'. (mime-display-entity): Abolish body-filter support. --- diff --git a/mime-view.el b/mime-view.el index 135442b..415cdf4 100644 --- a/mime-view.el +++ b/mime-view.el @@ -667,7 +667,7 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t. t means default." (ctree-set-calist-with-default 'mime-acting-condition '((mode . "extract") - (method . mime-method-to-save))) + (method . mime-save-content))) (ctree-set-calist-strictly 'mime-acting-condition @@ -701,7 +701,7 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t. t means default." (ctree-set-calist-strictly 'mime-acting-condition '((type . application)(subtype . octet-stream) - (method . mime-method-to-save) + (method . mime-save-content) )) @@ -818,15 +818,15 @@ The compressed face will be piped to this command.") (insert "\n") (run-hooks 'mime-display-header-hook) ) - (cond ((eq body-presentation-method 'with-filter) - (let ((body-filter (cdr (assq 'body-filter situation)))) - (save-restriction - (narrow-to-region (point-max)(point-max)) - (insert-buffer-substring - raw-buffer (mime-entity-body-start entity) end) - (funcall body-filter situation) - ))) - (children) + (cond (children) + ;; ((eq body-presentation-method 'with-filter) + ;; (let ((body-filter (cdr (assq 'body-filter situation)))) + ;; (save-restriction + ;; (narrow-to-region (point-max)(point-max)) + ;; (insert-buffer-substring + ;; raw-buffer (mime-entity-body-start entity) end) + ;; (funcall body-filter situation) + ;; ))) ((functionp body-presentation-method) (funcall body-presentation-method entity situation) )