`mime-view-message/rfc822'.
(pop-to-buffer mother)
))
-(defun mime-method-to-display-message/rfc822 (entity cal)
+(defun mime-view-message/rfc822 (entity cal)
(let* ((beg (mime-entity-point-min entity))
(end (mime-entity-point-max entity))
(cnum (mime-raw-point-to-entity-number beg))
(ctree-set-calist-strictly
'mime-acting-condition
'((type . message)(subtype . rfc822)(mode . "play")
- (method . mime-method-to-display-message/rfc822)
+ (method . mime-view-message/rfc822)
))
(ctree-set-calist-strictly
'mime-acting-condition