(write-region-as-raw-text-CRLF): Revert regexp to canonicalize line

[elisp/apel.git] / emu-mule.el

diff --git a/emu-mule.el b/emu-mule.el
index cbfa40c..6c31639 100644 (file)
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -217,7 +217,7 @@ find-file-hooks, etc.
     (with-temp-buffer
       (insert-buffer-substring the-buf start end)
       (goto-char (point-min))
-      (while (re-search-forward "\\([^\r]\\)\n" nil t)
+      (while (re-search-forward "\\(\\=\\|[^\r]\\)\n" nil t)
        (replace-match "\\1\r\n")
        )
       (write-region-as-binary (point-min)(point-max)