undo last change.

diff --git a/ChangeLog b/ChangeLog
index bb6f16f..8738d62 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,10 +1,5 @@
 1999-11-09   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
-       * 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 (file)
--- 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 (file)
--- 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))