1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/rfc6068.el b/lisp/mail/rfc6068.el
index 8f0b4234410..cfa51196000 100644
--- a/lisp/mail/rfc6068.el
+++ b/lisp/mail/rfc6068.el
@@ -39,7 +39,8 @@ string instead of decoding as utf-8."
           (buffer-string))))
    (if inhibit-decode
        string
-      (decode-coding-string string 'utf-8))))
+      (let (inhibit-eol-conversion)
+        (decode-coding-string string 'utf-8-dos)))))
 (defun rfc6068-parse-mailto-url (mailto-url)
  "Parse MAILTO-URL, and return an alist of header-name, header-value pairs.

diff --git a/lisp/mail/rfc6068.el b/lisp/mail/rfc6068.el index 8f0b4234410..cfa51196000 100644 --- a/lisp/mail/rfc6068.el +++ b/lisp/mail/rfc6068.el
@@ -39,7 +39,8 @@ string instead of decoding as utf-8."
39	(buffer-string))))	39	(buffer-string))))
40	(if inhibit-decode	40	(if inhibit-decode
41	string	41	string
42	(decode-coding-string string 'utf-8))))	42	(let (inhibit-eol-conversion)
		43	(decode-coding-string string 'utf-8-dos)))))
43		44
44	(defun rfc6068-parse-mailto-url (mailto-url)	45	(defun rfc6068-parse-mailto-url (mailto-url)
45	"Parse MAILTO-URL, and return an alist of header-name, header-value pairs.	46	"Parse MAILTO-URL, and return an alist of header-name, header-value pairs.