2001-10-30 20:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mml2015.el (mml2015-gpg-verify): Convert <LF> to <CR><LF>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index deca2ec..f0c7ba7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-30 20:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mml2015.el (mml2015-gpg-verify): Convert <LF> to <CR><LF>.
+
 2001-10-30 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-spec.el (gnus-parse-simple-format): Use

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index c52f888..5989e3f 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -444,6 +444,16 @@ by you.")
       (with-temp-buffer
        (setq message (current-buffer))
        (insert part)
+       ;; Convert <LF> to <CR><LF> in verify mode.  Sign and
+       ;; clearsign use --textmode. The conversion is not necessary.
+       ;; In clearverify, the conversion is not necessary either.
+       (goto-char (point-min))
+       (end-of-line)
+       (while (not (eobp))
+         (unless (eq (char-before) ?\r)
+           (insert "\r"))
+         (forward-line)
+         (end-of-line))
        (with-temp-buffer
          (setq signature (current-buffer))
          (unless (setq part (mm-find-part-by-type