(eval-when-compile (require 'cl))
-(defconst mime-module-version '("SEMI" "Itoigawa" 1 3 5)
+(defconst mime-module-version '("SEMI" "Ecch\e.D\eN~-Miyazaki" 1 4 4)
"Implementation name, version name and numbers of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
(defvar mime/use-multi-frame
(and (>= emacs-major-version 19) window-system))
-(defvar mime/find-file-function
- (if mime/use-multi-frame
- (function find-file-other-frame)
- (function find-file)
- ))
-
;;; @ constants
;;;
activate."
(let ((sym (cdr (assq target-type mime-condition-type-alist))))
(if sym
- (let ((func (cdr (assq mode mime-condition-mode-alist))))
+ (let ((func (cdr (or (assq mode mime-condition-mode-alist)
+ (assq t mime-condition-mode-alist)))))
(if (fboundp func)
(progn
(funcall func sym condition)