2000-11-07 18:02:26 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mm-uu.el (mm-uu-type-alist): Don't test pgp stuff.
	(mm-uu-pgp-encrypted-extract): Clean mml2015 buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0846ae1..80969b6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-07 18:02:26  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-uu.el (mm-uu-type-alist): Don't test pgp stuff.
+       (mm-uu-pgp-encrypted-extract): Clean mml2015 buffer.
+
 2000-11-07 14:33:19  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-mime-display-part): Show MIME security button.

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index bd724c2..ec3c7f0 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -104,13 +104,13 @@ This can be either \"inline\" or \"attachment\".")
      "^-----END PGP SIGNATURE-----"
      mm-uu-pgp-signed-extract
      nil
-     mm-uu-pgp-signed-test)
+     nil)
     (pgp-encrypted
      "^-----BEGIN PGP MESSAGE-----"
      "^-----END PGP MESSAGE-----"
      mm-uu-pgp-encrypted-extract
      nil
-     mm-uu-pgp-encrypted-test)
+     nil)
     (pgp-key
      "^-----BEGIN PGP PUBLIC KEY BLOCK-----"
      "^-----END PGP PUBLIC KEY BLOCK-----"
@@ -262,7 +262,9 @@ To disable dissecting shar codes, for instance, add
     (mm-set-handle-multipart-parameter 
      mm-security-handle 'protocol "application/pgp-signature")
     (with-current-buffer buf
-      (funcall (mml2015-clear-verify-function))
+      (when (mm-uu-pgp-signed-test)
+       (mml2015-clean-buffer)
+       (funcall (mml2015-clear-verify-function)))
       (goto-char (point-min))
       (if (search-forward "\n\n" nil t)
          (delete-region (point-min) (point)))
@@ -289,8 +291,10 @@ To disable dissecting shar codes, for instance, add
        (mm-security-handle (list (format "multipart/encrypted"))))
     (mm-set-handle-multipart-parameter 
      mm-security-handle 'protocol "application/pgp-encrypted")
-    (with-current-buffer buf
-      (funcall (mml2015-clear-decrypt-function)))
+    (if (mm-uu-pgp-encrypted-test)
+       (with-current-buffer buf
+         (mml2015-clean-buffer)
+         (funcall (mml2015-clear-decrypt-function))))
     (setcdr mm-security-handle
            (list
             (mm-make-handle buf