From 9ceaf8c0ef0552eca59434f3d209d4e91134be2c Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 17 Jun 1998 17:53:42 +0000 Subject: [PATCH] (mime-view-entity-title): Renamed from `mime-raw-get-subject'; use `mime-entity-read-field'. --- mime-view.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/mime-view.el b/mime-view.el index c57122d..930326c 100644 --- a/mime-view.el +++ b/mime-view.el @@ -28,8 +28,7 @@ ;;; Code: (require 'std11) -(require 'mel) -(require 'eword-decode) +(require 'mime-lib) (require 'mime-parse) (require 'semi-def) (require 'calist) @@ -251,8 +250,9 @@ If optional argument MESSAGE-INFO is not specified, (buffer-substring (match-beginning 0)(match-end 0)) )))) -(defun mime-raw-get-subject (entity) - (or (std11-find-field-body '("Content-Description" "Subject")) +(defun mime-view-entity-title (entity) + (or (mime-entity-read-field entity 'Content-Description) + (mime-entity-read-field entity 'Subject) (let ((ret (mime-entity-content-disposition entity))) (and ret (setq ret (mime-content-disposition-filename ret)) @@ -777,7 +777,7 @@ The compressed face will be piped to this command.") (goto-char start) (save-restriction (narrow-to-region start end) - (setq subj (eword-decode-string (mime-raw-get-subject entity))) + (setq subj (mime-view-entity-title entity)) ) (or situation (setq situation -- 1.7.10.4