# HG changeset patch
# User Katsumi Yamaoka <katsumi@flagship2>
# Date 1280053857 0
# Node ID bbcf76ef0f72d73891fa58b85f7fc5e093f4c8c6
# Parent  2fe88640ebd3c0308493f2bacc191b8efd280377# Parent  45a355dbe7fc2c85ad9d4ead43fc139bed459b60
Accept x-pkcs7-signature MIME type as signature.

2010-07-24  David Engster  <dengste@eml.cc>
 * mml-smime.el (mml-smime-epg-verify): Also accept the older
 x-pkcs7-signature MIME type as signature (RFC 2311, C.1).

diff -r 2fe88640ebd3 -r bbcf76ef0f72 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Jul 25 05:53:37 2010 +0200
+++ b/lisp/gnus/ChangeLog	Sun Jul 25 10:30:57 2010 +0000
@@ -1,3 +1,8 @@
+2010-07-24  David Engster  <dengste@eml.cc>
+
+	* mml-smime.el (mml-smime-epg-verify): Also accept the older
+	x-pkcs7-signature MIME type as signature (RFC 2311, C.1).
+
 2010-07-21  Daiki Ueno  <ueno@unixuser.org>
 
 	* mml.el (mml-parse-1): Collect "certfile" attributes in "<#secure>"
diff -r 2fe88640ebd3 -r bbcf76ef0f72 lisp/gnus/mml-smime.el
--- a/lisp/gnus/mml-smime.el	Sun Jul 25 05:53:37 2010 +0200
+++ b/lisp/gnus/mml-smime.el	Sun Jul 25 10:30:57 2010 +0000
@@ -520,10 +520,14 @@
 					   ctl 'protocol)
 					  "application/pkcs7-signature")
 				  t)))
-		(null (setq signature (mm-find-part-by-type
-				       (cdr handle)
-				       "application/pkcs7-signature"
-				       nil t))))
+		(null (setq signature (or (mm-find-part-by-type
+					   (cdr handle)
+					   "application/pkcs7-signature"
+					   nil t)
+					  (mm-find-part-by-type
+					   (cdr handle)
+					   "application/x-pkcs7-signature"
+					   nil t)))))
 	(mm-set-handle-multipart-parameter
 	 mm-security-handle 'gnus-info "Corrupted")
 	(throw 'error handle))