From: teranisi <teranisi>
Date: Fri, 13 Feb 2004 06:49:59 +0000 (+0000)
Subject: * elmo-file.el (elmo-map-message-fetch): Decode body only when content
X-Git-Tag: wl-2_11_25~66
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6e52be5ed73e95bbf993dac17baf0c87d29239f2;p=elisp%2Fwanderlust.git

* elmo-file.el (elmo-map-message-fetch): Decode body only when content
type seems to be a text.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 453db8f..c709995 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-file.el (elmo-map-message-fetch): Decode body only when content
+	type seems to be a text.
+
 2004-02-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elsp-sa.el (elmo-spam-register-spam-buffer): Don't specify '--forget'.
diff --git a/elmo/elmo-file.el b/elmo/elmo-file.el
index 58fb1b0..4f259e7 100644
--- a/elmo/elmo-file.el
+++ b/elmo/elmo-file.el
@@ -135,39 +135,42 @@
 				(elmo-file-folder-file-path-internal folder)))
 	charset guess uid)
     (when (file-exists-p file)
+      (set-buffer-multibyte nil)
       (prog1
 	  (insert-file-contents-as-binary file)
 	(unless (or (std11-field-body "To")
 		    (std11-field-body "Cc")
 		    (std11-field-body "Subject"))
-	    (erase-buffer)
+	  (setq guess (mime-find-file-type file))
+	  (when (string= (nth 0 guess) "text")
 	    (set-buffer-multibyte t)
-	    (insert-file-contents file)
+	    (decode-coding-region
+	     (point-min) (point-max)
+	     elmo-mime-display-as-is-coding-system)
 	    (setq charset (detect-mime-charset-region (point-min)
-						      (point-max)))
-	    (goto-char (point-min))
-	    (setq guess (mime-find-file-type file))
-	    (setq uid (nth 2 (file-attributes file)))
-	    (insert "From: " (concat (user-full-name uid)
-				     " <"(user-login-name uid) "@"
-				     (system-name) ">") "\n")
-	    (insert "Subject: " (file-name-nondirectory file) "\n")
-	    (insert "Date: "
-		    (elmo-file-make-date-string (file-attributes file))
-		    "\n")
-	    (insert "Message-ID: "
-		    (concat "<" (elmo-replace-in-string file "/" ":")
-			    "@" (system-name) ">\n"))
-	    (insert "Content-Type: "
-		    (concat (nth 0 guess) "/" (nth 1 guess))
-		    (or (and (string= (nth 0 guess) "text")
-			     (concat
-			      "; charset=" (upcase (symbol-name charset))))
-			"")
-		    "\nMIME-Version: 1.0\n\n")
-	    (when (string= (nth 0 guess) "text")
-	      (encode-mime-charset-region (point-min) (point-max) charset))
-	    (set-buffer-multibyte nil))))))
+						      (point-max))))
+	  (goto-char (point-min))
+	  (setq uid (nth 2 (file-attributes file)))
+	  (insert "From: " (concat (user-full-name uid)
+				   " <"(user-login-name uid) "@"
+				   (system-name) ">") "\n")
+	  (insert "Subject: " (file-name-nondirectory file) "\n")
+	  (insert "Date: "
+		  (elmo-file-make-date-string (file-attributes file))
+		  "\n")
+	  (insert "Message-ID: "
+		  (concat "<" (elmo-replace-in-string file "/" ":")
+			  "@" (system-name) ">\n"))
+	  (insert "Content-Type: "
+		  (concat (nth 0 guess) "/" (nth 1 guess))
+		  (or (and (string= (nth 0 guess) "text")
+			   (concat
+			    "; charset=" (upcase (symbol-name charset))))
+		      "")
+		  "\nMIME-Version: 1.0\n\n")
+	  (when (string= (nth 0 guess) "text")
+	    (encode-mime-charset-region (point-min) (point-max) charset))
+	  (set-buffer-multibyte nil))))))
 
 (luna-define-method elmo-map-folder-list-message-locations
   ((folder elmo-file-folder))