+ (method . mime-process-application/pgp)
+ ))
+
+
+;;; @ Internal method for multipart/signed
+;;;
+
+(defun mime-check-multipart/signed (beg end cal)
+ "Internal method to check multipart/signed."
+ (let* ((rcnum (reverse (mime-article/point-content-number beg)))
+ (oinfo (mime-article/rcnum-to-cinfo (cons '1 rcnum)
+ mime-raw-content-info))
+ )
+ (mime-playback-entity oinfo (cdr (assq 'mode cal)))
+ ))
+
+(set-atype 'mime-acting-condition
+ '((type . "multipart/signed")
+ (method . mime-check-multipart/signed)