From c8761492cca8c5c72693d901e502cfc210bf431b Mon Sep 17 00:00:00 2001 From: hayashi Date: Fri, 16 Jun 2000 08:40:28 +0000 Subject: [PATCH] * mime-edit.el (mime-edit-insert-file): Make it work with Emacs. --- ChangeLog | 4 ++++ mime-edit.el | 10 ++++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index a936862..e67604c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2000-06-16 Yoshiki Hayashi + * mime-edit.el (mime-edit-insert-file): Make it work with Emacs. + +2000-06-16 Yoshiki Hayashi + * mime-edit.el (mime-edit-insert-text-file): New function. (mime-file-types): Treat .htm as an HTML file. diff --git a/mime-edit.el b/mime-edit.el index 53a2355..7dc21fb 100644 --- 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 -- 1.7.10.4