(require 'emu)
-(defconst mime-module-version '("SEMI" "Naoetsu" 1 2 2)
+(eval-when-compile (require 'cl))
+
+
+(defconst mime-module-version '("SEMI" "Kajiyashiki" 1 3 4)
"Implementation name, version name and numbers of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
))))
+;;; @ menu
+;;;
+
+(if window-system
+ (if (featurep 'xemacs)
+ (defun select-menu-alist (title menu-alist)
+ (let (ret)
+ (popup-menu
+ (list* title
+ "---"
+ (mapcar (function
+ (lambda (cell)
+ (vector (car cell)
+ `(progn
+ (setq ret ',(cdr cell))
+ (throw 'exit nil)
+ )
+ t)
+ ))
+ menu-alist)
+ ))
+ (recursive-edit)
+ ret))
+ (defun select-menu-alist (title menu-alist)
+ (x-popup-menu
+ (list '(1 1) (selected-window))
+ (list title (cons title menu-alist))
+ ))
+ )
+ (defun select-menu-alist (title menu-alist)
+ (cdr
+ (assoc (completing-read (concat title " : ") menu-alist)
+ menu-alist)
+ ))
+ )
+
+
;;; @ PGP
;;;
pgp-function-alist)
-;;; @ method selector kernel
-;;;
-
-(require 'atype)
-
-;;; @@ field unifier
-;;;
-
-(defun field-unifier-for-mode (a b)
- (let ((va (cdr a)))
- (if (if (consp va)
- (member (cdr b) va)
- (equal va (cdr b))
- )
- (list nil b nil)
- )))
-
-
;;; @ field
;;;