2000-11-14 10:20:56 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mml2015.el (mml2015-mailcrypt-verify): replace-match is
	incompatible.
	(mml2015-mailcrypt-sign): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7aedcaa..6dad96e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-11-14 10:20:56  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mml2015.el (mml2015-mailcrypt-verify): replace-match is
+       incompatible.
+       (mml2015-mailcrypt-sign): Ditto.
+
 2000-11-14 10:12:05  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-msg.el (gnus-inews-do-gcc): Update summary data when the

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index d38bf68..ff72f35 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -168,10 +168,10 @@
          (narrow-to-region (point) (point))
          (mm-insert-part part)
          (goto-char (point-min))
-         (if (re-search-forward "^-----\\([^-]+\\)-----$" nil t)
-             (replace-match "BEGIN PGP SIGNATURE" t t nil 1))
-         (if (re-search-forward "^-----\\([^-]+\\)-----$" nil t)
-             (replace-match "END PGP SIGNATURE" t t nil 1)))
+         (if (re-search-forward "^-----BEGIN PGP [^-]+-----\r?$" nil t)
+             (replace-match "-----BEGIN PGP SIGNATURE-----" t t))
+         (if (re-search-forward "^-----END PGP [^-]+-----\r?$" nil t)
+             (replace-match "-----END PGP SIGNATURE-----" t t)))
        (unless (condition-case err
                    (funcall mml2015-verify-function)
                  (error 
@@ -230,14 +230,14 @@
     (insert (format "\n--%s\n" boundary))
     (setq point (point))
     (goto-char (point-max))
-    (unless (re-search-backward "^-----END PGP \\(SIGNATURE\\)-----\r?$" nil t)
+    (unless (re-search-backward "^-----END PGP SIGNATURE-----\r?$" nil t)
       (error "Cannot find signature part." ))
-    (replace-match "MESSAGE" t t nil 1)
+    (replace-match "-----END PGP MESSAGE-----" t t)
     (goto-char (match-beginning 0))
-    (unless (re-search-backward "^-----BEGIN PGP \\(SIGNATURE\\)-----\r?$" 
+    (unless (re-search-backward "^-----BEGIN PGP SIGNATURE-----\r?$" 
                                nil t)
       (error "Cannot find signature part." ))
-    (replace-match "MESSAGE" t t nil 1)
+    (replace-match "-----BEGIN PGP MESSAGE-----" t t)
     (goto-char (match-beginning 0))
     (save-restriction
       (narrow-to-region point (point))