From: morioka <morioka>
Date: Wed, 17 Jun 1998 17:53:42 +0000 (+0000)
Subject: (mime-view-entity-title): Renamed from `mime-raw-get-subject'; use
X-Git-Tag: remi-199811302358~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9ceaf8c0ef0552eca59434f3d209d4e91134be2c;p=elisp%2Fsemi.git

(mime-view-entity-title): Renamed from `mime-raw-get-subject'; use
`mime-entity-read-field'.
---

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