-(set-atype 'mime/content-decoding-condition
- '((type . "text/x-pgp")
- (method . mime-article/view-application/pgp)
+(set-atype 'mime-acting-condition
+ '((type . text)(subtype . x-pgp)
+ (method . mime-method-for-application/pgp)
+ ))
+
+
+;;; @ Internal method for multipart/signed
+;;;
+
+(defun mime-method-to-verify-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-entity-info))
+ )
+ (mime-playback-entity oinfo (cdr (assq 'mode cal)))
+ ))
+
+(set-atype 'mime-acting-condition
+ '((type . multipart)(subtype . signed)
+ (method . mime-method-to-verify-multipart/signed)