Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!newsfeed.btnis.ad.jp!nspixp!tokyonet.ad.jp!post-tokyonet!netaidnews!Q.T.Honey!quest-news!news.t.u-tokyo.ac.jp!news.nc.u-tokyo.ac.jp!train.ad.jp!twcu.ac.jp!nntp!tanaka
From: tanaka@twcu.ac.jp (TANAKA Satoshi)
Subject: Re: [Q] Where is mh-e.el's menu add on ?
In-Reply-To: hsato@ba2.so-net.or.jp's message of 07 Sep 1997 13:28:55 JST
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <TANAKA.97Sep14034439@blueberry.twcu.ac.jp>
Followup-To: fj.editor.emacs
Lines: 133
Sender: news@twcu.ac.jp (Usenet News System)
Organization: Tokyo Woman's Christian University, Japan
References: <5uuc9k$a2d@newsgate.so-net.or.jp>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Distribution: fj
Date: Sat, 13 Sep 1997 18:44:39 GMT
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:6688
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=6688&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

> mh-e.el $BMQ$N(B emacs19 $B$N%a%K%e!<%P!<$r<B8=$9$k(B e-lisp $B$rC5$7$F$$$^$9(B.

$B2<$KIU$1$?$h$&$J$b$N$GNI$1$l$P!#(B


$BEDCfAo(B
TANAKA Satoshi
tanaka@twcu.ac.jp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mh-e-menu.el
;; Original source was written by Satoshi Tanaka 1996/Sep/28
;; revised by Shinichi Asakawa 1996/Sep/29
;; Version: 0.9

(require 'mh-e)

;; change "read mail" in file menu
(define-key menu-bar-file-menu [rmail] '("Read Mail(mh-e)" . mh-rmail))

;(setq menu-bar-mh-e-menu (make-sparse-keymap "mh-e"))
;(define-key global-map [menu-bar mh-e]
;  (cons "mh-e" menu-bar-mh-e-menu))
;(define-key menu-bar-mh-e-menu [smail] '("Send (M-x mh-smail)" . mh-smail))
;(define-key menu-bar-mh-e-menu [rmail] '("Read (M-x mh-rmail)" . mh-rmail))
;(setq menu-bar-final-items (cons 'mh-e menu-bar-final-items))

;;;;;;;;;;;;;;;
; draft-menu.el
;;;;;;;;;;;;;;;
(defvar mh-letter-mode-map (make-sparse-keymap "draft"))
(define-key mh-letter-mode-map [menu-bar draft]
  (cons "Draft" (make-sparse-keymap "Draft")))

(define-key mh-letter-mode-map [menu-bar draft quit] '("abort" . kill-buffer))
(define-key mh-letter-mode-map [menu-bar draft nil] '("-------" . nil))
(define-key mh-letter-mode-map [menu-bar draft insert] '("Insert" . mh-insert-letter))
;(define-key mh-letter-mode-map [menu-bar draft fill] '("Fill" . fill-paragraph))
(define-key mh-letter-mode-map [menu-bar draft nil] '("-------" . nil))
(define-key mh-letter-mode-map [menu-bar draft quote] '("Quote" . mh-yank-cur-msg))
(define-key mh-letter-mode-map [menu-bar draft signature] '("Signature" . mh-insert-signature))
(define-key mh-letter-mode-map [menu-bar draft send] '("Send" . mh-send-letter))


;;;;;;;;;;;;;;;
; menu.el
;;;;;;;;;;;;;;;
;(setq menu-bar-mh-e-menu (make-sparse-keymap "mh-e"))
;(define-key menu-bar-mh-e-menu [smail] '("Send (M-x mh-smail)" . mh-smail))
;(define-key menu-bar-mh-e-menu [rmail] '("Read (M-x mh-rmail)" . mh-rmail))
;(setq menu-bar-final-items (cons 'mh-e menu-bar-final-items))
(define-key mh-folder-mode-map [menu-bar] (make-sparse-keymap))

(define-key mh-folder-mode-map [menu-bar mh-e]
  (cons "mh-e" (make-sparse-keymap "mh-e")))

(define-key mh-folder-mode-map [menu-bar mh-e quit] '("quit" . mh-quit))
(define-key mh-folder-mode-map [menu-bar mh-e last] '("-------" . nil))

(define-key mh-folder-mode-map [menu-bar mh-e widen] '("Widen" . mh-widen))
(define-key mh-folder-mode-map [menu-bar mh-e narrow] '("Narrow to seq." . mh-narrow-to-seq))
(define-key mh-folder-mode-map [menu-bar mh-e search] '("Search" . mh-search-folder))
(define-key mh-folder-mode-map [menu-bar mh-e edit] '("Edit" . mh-edit-again))
(define-key mh-folder-mode-map [menu-bar mh-e print] '("Print" . mh-print-msg))
;(define-key mh-folder-mode-map [menu-bar mh-e goto] '("Go to" . mh-goto-msg))
(define-key mh-folder-mode-map [menu-bar mh-e misc] '("-------" . nil))

(define-key mh-folder-mode-map [menu-bar mh-e execute] '("Execute" . mh-execute-commands))
(define-key mh-folder-mode-map [menu-bar mh-e undo] '("Undo" . mh-undo))
(define-key mh-folder-mode-map [menu-bar mh-e Refile] '("Refile" . mh-refile-msg))
(define-key mh-folder-mode-map [menu-bar mh-e delete] '("Delete" . mh-delete-msg))
(define-key mh-folder-mode-map [menu-bar mh-e commands] '("-------" . nil))

(define-key mh-folder-mode-map [menu-bar mh-e pack] '("Pack" . mh-pack-folder))
(define-key mh-folder-mode-map [menu-bar mh-e folder] '("Folder" . mh-visit-folder))
(define-key mh-folder-mode-map [menu-bar mh-e sort] '("Sort" . mh-sort-folder))
(define-key mh-folder-mode-map [menu-bar mh-e rescan] '("Rescan" . mh-rescan-folder))
(define-key mh-folder-mode-map [menu-bar mh-e reply] '("Reply" . mh-reply))
(define-key mh-folder-mode-map [menu-bar mh-e send] '("Send" . mh-send))
(define-key mh-folder-mode-map [menu-bar mh-e incorporate] '("Incorporate" . mh-inc-folder))
(define-key mh-folder-mode-map [menu-bar mh-e message] '("" . nil))

(define-key mh-folder-mode-map [menu-bar mh-e previous] '("Previous" . mh-previous-undeleted-msg))
(define-key mh-folder-mode-map [menu-bar mh-e next] '("Next" . mh-next-undeleted-msg))
(define-key mh-folder-mode-map [menu-bar mh-e scroll] '("Scroll" . mh-page-msg))
(define-key mh-folder-mode-map [menu-bar mh-e show] '("Show" . mh-show))

;(define-key mh-folder-mode-map [menu-bar mh-e nil] '("-------" . mh-))

;;;;;;;;;;;
; mh-e-menu.el
;;;;;;;;;;;
;(setq menu-bar-mh-e-menu (make-sparse-keymap "mh-e"))
;(define-key menu-bar-mh-e-menu [smail] '("Send (M-x mh-smail)" . mh-smail))
;(define-key menu-bar-mh-e-menu [rmail] '("Read (M-x mh-rmail)" . mh-rmail))
;(setq menu-bar-final-items (cons 'mh-e menu-bar-final-items))

;(define-key mh-folder-mode-map [menu-bar] (make-sparse-keymap))
(define-key mh-folder-mode-map [menu-bar mh-e]
  (cons "mh-e" (make-sparse-keymap "mh-e")))

(define-key mh-folder-mode-map [menu-bar mh-e quit] '("quit" . mh-quit))
(define-key mh-folder-mode-map [menu-bar mh-e last] '("-------" . nil))

(define-key mh-folder-mode-map [menu-bar mh-e widen] '("Widen" . mh-widen))
(define-key mh-folder-mode-map [menu-bar mh-e narrow] '("Narrow to seq." . mh-narrow-to-seq))
(define-key mh-folder-mode-map [menu-bar mh-e search] '("Search" . mh-search-folder))
(define-key mh-folder-mode-map [menu-bar mh-e edit] '("Edit" . mh-edit-again))
(define-key mh-folder-mode-map [menu-bar mh-e print] '("Print" . mh-print-msg))
;(define-key mh-folder-mode-map [menu-bar mh-e goto] '("Go to" . mh-goto-msg))
(define-key mh-folder-mode-map [menu-bar mh-e misc] '("-------" . nil))

(define-key mh-folder-mode-map [menu-bar mh-e execute] '("Execute" . mh-execute-commands))
(define-key mh-folder-mode-map [menu-bar mh-e undo] '("Undo" . mh-undo))
(define-key mh-folder-mode-map [menu-bar mh-e Refile] '("Refile" . mh-refile-msg))
(define-key mh-folder-mode-map [menu-bar mh-e delete] '("Delete" . mh-delete-msg))
(define-key mh-folder-mode-map [menu-bar mh-e commands] '("-------" . nil))

(define-key mh-folder-mode-map [menu-bar mh-e pack] '("Pack" . mh-pack-folder))
(define-key mh-folder-mode-map [menu-bar mh-e folder] '("Folder" . mh-visit-folder))
(define-key mh-folder-mode-map [menu-bar mh-e sort] '("Sort" . mh-sort-folder))
(define-key mh-folder-mode-map [menu-bar mh-e rescan] '("Rescan" . mh-rescan-folder))
(define-key mh-folder-mode-map [menu-bar mh-e reply] '("Reply" . mh-reply))
(define-key mh-folder-mode-map [menu-bar mh-e send] '("Send" . mh-send))
(define-key mh-folder-mode-map [menu-bar mh-e incorporate] '("Incorporate" . mh-inc-folder))
(define-key mh-folder-mode-map [menu-bar mh-e message] '("" . nil))

(define-key mh-folder-mode-map [menu-bar mh-e previous] '("Previous <-" . mh-previous-undeleted-msg))
(define-key mh-folder-mode-map [menu-bar mh-e next] '("Next ->" . mh-next-undeleted-msg))
(define-key mh-folder-mode-map [menu-bar mh-e scroll] '("Scroll" . mh-page-msg))
(define-key mh-folder-mode-map [menu-bar mh-e show] '("Show" . mh-show))

;(define-key mh-folder-mode-map [menu-bar mh-e nil] '("-------" . mh-))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
