From: keiichi <keiichi>
Date: Tue, 30 Mar 1999 10:49:11 +0000 (+0000)
Subject: (mime-edit-decode-single-part-in-buffer): Normalize EOL code in MIME encoded
X-Git-Tag: semi-1_13_4~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9cd180eca8c69368ff55754dea11e713924fa083;p=elisp%2Fsemi.git

(mime-edit-decode-single-part-in-buffer): Normalize EOL code in MIME encoded
text part.
---

diff --git a/mime-edit.el b/mime-edit.el
index 0c04b97..cc66009 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2704,9 +2704,15 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 			      encoding nil)
 			)))))))
     (if (or encoded (not not-decode-text))
-	(decode-mime-charset-region (point-min)(point-max)
-				    (or charset default-mime-charset))
-      )
+ 	(progn
+ 	  (save-excursion
+ 	    (goto-char (point-min))
+ 	    (while (re-search-forward "\r\n" nil t)
+ 	      (replace-match "\n")
+ 	      ))
+ 	  (decode-mime-charset-region (point-min)(point-max)
+ 				      (or charset default-mime-charset))
+	  ))
     (let ((he (if (re-search-forward "^$" nil t)
 		  (match-end 0)
 		(point-min)