From: morioka <morioka>
Date: Wed, 24 Jun 1998 01:35:03 +0000 (+0000)
Subject: (mime-entity-safe-filename): Use `mime-read-field' instead of
X-Git-Tag: semi-1_8_0~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c749f3b630c56af8c7fb023ee29dc93879a7712f;p=elisp%2Fsemi.git

(mime-entity-safe-filename): Use `mime-read-field' instead of
`mime-entity-read-field'.
---

diff --git a/mime-play.el b/mime-play.el
index ee41aba..d2e2f61 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -298,8 +298,8 @@ window.")
   (let ((filename
 	 (or (mime-entity-filename entity)
 	     (let ((subj
-		    (or (mime-entity-read-field entity 'Content-Description)
-			(mime-entity-read-field entity 'Subject))))
+		    (or (mime-read-field 'Content-Description entity)
+			(mime-read-field 'Subject entity))))
 	       (if (and subj
 			(or (string-match mime-view-file-name-regexp-1 subj)
 			    (string-match mime-view-file-name-regexp-2 subj)))
diff --git a/mime-view.el b/mime-view.el
index bba8aed..32ff988 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -251,8 +251,8 @@ If optional argument MESSAGE-INFO is not specified,
 	     ))))
 
 (defun mime-view-entity-title (entity)
-  (or (mime-entity-read-field entity 'Content-Description)
-      (mime-entity-read-field entity 'Subject)
+  (or (mime-read-field 'Content-Description entity)
+      (mime-read-field 'Subject entity)
       (mime-entity-filename entity)
       ""))