(eval-when-compile (require 'cl))
+(require 'custom)
-(defconst mime-module-version '("SEMI" "Higashi-Namerikawa" 1 5 4)
+(defconst mime-user-interface-version '("SEMI" "Toyama" 1 8 0)
"Implementation name, version name and numbers of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
;;; @ Other Utility
;;;
-(defun call-after-loaded (module func &optional hook-name)
- "If MODULE is provided, then FUNC is called.
-Otherwise func is set to MODULE-load-hook.
-If optional argument HOOK-NAME is specified,
-it is used as hook to set."
- (if (featurep module)
- (funcall func)
- (or hook-name
- (setq hook-name (intern (concat (symbol-name module) "-load-hook")))
- )
- (add-hook hook-name func)
- ))
-
-
(defvar mime-condition-type-alist
'((preview . mime-preview-condition)
(action . mime-acting-condition)))