From: morioka <morioka>
Date: Tue, 7 Jul 1998 14:00:39 +0000 (+0000)
Subject: (write-body): Renamed from `write-entity-body'.
X-Git-Tag: chao-1_8-199811302358~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f02a131606e3e36bb5e8f5cc1e7c2e8a0c780c69;p=elisp%2Fflim.git

(write-body): Renamed from `write-entity-body'.
(eword-visible-field-p): Moved from mime.el.
---

diff --git a/mmbuffer.el b/mmbuffer.el
index 98ba527..3d423e1 100644
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -73,7 +73,7 @@
 			    filename)
     ))
 
-(mm-define-method write-entity-body ((entity buffer) filename)
+(mm-define-method write-body ((entity buffer) filename)
   (save-excursion
     (set-buffer (mime-entity-buffer-internal entity))
     (write-region-as-binary (mime-entity-body-start-internal entity)
@@ -81,6 +81,25 @@
 			    filename)
     ))
 
+(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)))
+
 (mm-define-method insert-decoded-header ((entity buffer)
 					 &optional invisible-fields
 					 visible-fields)