-(defvar mime/editor-mode-flag nil)
-(make-variable-buffer-local 'mime/editor-mode-flag)
-
-(defun mime-editor/define-keymap (keymap)
- "Add mime-editor commands to KEYMAP."
- (if (not (keymapp keymap))
- nil
- (define-key keymap "\C-t" 'mime-editor/insert-text)
- (define-key keymap "\C-i" 'mime-editor/insert-file)
- (define-key keymap "\C-e" 'mime-editor/insert-external)
- (define-key keymap "\C-v" 'mime-editor/insert-voice)
- (define-key keymap "\C-y" 'mime-editor/insert-message)
- (define-key keymap "\C-m" 'mime-editor/insert-mail)
- (define-key keymap "\C-w" 'mime-editor/insert-signature)
- (define-key keymap "\C-s" 'mime-editor/insert-signature)
- (define-key keymap "\C-k" 'mime-editor/insert-key)
- (define-key keymap "t" 'mime-editor/insert-tag)
- (define-key keymap "a" 'mime-editor/enclose-alternative-region)
- (define-key keymap "p" 'mime-editor/enclose-parallel-region)
- (define-key keymap "m" 'mime-editor/enclose-mixed-region)
- (define-key keymap "d" 'mime-editor/enclose-digest-region)
- (define-key keymap "s" 'mime-editor/enclose-signed-region)
- (define-key keymap "e" 'mime-editor/enclose-encrypted-region)
- (define-key keymap "q" 'mime-editor/enclose-quote-region)
- (define-key keymap "\C-p" 'mime-editor/preview-message)
- (define-key keymap "\C-z" 'mime-editor/exit)
- (define-key keymap "?" 'mime-editor/help)
- ))
-
-(mime-editor/define-keymap mime-editor/mime-map)
-
-(if mime-editor/minor-mime-map
- ()
- (setq mime-editor/minor-mime-map
- (make-sparse-keymap 'mime-editor/minor-mime-map))
- (define-key mime-editor/minor-mime-map mime-prefix mime-editor/mime-map))
-
-(defun mime-editor/toggle-mode ()
- (interactive)
- (if mime/editor-mode-flag
- (mime-editor/exit 'nomime)
- (mime/editor-mode)
- ))
-
-(if running-xemacs
- (add-minor-mode 'mime/editor-mode-flag
- '((" MIME-Edit " mime-editor/transfer-level-string))
- mime-editor/minor-mime-map
- nil
- 'mime-editor/toggle-mode)
- (set-alist 'minor-mode-alist
- 'mime/editor-mode-flag
- '((" MIME-Edit " mime-editor/transfer-level-string))))
-
-(defconst mime-editor/menu-title "MIME-Edit")
-
-(defconst mime-editor/menu-list
- '((mime-help "Describe MIME editor mode" mime-editor/help)
- (file "Insert File" mime-editor/insert-file)
- (external "Insert External" mime-editor/insert-external)
- (voice "Insert Voice" mime-editor/insert-voice)
- (message "Insert Message" mime-editor/insert-message)
- (mail "Insert Mail" mime-editor/insert-mail)
- (signature "Insert Signature" mime-editor/insert-signature)
- (text "Insert Text" mime-editor/insert-text)
- (tag "Insert Tag" mime-editor/insert-tag)
+(defvar mime-edit-mode-flag nil)
+(make-variable-buffer-local 'mime-edit-mode-flag)
+
+(defvar mime-edit-mode-map (make-sparse-keymap)
+ "Keymap for MIME-Edit mode commands.")
+
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-t" 'mime-edit-insert-text)
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-i" 'mime-edit-insert-file)
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-e" 'mime-edit-insert-external)
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-v" 'mime-edit-insert-voice)
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-y" 'mime-edit-insert-message)
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-m" 'mime-edit-insert-mail)
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-w" 'mime-edit-insert-signature)
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-s" 'mime-edit-insert-signature)
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-k" 'mime-edit-insert-key)
+(define-key mime-edit-mode-map
+ "\C-c\C-xt" 'mime-edit-insert-tag)
+
+(define-key mime-edit-mode-map
+ "\C-c\C-m\C-a" 'mime-edit-enclose-alternative-region)
+(define-key mime-edit-mode-map
+ "\C-c\C-m\C-p" 'mime-edit-enclose-parallel-region)
+(define-key mime-edit-mode-map
+ "\C-c\C-m\C-m" 'mime-edit-enclose-mixed-region)
+(define-key mime-edit-mode-map
+ "\C-c\C-m\C-d" 'mime-edit-enclose-digest-region)
+(define-key mime-edit-mode-map
+ "\C-c\C-m\C-s" 'mime-edit-enclose-signed-region)
+(define-key mime-edit-mode-map
+ "\C-c\C-m\C-e" 'mime-edit-enclose-encrypted-region)
+(define-key mime-edit-mode-map
+ "\C-c\C-m\C-q" 'mime-edit-enclose-quote-region)
+
+(define-key mime-edit-mode-map
+ "\C-c\C-x7" 'mime-edit-set-transfer-level-7bit)
+(define-key mime-edit-mode-map
+ "\C-c\C-x8" 'mime-edit-set-transfer-level-8bit)
+(define-key mime-edit-mode-map
+ "\C-c\C-x/" 'mime-edit-set-split)
+(define-key mime-edit-mode-map
+ "\C-c\C-xs" 'mime-edit-set-sign)
+(define-key mime-edit-mode-map
+ "\C-c\C-xv" 'mime-edit-set-sign)
+(define-key mime-edit-mode-map
+ "\C-c\C-xe" 'mime-edit-set-encrypt)
+(define-key mime-edit-mode-map
+ "\C-c\C-xh" 'mime-edit-set-encrypt)
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-p" 'mime-edit-preview-message)
+(define-key mime-edit-mode-map
+ "\C-c\C-x\C-z" 'mime-edit-exit)
+(define-key mime-edit-mode-map
+ "\C-c\C-x?" 'mime-edit-help)
+
+(defconst mime-edit-menu-title "MIME-Edit")
+
+(defconst mime-edit-menu-list
+ '((mime-help "Describe MIME editor mode" mime-edit-help)
+ (file "Insert File" mime-edit-insert-file)
+ (external "Insert External" mime-edit-insert-external)
+ (voice "Insert Voice" mime-edit-insert-voice)
+ (message "Insert Message" mime-edit-insert-message)
+ (mail "Insert Mail" mime-edit-insert-mail)
+ (signature "Insert Signature" mime-edit-insert-signature)
+ (text "Insert Text" mime-edit-insert-text)
+ (tag "Insert Tag" mime-edit-insert-tag)