[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacspeak-mew.el fixed patch (was:summaryモードに戻る方法は？)
- To: bep@argv.org, HFC03614@nifty.ne.jp
- Subject: emacspeak-mew.el fixed patch (was:summaryモードに戻る方法は？)
- From: Mitsugu SAKAMOTO <mitsugu@argv.org>
- Date: Mon, 16 Apr 2001 16:05:18 +0900 (jst)
- Cc: seiken@argv.org
- Delivered-To: mailing list bep@argv.org
- Mailing-List: contact bep-help@argv.org; run by ezmlm
- Organization: Accessibility Research Group for the Visually impaired
坂本です。
#なんでじゃ、Mule-UCS入れ替えたらお天気の表示がへんだぞ。
少し古い話ですが。
From: Reiko TAKAHASHI (高橋玲子) <HFC03614@...>
Subject: Re: summaryモードに戻る方法は？
Date: Fri, 13 Apr 2001 11:28:15 +0900 (JST)
> } C-c C-q y
> }
> } です。Mewだけ特殊らしい。
>
> きゃっ、できました。
ということで、
mew-kill-buffer mew-draft-killに対するadviceの追加をしました。
パッチをつけておきます。
--- emacspeak-mew.el.origi Mon Apr 16 15:47:44 2001
+++ emacspeak-mew.el Mon Apr 16 15:52:52 2001
@@ -58,6 +58,14 @@
; (dtk-interp-queue "Mew quit")
(emacspeak-speak-mode-line))
+(defadvice mew-kill-buffer (after emacspeak pre act)
+ "announce kill buffer"
+ (emacspeak-speak-mode-line))
+
+(defadvice mew-draft-kill (after emacspeak pre act)
+ "announce kill draft buffer"
+ (emacspeak-speak-mode-line))
+
(defadvice mew-draft-circular-comp (around emacspeak pre act)
"Say what you completed."
(let* ((beg (emacspeak-mew-get-value))