From: morioka <morioka>
Date: Tue, 7 Jul 1998 13:54:12 +0000 (+0000)
Subject: Move `eword-visible-field-p' to mmbuffer.el.
X-Git-Tag: chao-1_8-199811302358~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=beb10fd3f5af16b6a881d1e24edefa9ad953b95e;p=elisp%2Fflim.git

Move `eword-visible-field-p' to mmbuffer.el.
(mime-write-entity-body): Change message to `write-body'.
---

diff --git a/mime.el b/mime.el
index 1b201b4..1b5888b 100644
--- a/mime.el
+++ b/mime.el
@@ -257,25 +257,6 @@ ENTITY is used."
 		    entity (put-alist field-name field header))
 		   field)))))))
 
-(defun eword-visible-field-p (field-name visible-fields invisible-fields)
-  (or (catch 'found
-	(while visible-fields
-	  (let ((regexp (car visible-fields)))
-	    (if (string-match regexp field-name)
-		(throw 'found t)
-	      ))
-	  (setq visible-fields (cdr visible-fields))
-	  ))
-      (catch 'found
-	(while invisible-fields
-	  (let ((regexp (car invisible-fields)))
-	    (if (string-match regexp field-name)
-		(throw 'found nil)
-	      ))
-	  (setq invisible-fields (cdr invisible-fields))
-	  )
-	t)))
-
 (defun mime-insert-decoded-header (entity &optional invisible-fields
 					  visible-fields)
   "Insert before point a decoded header of ENTITY."
@@ -337,7 +318,7 @@ ENTITY is used."
 
 (defun mime-write-entity-body (entity filename)
   "Write body of ENTITY into FILENAME."
-  (mime-entity-send entity 'write-entity-body filename))
+  (mime-entity-send entity 'write-body filename))
 
 
 ;;; @ end