`mime-method-to-add-application/pgp-keys'.
;;;
;;; It is based on RFC 2015.
-(defun mime-pgp-add-keys (beg end cal)
+(defun mime-method-to-add-application/pgp-keys (beg end cal)
(let* ((cnum (mime-article/point-content-number beg))
(new-name (format "%s-%s" (buffer-name) cnum))
(encoding (cdr (assq 'encoding cal)))
(set-atype 'mime-acting-condition
'((type . "application/pgp-keys")
- (method . mime-pgp-add-keys)
+ (method . mime-method-to-add-application/pgp-keys)
))