(select-message-coding-system): Be

sure to use LF for end-of-line.  If no coding system is decided,
return iso-8859-1-unix.

1 files changed, 13 insertions, 4 deletions

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 077a196f474..acd53732140 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1027,10 +1027,19 @@ it asks the user to select a proper coding system."
 	;; We should never use no-conversion for outgoing mail.
 	(setq coding nil))
     (if (fboundp select-safe-coding-system-function)
-	(funcall select-safe-coding-system-function
-		 (point-min) (point-max) coding
-		 (function (lambda (x) (coding-system-get x 'mime-charset))))
-      coding)))
+	(setq coding
+	      (funcall select-safe-coding-system-function
+		       (point-min) (point-max) coding
+		       (function (lambda (x)
+				   (coding-system-get x 'mime-charset))))))
+    (if coding
+	;; Be sure to use LF for end-of-line.
+	(setq coding (coding-system-change-eol-conversion coding 'unix))
+      ;; No coding system is decided.  Usually this is the case that
+      ;; the current buffer contains only ASCII.  So, we hope
+      ;; iso-8859-1 works.
+      (setq coding 'iso-8859-1-unix))
+    coding))
 
 ;;; Language support stuff.