Re: emacspeak-mew.el

[KIRIAKE Masanori <seiken@ARGV.ORG>]

切明です。なかなかおもしろくなってきましたね。

At 24 Aug 2000 02:25:40 +0900,
Koichi INOUE <inoue@...> wrote:

> ・テストのためにemacspeak-mew-speak-mark関数を書いてみた。これは現在の行
> のマークを読み上げる関数ですが、evalすると戻り値のnilだけが聞こえます。
> キーにバインドすればいいんだと思います。でもあまりしたくないですよね。

この機能はあってもじゃまじゃないと思います。ここまでくれば音声環境をがし
がしに意識して作りましょう。

で、パッチです。

DeleteとRefileはそれらが呼び出されたときにカーソルが移動してしまいますの
で、"delete"としゃべることよりも異動先をしゃべる方が親切だと思います。

#今日はCVSが使えるのでした。USBケーブル持ってきたので。

---- Sei Ken
--- /usr/share/emacs/site-lisp/emacspeak/lisp/emacspeak-mew.el	Wed Aug 23 23:52:46 2000
+++ emacspeak-mew.el	Thu Aug 24 00:12:16 2000
@@ -84,7 +84,14 @@
 
 (defadvice mew-summary-delete (after emacspeak pre act )
   "tells the message is marked for delete."
-  (dtk-speak "delete")
+  ;;  (dtk-speak "delete")
+  (emacspeak-speak-line)
+)
+
+(defadvice mew-summary-refile (after emacspeak pre act )
+  "tells the message is marked for refile."
+  ;;  (dtk-speak "delete")
+  (emacspeak-speak-line)
 )
 
 (defadvice mew-summary-undo (around emacspeak pre act )