- (setq mime/viewer-mode-map (make-keymap))
- (suppress-keymap mime/viewer-mode-map)
- (define-key mime/viewer-mode-map
- "u" (function mime-viewer/up-content))
- (define-key mime/viewer-mode-map
- "p" (function mime-viewer/previous-content))
- (define-key mime/viewer-mode-map
- "n" (function mime-viewer/next-content))
- (define-key mime/viewer-mode-map
- " " (function mime-viewer/scroll-up-content))
- (define-key mime/viewer-mode-map
- "\M- " (function mime-viewer/scroll-down-content))
- (define-key mime/viewer-mode-map
- "\177" (function mime-viewer/scroll-down-content))
- (define-key mime/viewer-mode-map
- "\C-m" (function mime-viewer/next-line-content))
- (define-key mime/viewer-mode-map
- "\C-\M-m" (function mime-viewer/previous-line-content))
- (define-key mime/viewer-mode-map
- "v" (function mime-viewer/play-content))
- (define-key mime/viewer-mode-map
- "e" (function mime-viewer/extract-content))
- (define-key mime/viewer-mode-map
- "\C-c\C-p" (function mime-viewer/print-content))
- (define-key mime/viewer-mode-map
- "f" (function mime-viewer/display-x-face))
- (define-key mime/viewer-mode-map
- "q" (function mime-viewer/quit))
- (define-key mime/viewer-mode-map
- "h" (function mime-viewer/show-summary))
- (define-key mime/viewer-mode-map
- "\C-c\C-x" (function mime-viewer/kill-buffer))
- (define-key mime/viewer-mode-map
- "<" (function beginning-of-buffer))
- (define-key mime/viewer-mode-map
- ">" (function end-of-buffer))
- (if mouse-button-2
- (define-key mime/viewer-mode-map
- mouse-button-2 (function tm:button-dispatcher))
- )
- (cond ((string-match "XEmacs\\|Lucid" emacs-version)
- (defvar mime-viewer/xemacs-popup-menu
- (cons mime-viewer/menu-title
- (mapcar (function
- (lambda (item)
- (vector (nth 1 item)(nth 2 item) t)
- ))
- mime-viewer/menu-list)))
- (defun mime-viewer/xemacs-popup-menu (event)
- "Popup the menu in the MIME Viewer buffer"
- (interactive "e")
- (select-window (event-window event))
- (set-buffer (event-buffer event))
- (popup-menu 'mime-viewer/xemacs-popup-menu))
- (define-key mime/viewer-mode-map
- mouse-button-3 (function mime-viewer/xemacs-popup-menu))
- )
- ((>= emacs-major-version 19)
- (define-key mime/viewer-mode-map [menu-bar mime-view]
- (cons mime-viewer/menu-title
- (make-sparse-keymap mime-viewer/menu-title)))
- (mapcar (function
- (lambda (item)
- (define-key mime/viewer-mode-map
- (vector 'menu-bar 'mime-view (car item))
- (cons (nth 1 item)(nth 2 item))
- )
- ))
- (reverse mime-viewer/menu-list)
- )
- ))