From: morioka <morioka>
Date: Thu, 21 Jan 1999 14:10:47 +0000 (+0000)
Subject: (mime-detect-content): Use `mime-entity-content' (don't refer to
X-Git-Tag: semi-1_12-199901211900~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=218aa5f481798882c8c112c1f71dae063e758d61;p=elisp%2Fsemi.git

(mime-detect-content): Use `mime-entity-content' (don't refer to
buffer directly).
---

diff --git a/mime-play.el b/mime-play.el
index bf2b19b..65949f3 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -1,6 +1,6 @@
 ;;; mime-play.el --- Playback processing module for mime-view.el
 
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1994,1995,1996,1997,1998,1999 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
@@ -472,16 +472,7 @@ SUBTYPE is symbol to indicate subtype of media-type.")
 
 (defun mime-detect-content (entity situation)
   (let (type subtype)
-    (let ((mdata (save-excursion
-		   ;;(set-buffer (mime-entity-buffer entity))
-		   (let* ((start (mime-entity-body-start entity))
-			  (end (progn
-				 (goto-char start)
-				 (end-of-line)
-				 (point))))
-		     (mime-decode-string (buffer-substring start end)
-					 (mime-entity-encoding entity))
-		     )))
+    (let ((mdata (mime-entity-content entity))
 	  (rest mime-magic-type-alist))
       (while (not (let ((cell (car rest)))
 		    (if cell