(eval-when-compile (require 'cl))
-(defconst mime-module-version '("SEMI" "Itoigawa" 1 3 5)
+(defconst mime-module-version '("SEMI" "Itoigawa" 1 4 0)
"Implementation name, version name and numbers of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
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)