From: morioka <morioka>
Date: Wed, 26 Nov 1997 09:40:34 +0000 (+0000)
Subject: (mh-display-msg): Use `raw-text' coding-system do canonicalize line
X-Git-Tag: emh-0_23~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=495d55fed1fde619fecb42120fc8faf610a16036;p=elisp%2Femh.git

(mh-display-msg): Use `raw-text' coding-system do canonicalize line
break code.
---

diff --git a/emh.el b/emh.el
index 1996c2f..7319024 100644
--- a/emh.el
+++ b/emh.el
@@ -8,7 +8,7 @@
 ;; Created: 1993/11/21
 ;;	Renamed: 1993/11/27 from mh-e-mime.el
 ;;	Renamed: 1997/02/21 from tm-mh-e.el
-;; Version: $Revision: 0.22 $
+;; Version: $Revision: 0.23 $
 ;; Keywords: MH, MIME, multimedia, encoded-word, multilingual, mail
 
 ;; This file is part of emh.
@@ -38,7 +38,7 @@
 ;;;
 
 (defconst emh-RCS-ID
-  "$Id: emh.el,v 0.22 1997-11-15 15:37:34 morioka Exp $")
+  "$Id: emh.el,v 0.23 1997-11-26 09:40:34 morioka Exp $")
 
 (defconst emh-version (get-version-string emh-RCS-ID))
 
@@ -102,13 +102,9 @@ nil, `emh-automatic-mime-preview' is used as default value."
 		   (setq abuf (get-buffer-create aname))
 		   (set-buffer abuf)
 		   )
-		 (as-binary-input-file
-		  (insert-file-contents msg-filename)
-		  ;; (goto-char (point-min))
-		  (while (re-search-forward "\r$" nil t)
-		    (replace-match "")
-		    )
-		  )
+		 (let ((coding-system-for-read 'raw-text))
+		   (insert-file-contents msg-filename)
+		   )
 		 (set-buffer-modified-p nil)
 		 (setq buffer-read-only t)
 		 (setq buffer-file-name msg-filename)