* mime-edit.el (mime-edit-insert-file): Make it work with Emacs.

[elisp/semi.git] / mime-edit.el

diff --git a/mime-edit.el b/mime-edit.el
index 53a2355..7dc21fb 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1168,9 +1168,15 @@ Content-Transfer-Encoding and Content-Disposition headers."
                                  (car candidates)
                                candidates))
              (setq eol (coding-system-eol-type candidate))
-             (cond ((eq eol 'lf)
+             (cond ((eq eol
+                        (static-if (featurep 'xemacs)
+                            'lf
+                          0))
                     (setq eol-string "\n"))
-                   ((eq eol 'cr)
+                   ((eq eol
+                        (static-if (featurep 'xemacs)
+                            'cr
+                          2))
                     (setq eol-string "\r")))
              (goto-char (point-min))
              (when eol-string