From c749f3b630c56af8c7fb023ee29dc93879a7712f Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Wed, 24 Jun 1998 01:35:03 +0000
Subject: [PATCH] (mime-entity-safe-filename): Use `mime-read-field' instead
 of `mime-entity-read-field'.

---
 mime-play.el |    4 ++--
 mime-view.el |    4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

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)
       ""))
 
-- 
1.7.10.4