From f02a131606e3e36bb5e8f5cc1e7c2e8a0c780c69 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Tue, 7 Jul 1998 14:00:39 +0000
Subject: [PATCH] (write-body): Renamed from `write-entity-body'.
 (eword-visible-field-p): Moved from mime.el.

---
 mmbuffer.el |   21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

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