From: ueno <ueno>
Date: Tue, 9 Nov 1999 03:26:10 +0000 (+0000)
Subject: * mime-pgp.el (mime-verify-application/pgp-signature): Don't
X-Git-Tag: emiko-1_13_7~28
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cd271ae8b5c99475a627a169874457c75e07f957;p=elisp%2Fsemi.git

* 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.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index 6d055d7..309c35a 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -150,10 +150,6 @@
     (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 60493bd..8384eeb 100644
--- a/pgg-gpg.el
+++ b/pgg-gpg.el
@@ -216,7 +216,9 @@
   (let ((args '("--batch" "--verify")))
     (when (stringp signature)
       (setq args (append args (list signature))))
-    (pgg-gpg-process-region start end nil pgg-gpg-program args)
+    (pgg-as-lbt start end 'CRLF
+      (pgg-gpg-process-region start end nil pgg-gpg-program args)
+      )
     (save-excursion
       (set-buffer pgg-errors-buffer)
       (goto-char (point-min))