(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 (file)
--- 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)