- (let ((pc (mime-preview/point-pcinfo (point))))
- (if pc
- (let ((the-buf (current-buffer)))
- (setq mime-preview/after-decoded-position (point))
- (set-buffer (mime::preview-content-info/buffer pc))
- (mime-article/decode-content
- (mime::preview-content-info/content-info pc))
- (if (eq (current-buffer)
- (mime::preview-content-info/buffer pc))
- (progn
- (set-buffer the-buf)
- (goto-char mime-preview/after-decoded-position)
- ))
- ))))
-
-(defun mime-article/decode-content (cinfo)
- (let ((beg (mime::content-info/point-min cinfo))
- (end (mime::content-info/point-max cinfo))
- (ctype (or (mime::content-info/type cinfo) "text/plain"))
- (params (mime::content-info/parameters cinfo))
- (encoding (mime::content-info/encoding cinfo))
+ (or mode
+ (setq mode "play"))
+ (let ((entity-info (get-text-property (point) 'mime-view-entity)))
+ (if entity-info
+ (let ((the-buf (current-buffer))
+ (raw-buffer (get-text-property (point) 'mime-view-raw-buffer)))
+ (setq mime-preview-after-decoded-position (point))
+ (set-buffer raw-buffer)
+ (mime-raw-play-entity entity-info mode)
+ (when (eq (current-buffer) raw-buffer)
+ (set-buffer the-buf)
+ (goto-char mime-preview-after-decoded-position)
+ )))))
+
+(defun mime-raw-play-entity (entity-info &optional mode)
+ "Play entity specified by ENTITY-INFO.
+It decodes the entity to call internal or external method. The method
+is selected from variable `mime-acting-condition'. If MODE is
+specified, play as it. Default MODE is \"play\"."
+ (let ((beg (mime-entity-point-min entity-info))
+ (end (mime-entity-point-max entity-info))
+ (c-type (mime-entity-media-type entity-info))
+ (c-subtype (mime-entity-media-subtype entity-info))
+ (params (mime-entity-parameters entity-info))
+ (encoding (mime-entity-encoding entity-info))