From ec5211139dc68f901c844c4a77c4d81bb90dcc0a Mon Sep 17 00:00:00 2001
From: keiichi <keiichi>
Date: Wed, 5 Jan 2000 06:03:15 +0000
Subject: [PATCH] (mmgnus-entity-body): New function. (mime-entity-content):
 Use `mmgnus-entity-body'. (mime-insert-entity-content): New
 method. (mime-write-entity-content): Likewise.
 (mime-insert-entity): Likewise. (mime-write-entity):
 Likewise. (mime-write-entity-body): Likewise.

---
 lisp/mmgnus.el |   44 ++++++++++++++++++++++++++++++++++++--------
 1 file changed, 36 insertions(+), 8 deletions(-)

diff --git a/lisp/mmgnus.el b/lisp/mmgnus.el
index b068338..9bcd755 100644
--- a/lisp/mmgnus.el
+++ b/lisp/mmgnus.el
@@ -93,6 +93,15 @@
 	    (insert "\n")
 	    ))))))
 
+(defun mmgnus-entity-body (entity)
+   (cond
+    ((bufferp (mmgnus-entity-body-internal entity))
+     (with-current-buffer (mmgnus-entity-body-internal entity)
+       (buffer-string)))
+    (t
+     (error "Invalid body object. %s"
+	    (mmgnus-entity-body-internal entity)))))
+
 (luna-define-method mime-insert-header ((entity mmgnus-entity)
 					&optional invisible-fields
 					visible-fields)
@@ -101,14 +110,33 @@
    invisible-fields visible-fields))
 
 (luna-define-method mime-entity-content ((entity mmgnus-entity))
-  (save-excursion
-    (cond
-     ((bufferp (mmgnus-entity-body-internal entity))
-      (set-buffer (mmgnus-entity-body-internal entity))
-      (mime-decode-string (buffer-string) (mime-entity-encoding entity)))
-     (t
-      (error "Invalid body object. %s"
-	     (mmgnus-entity-body-internal entity))))))
+  (mime-decode-string (mmgnus-entity-body entity)
+		      (mime-entity-encoding entity)))
+
+(luna-define-method mime-insert-entity-content ((entity mmgnus-entity))
+  (insert (mime-entity-content entity)))
+
+(luna-define-method mime-write-entity-content ((entity mmgnus-entity) filename)
+  (with-temp-buffer
+    (insert (mmgnus-entity-body entity))
+    (mime-write-decoded-region (point-min) (point-max)
+			       filename
+			       (or (mime-entity-encoding entity) "7bit"))))
+
+(luna-define-method mime-insert-entity ((entity mmgnus-entity))
+  (insert (mmgnus-entity-header-internal entity)
+	  "\n"
+	  (mmgnus-entity-body entity)))
+
+(luna-define-method mime-write-entity ((entity mmgnus-entity) filename)
+  (with-temp-buffer
+    (mime-insert-entity entity)
+    (write-region-as-raw-text-CRLF (point-min) (point-max) filename)))
+
+(luna-define-method mime-write-entity-body ((entity mmgnus-entity) filename)
+  (with-temp-buffer
+    (insert (mmgnus-entity-body entity))
+    (write-region-as-binary (point-min) (point-max) filename)))
 
 (luna-define-class mime-gnus-entity (mmgnus-entity)
 		   (number
-- 
1.7.10.4