-(set-atype 'mime-acting-condition
- '((type . application)(subtype . pgp)
- (method . mime-method-for-application/pgp)))
-
-(set-atype 'mime-acting-condition
- '((type . text)(subtype . x-pgp)
- (method . mime-method-for-application/pgp)))
-
-
-;;; @ Internal method for multipart/signed
-;;;
-;;; It is based on RFC 1847 (security-multipart).
-
-(defun mime-method-to-verify-multipart/signed (start end cal)
- "Internal method to verify multipart/signed."
- (mime-raw-play-entity
- ;; entity-info of signature
- (mime-raw-entity-node-id-to-entity-info
- ;; entity-node-id of signature
- (cons 1 (mime-raw-point-to-entity-node-id start)))
- (cdr (assq 'mode cal)) ; play-mode
- ))
-
-(set-atype 'mime-acting-condition
- '((type . multipart)(subtype . signed)
- (method . mime-method-to-verify-multipart/signed)))
-