- (mime-playback-entity cinfo mode)
- (if (eq (current-buffer) raw-buffer)
- (progn
- (set-buffer the-buf)
- (goto-char mime-preview/after-decoded-position)
- ))
- ))))
-
-(defun mime-playback-entity (cinfo &optional mode)
- (let ((beg (mime-entity-info-point-min cinfo))
- (end (mime-entity-info-point-max cinfo))
- (ctype (or (mime-entity-info-type/subtype cinfo) "text/plain"))
- (params (mime-entity-info-parameters cinfo))
- (encoding (mime-entity-info-encoding cinfo))
- )
- ;; Check for VM
- (if (< beg (point-min))
- (setq beg (point-min))
- )
- (if (< (point-max) end)
- (setq end (point-max))
- )
+ (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-sort-situation (situation)
+ (sort situation
+ #'(lambda (a b)
+ (let ((a-t (car a))
+ (b-t (car b))
+ (order '((type . 1)
+ (subtype . 2)
+ (mode . 3)
+ (major-mode . 4)))
+ a-order b-order)
+ (if (symbolp a-t)
+ (let ((ret (assq a-t order)))
+ (if ret
+ (setq a-order (cdr ret))
+ (setq a-order 5)
+ ))
+ (setq a-order 6)
+ )
+ (if (symbolp b-t)
+ (let ((ret (assq b-t order)))
+ (if ret
+ (setq b-order (cdr ret))
+ (setq b-order 5)
+ ))
+ (setq b-order 6)
+ )
+ (if (= a-order b-order)
+ (string< (format "%s" a-t)(format "%s" b-t))
+ (< a-order b-order))
+ )))
+ )
+
+(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))
+ (content-type (mime-entity-content-type entity-info))
+ (encoding (mime-entity-encoding entity-info)))
+ (or content-type
+ (setq content-type (make-mime-content-type 'text 'plain)))