(encoding (mime-entity-encoding entity-info)))
(or content-type
(setq content-type (make-mime-content-type 'text 'plain)))
- ;; Check for VM
- (if (< beg (point-min))
- (setq beg (point-min))
- )
- (if (< (point-max) end)
- (setq end (point-max))
- )
(let (method cal ret)
(setq cal (list* (cons 'major-mode major-mode)
(cons 'encoding encoding)
;;;
(defvar mime-raw-dired-function
- (if mime/use-multi-frame
+ (if (and (>= emacs-major-version 19) window-system)
(function dired-other-frame)
(function mime-raw-dired-function-for-one-frame)
))