Synch with Oort Gnus.

[elisp/gnus.git-] / lisp / mml1991.el

diff --git a/lisp/mml1991.el b/lisp/mml1991.el
index 04e28c6..ff44132 100644 (file)
--- a/lisp/mml1991.el
+++ b/lisp/mml1991.el
@@ -238,6 +238,9 @@
       (error "Encrypt error"))
     (kill-region (point-min) (point-max))
     (insert-buffer pgg-output-buffer)
+    (goto-char (point-min))
+    (while (re-search-forward "\r+$" nil t)
+      (replace-match "" t t))
     (quoted-printable-encode-region (point-min) (point-max))
     (goto-char (point-min))
     (if headers (insert headers))