-(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
-;;;
-
-(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-reversed-entity-number-to-entity-info
- ;; reversed-entity-number of signature
- (cons 1 (reverse (mime-raw-point-to-entity-number start)))
- mime-raw-message-info)
- (cdr (assq 'mode cal)) ; play-mode
- ))
-
-(set-atype 'mime-acting-condition
- '((type . multipart)(subtype . signed)
- (method . mime-method-to-verify-multipart/signed)
- ))
-