[Mew-Win32 00007] Re: mew-menu-ja.el

[Shuichi Kitaguchi]

From: Shuichi Kitaguchi <shuuic-k at example.com>
Subject: [Mew-Win32 00006] mew-menu-ja.el
Date: Mon, 15 Dec 1997 18:33:53 +0900

> Win32 とは関係ありませんが、日本語メニューを作ってみてますので
> 流しておきます。お暇な方は添削して下さい。

すいません、付けるのを忘れてました。


--==| Shuichi Kitaguchi : shuuic-k at example.com |
    |     / kit at example.com / shkit at example.com |==--
-------------- next part --------------
;;; mew-menu-jp.el --- Japanese menu for Mew

;; Author:  Shuichi Kitaguchi <kit at example.com>
;; Created: Dec 07, 1997
;; Revised: 

;;; Code:

(setq mew-summary-mode-menu-spec
  '("みゅう"
    ["メッセージ表示" mew-summary-show t]
    ["次のパート" mew-summary-display-down t]
    ["前のパート" mew-summary-display-up t]
    ["最初のメッセージ" mew-summary-display-top t]
    ["最後のメッセージ" mew-summary-display-bottom t]
    ["移動" mew-summary-jump-message t]
    "----"
    ["削除" mew-summary-delete (equal major-mode 'mew-summary-mode)]
    ["リファイル" mew-summary-refile (equal major-mode 'mew-summary-mode)]
    ["複数マーク" mew-summary-mark-multi t]
    ["復習マーク" mew-summary-mark-review t]
    ["マークの付いたメッセージをソート" mew-summary-mark-sort t]
    ["取消" mew-summary-undo t]
    ["全取消" mew-summary-undo-all t]
    ["処理を実行" mew-summary-exec (equal major-mode 'mew-summary-mode)]
    ["一時中断" mew-summary-suspend t]
    ["終了" mew-summary-quit t]
    "----"
    ("フォルダ操作"
     ["メッセージ取込" mew-summary-get t]
     ["一覧表示" mew-summary-ls (equal major-mode 'mew-summary-mode)]
     ["整理" mew-summary-pack (equal major-mode 'mew-summary-mode)]
     ["並び変え" mew-summary-sort (equal major-mode 'mew-summary-mode)]
     ["メッセージ展開(バースト)" mew-summary-burst t]
     ["フォルダ移動" mew-summary-goto-folder t]
     )
    ("ファイル操作"
     ["保存" mew-summary-save t]
     ["ローカルの文字セットに変換" mew-summary-convert-local-cs t]
     ["X-Face 表示" mew-summary-x-face t]
     )
    ("メッセージ作成/返信/転送"
     ["メッセージ作成" mew-summary-send t]
     ["再編集" mew-summary-reedit t]
     ["返信" mew-summary-reply t]
     ["引用して返信" mew-summary-reply-with-citation t]
     ["メッセージ転送" mew-summary-forward t]
     ["複数メッセージ転送" mew-summary-multi-forward t]
     ["キューにあるメッセージ送信" mew-summary-flush-queue t]
     )
    ("検索"
     ["検索してマーク" mew-summary-search-mark
      (equal major-mode 'mew-summary-mode)]
     ["検索" mew-summary-search (equal major-mode 'mew-summary-mode)]
     ["仮想モード" mew-summary-virtual (equal major-mode 'mew-summary-mode)]
     )
    ("その他"
     ["中央位置修正" mew-summary-recenter t]
     ["Uudecode" mew-summary-uudecode t]
     ["Unshar" mew-summary-unshar t]
     ["印刷" mew-summary-print t]
     ["メッセージをパイプ" mew-summary-pipe-message t]
     ["前方検索" mew-summary-isearch-forward t]
     ["後方検索" mew-summary-isearch-backward t]
     ["メッセージ表示切換" mew-summary-toggle-disp-msg t]
     ["MIME 解析切換" mew-summary-toggle-analysis t]
     ["子プロセス抹消"
      mew-summary-kill-subprocess 
      (and (processp mew-summary-buffer-process)
	   (equal major-mode 'mew-summary-mode))]
     )
    )
  )

(setq mew-draft-mode-toolbar-menu
  '("添付"
    ["ファイルをリンクとして挿入"
     mew-attach-link
     (mew-attach-not-line012-1)]
    ["ファイルをコピーして挿入"
     mew-attach-copy
     (mew-attach-not-line012-1)]
    ["音声を挿入"
     mew-attach-audio
     (mew-attach-not-line012-1)]
    ["外部参照を挿入"
     mew-attach-external-body
     (mew-attach-not-line012-1)]
    ["副 Multipart を挿入"
     mew-attach-multipart
     (mew-attach-not-line012-1)] 
    ["新規ファイルをバッファに挿入"
     mew-attach-find-mew-file
     (mew-attach-not-line012-1)]
    ["PGP 公開鍵を挿入"
     mew-attach-pgp-public-key
     (mew-attach-not-line012-1)]
    "----"
    ["パートの消去"
     mew-attach-delete 
     (mew-attach-not-line012-1-dot)]
    "----"
    ["パートの説明"
     mew-attach-description
     (mew-attach-not-line0-1-dot)]
    ["タイプを変更"
     mew-attach-type
     (mew-attach-not-line0-1-dot)]
    ["Gzip64 でエンコード"
     mew-attach-gzip64
     (mew-attach-not-line0-1-dot)]
    ["Base64 でエンコード"
     mew-attach-base64
     (mew-attach-not-line0-1-dot)]	 
    ["Quoted-Printable でエンコード"
     mew-attach-quoted-printable
     (mew-attach-not-line0-1-dot)]
    ["PGP で署名"
     mew-attach-pgp-sign
     (mew-attach-not-line0-1-dot)]
    ["PGP で暗号化"
     mew-attach-pgp-enc 
     (mew-attach-not-line0-1-dot)]
    "----"
    ["エンコードをやめる"
     mew-attach-undo
     (mew-attach-not-line0-1-dot)]
    "----"
    ["このファイルをバッファに読み込む"
     mew-attach-find-file
     (mew-attach-not-line012-1-dot)]
    )
  )

(setq mew-draft-mode-menu-spec
  (list
   "みゅう/ドラフト"
   ["引用" mew-draft-cite t]
   ["ラベルなしで引用"  mew-draft-yank t]
   mew-draft-mode-toolbar-menu
   ["MIME メッセージの作成" mew-draft-make-mime t]
   ["メッセージ送信" mew-draft-send-letter t]
   ["添付領域を用意" mew-draft-prepare-attachments t]
   ["シグニチャ挿入" mew-draft-insert-signature t]
   ["ドラフト削除" mew-draft-kill t]
   "----"
   '("PGP"
     ["PGP で署名" mew-pgp-sign-letter (not (mew-attach-p))]
     ["PGP で暗号化" mew-pgp-encrypt-letter (not (mew-attach-p))]
     ["PGP で署名後暗号化" mew-pgp-sign-encrypt-letter (not (mew-attach-p))]
     )
   '("FIB"
     ["FIB 次のアイテム" mew-fib-next-item (not (mew-attach-p))]
     ["FIB 前のアイテム" mew-fib-previous-item (not (mew-attach-p))]
     ["FIB 入力を消去" mew-fib-flush-input (not (mew-attach-p))]
     ["FIB デフォルトで埋める" mew-fib-fill-default (not (mew-attach-p))]
     ["FIB フレームを消去" mew-fib-delete-frame (not (mew-attach-p))]
     )
   )
  )