From: morioka <morioka>
Date: Sun, 21 Jun 1998 14:55:27 +0000 (+0000)
Subject: (mime-view-message/rfc822): Use function
X-Git-Tag: semi-1_7_1~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f507f093ae70165b5e1ab4f3361066d66cff60ed;p=elisp%2Fsemi.git

(mime-view-message/rfc822): Use function
`mime-entity-representation-type'.
(mime-store-message/partial-piece): `mime-entity-body-start' and
`mime-entity-body-end'.
---

diff --git a/mime-play.el b/mime-play.el
index 1711d81..ee41aba 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -411,9 +411,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 	 (cnum (mime-raw-point-to-entity-number beg))
 	 (new-name (format "%s-%s" (buffer-name) cnum))
 	 (mother mime-preview-buffer)
-	 (representation-type
-	  (cdr (or (assq major-mode mime-raw-representation-type-alist)
-		   (assq t mime-raw-representation-type-alist))))
+	 (representation-type (mime-entity-representation-type entity))
 	 str)
     (setq str (buffer-substring beg end))
     (switch-to-buffer new-name)
@@ -486,10 +484,9 @@ saved as binary.  Otherwise the region is saved by `write-region'."
 			       mime-preview-buffer))
 	  (select-window pwin)
 	  )
-      (re-search-forward "^$")
-      (goto-char (1+ (match-end 0)))
       (setq file (concat root-dir "/" number))
-      (mime-raw-write-region (point) (mime-entity-point-max entity) file)
+      (mime-raw-write-region (mime-entity-body-start entity)
+			     (mime-entity-body-end entity) file)
       (let ((total-file (concat root-dir "/CT")))
 	(setq total
 	      (if total