From beb10fd3f5af16b6a881d1e24edefa9ad953b95e Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 7 Jul 1998 13:54:12 +0000 Subject: [PATCH] Move `eword-visible-field-p' to mmbuffer.el. (mime-write-entity-body): Change message to `write-body'. --- mime.el | 21 +-------------------- 1 file changed, 1 insertion(+), 20 deletions(-) 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 -- 1.7.10.4