Deal with bare LF as newline.

diff --git a/mime-view.el b/mime-view.el
index 16b2dc7..7b91b1e 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -471,7 +471,7 @@ Each elements are regexp of field-name.")
     (insert (string-as-multibyte (mime-entity-content entity)))
     (goto-char (point-min))
     (while (re-search-forward
-            "\\(;\\(encoding=\\)?quoted-printable:\\)\\(\\(=[0-9A-F][0-9A-F]\\|=\r\n\\|[^\r\n]\\)*\\)"
+            "\\(;\\(encoding=\\)?quoted-printable:\\)\\(\\(=[0-9A-F][0-9A-F]\\|=\r?\n\\|[^\r\n]\\)*\\)"
             nil t)
       (replace-match
        (concat