From: morioka Date: Mon, 19 Oct 1998 19:00:55 +0000 (+0000) Subject: (mime-view-ignored-field-list): Modify each element of initial value X-Git-Tag: semi-1_10_0~20 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e933ee5c6179f33f51bd4b47934844c04ffd903a;p=elisp%2Fsemi.git (mime-view-ignored-field-list): Modify each element of initial value to include `:'. (mime-view-visible-field-list): Likewise. (mime-display-entity): Use `mime-insert-header' instead of `mime-insert-decoded-header'. --- diff --git a/mime-view.el b/mime-view.el index f52432a..12809cf 100644 --- a/mime-view.el +++ b/mime-view.el @@ -295,15 +295,15 @@ SYMBOL must be major mode in raw-buffer or t. t means default. Interface of FUNCTION must be (ENTITY SITUATION).") (defvar mime-view-ignored-field-list - '(".*Received" ".*Path" ".*Id" "References" - "Replied" "Errors-To" - "Lines" "Sender" ".*Host" "Xref" - "Content-Type" "Precedence" - "Status" "X-VM-.*") + '(".*Received:" ".*Path:" ".*Id:" "^References:" + "^Replied:" "^Errors-To:" + "^Lines:" "^Sender:" ".*Host:" "^Xref:" + "^Content-Type:" "^Precedence:" + "^Status:" "^X-VM-.*:") "All fields that match this list will be hidden in MIME preview buffer. Each elements are regexp of field-name.") -(defvar mime-view-visible-field-list '("Dnas.*" "Message-Id") +(defvar mime-view-visible-field-list '("^Dnas.*:" "^Message-Id:") "All fields that match this list will be displayed in MIME preview buffer. Each elements are regexp of field-name.") @@ -681,9 +681,9 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t. t means default." (when header-is-visible (if header-presentation-method (funcall header-presentation-method entity situation) - (mime-insert-decoded-header entity - mime-view-ignored-field-list - mime-view-visible-field-list)) + (mime-insert-header entity + mime-view-ignored-field-list + mime-view-visible-field-list)) (goto-char (point-max)) (insert "\n") (run-hooks 'mime-display-header-hook)