(write-region-as-raw-text-CRLF): Use `write-region-as-binary' to

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

diff --git a/emu-mule.el b/emu-mule.el
index 6be3828..cbfa40c 100644 (file)
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -217,12 +217,12 @@ 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")
        )
-      (let ((file-coding-system *noconv*))
-       (write-region (point-min)(point-max) filename append visit)
-       ))))
+      (write-region-as-binary (point-min)(point-max)
+                             filename append visit lockname)
+      )))
 
 
 ;;; @ MIME charset