* mm-decode.el (mm-possibly-verify-or-decrypt): Replace PARTS with the

ones returned from the verify-function.

* mm-uu.el (mm-uu-pgp-signed-extract-1): Call
mml2015-extract-cleartext-signature if extraction failed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 234249d..7bf9d75 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2007-10-08   Daiki Ueno  <ueno@unixuser.org>
+
+       * mm-decode.el (mm-possibly-verify-or-decrypt): Replace PARTS with the
+       ones returned from the verify-function.
+
+       * mm-uu.el (mm-uu-pgp-signed-extract-1): Call
+       mml2015-extract-cleartext-signature if extraction failed.
+
 2007-10-07  Daiki Ueno  <ueno@unixuser.org>
 
        * mm-uu.el (mm-uu-pgp-signed-extract-1): Delete the first line

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 09814da..14e5c25 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1536,7 +1536,7 @@ If RECURSIVE, search recursively."
                           (format "protocol=%s" protocol))))))
        (save-excursion
          (if func
-             (funcall func parts ctl)
+             (setq parts (funcall func parts ctl))
            (mm-set-handle-multipart-parameter
             mm-security-handle 'gnus-details
             (format "Unknown sign protocol (%s)" protocol))))))

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index e92d75a..c7f6b16 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -483,9 +483,7 @@ apply the face `mm-uu-extract'."
          (mm-set-handle-multipart-parameter
           mm-security-handle 'gnus-details
           (format "Clear verification not supported by `%s'.\n" mml2015-use)))
-       (goto-char (point-min))
-       (forward-line 1)
-       (delete-region (point-min) (point)))
+       (mml2015-extract-cleartext-signature))
       (list (mm-make-handle buf mm-uu-text-plain-type)))))
 
 (defun mm-uu-pgp-signed-extract ()