From ba19624cf0913c0e41a01e797d6b992cdfd3a08c Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Mon, 8 Dec 2003 00:45:33 +0000 Subject: [PATCH] =?utf8?q?(mml-smime-sign):=20Replace=20CRLF=20with=20LF?= =?utf8?q?=20in=20OpenSSL=20output.=20=20Reported=20by=20Arne=20J=F8rgense?= =?utf8?q?n=20.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/ChangeLog | 5 +++++ lisp/mml-smime.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 855d53987..63c4f5c45 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-12-08 Simon Josefsson + + * mml-smime.el (mml-smime-sign): Replace CRLF with LF in OpenSSL + output. Reported by Arne J,Ax(Brgensen . + 2003-12-07 Simon Josefsson * pgg-gpg.el (pgg-gpg-recipient-arg): Add. diff --git a/lisp/mml-smime.el b/lisp/mml-smime.el index 82d13df45..45e06d730 100644 --- 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) -- 2.25.1