(mml-smime-sign): Replace CRLF with LF in OpenSSL

output.  Reported by Arne Jørgensen <arne@arnested.dk>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 855d539..63c4f5c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-08  Simon Josefsson  <jas@extundo.com>
+
+       * mml-smime.el (mml-smime-sign): Replace CRLF with LF in OpenSSL
+       output.  Reported by Arne J\e,Ax\e(Brgensen <arne@arnested.dk>.
+
 2003-12-07  Simon Josefsson  <jas@extundo.com>
 
        * pgg-gpg.el (pgg-gpg-recipient-arg): Add.

diff --git a/lisp/mml-smime.el b/lisp/mml-smime.el
index 82d13df..45e06d7 100644 (file)
--- a/lisp/mml-smime.el
+++ b/lisp/mml-smime.el
@@ -34,6 +34,9 @@
     (customize-variable 'smime-keys)
     (error "No S/MIME keys configured, use customize to add your key"))
   (smime-sign-buffer (cdr (assq 'keyfile cont)))
+  (goto-char (point-min))
+  (while (search-forward "\r\n" nil t)
+    (replace-match "\n" t t))
   (goto-char (point-max)))
 
 (defun mml-smime-encrypt (cont)