From 0b9acae811f1290138c1316c4917d8ad60f584c2 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 9 Nov 1999 03:56:11 +0000 Subject: [PATCH] undo last change. --- ChangeLog | 5 ----- mime-pgp.el | 4 ++++ pgg-gpg.el | 4 +--- 3 files changed, 5 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index bb6f16f..8738d62 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,10 +1,5 @@ 1999-11-09 Daiki Ueno - * mime-pgp.el (mime-verify-application/pgp-signature): Don't - convert line break code. - - * pgg-gpg.el (verify-region): Convert line break code to CRLF. - * pgg-pgp.el, pgg-pgp5.el (sign-region): Don't convert line break code. diff --git a/mime-pgp.el b/mime-pgp.el index 309c35a..6d055d7 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -150,6 +150,10 @@ (unwind-protect (with-temp-buffer (mime-insert-entity orig-entity) + (goto-char (point-min)) + (while (progn (end-of-line) (not (eobp))) + (insert "\r") + (forward-line 1)) (setq status (pgg-verify-region (point-min)(point-max) sig-file 'fetch)) (save-excursion diff --git a/pgg-gpg.el b/pgg-gpg.el index 8384eeb..60493bd 100644 --- a/pgg-gpg.el +++ b/pgg-gpg.el @@ -216,9 +216,7 @@ (let ((args '("--batch" "--verify"))) (when (stringp signature) (setq args (append args (list signature)))) - (pgg-as-lbt start end 'CRLF - (pgg-gpg-process-region start end nil pgg-gpg-program args) - ) + (pgg-gpg-process-region start end nil pgg-gpg-program args) (save-excursion (set-buffer pgg-errors-buffer) (goto-char (point-min)) -- 1.7.10.4