From 9cd180eca8c69368ff55754dea11e713924fa083 Mon Sep 17 00:00:00 2001 From: keiichi Date: Tue, 30 Mar 1999 10:49:11 +0000 Subject: [PATCH] (mime-edit-decode-single-part-in-buffer): Normalize EOL code in MIME encoded text part. --- mime-edit.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) 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) -- 1.7.10.4