Re: threading on mew

[Mitsugu SAKAMOTO <mitsugu@argv.org>]

坂本です。

ええと、thread読みですが、とりあえずたたき台です。
しかし、プログラマがthreadの使い方を熟知していないのでこれで良いのか良く
わかりません。
#seikenさんあたりテストしてくれると良いな。それかhtradを作ってからの移動
の仕方を教えてください。
##C-h m とか、M-x apprlpo とかでもキーバインドが出ないんだもん。

--- Mitsugu
--- emacspeak-mew.el.old	Thu Mar 29 20:43:30 2001
+++ emacspeak-mew.el	Thu Mar 29 23:59:04 2001
@@ -341,6 +341,32 @@
   (emacspeak-speak-mode-line)
   ad-return-value
 )
+(defadvice mew-summary-thread-child (after emacspeak pre act)
+  "speak the current line"
+  (emacspeak-speak-line))
+(defadvice mew-summary-thread-down (after emacspeak pre act)
+  "speak the current line"
+  (emacspeak-speak-line))
+(defadvice mew-summary-thread-parent (after emacspeak pre act)
+  "speak the current line"
+  (emacspeak-speak-line))
+(defadvice mew-summary-thread-sibling-down (after emacspeak pre act)
+  "speak the current line"
+  (emacspeak-speak-line))
+(defadvice mew-summary-thread-sibling-up (after emacspeak pre act)
+  "speak the current line"
+  (emacspeak-speak-line))
+(defadvice mew-summary-thread-up (after emacspeak pre act)
+  "speak the current line"
+  (emacspeak-speak-line))
+(defadvice mew-summary-mark-make-thread (around emacspeak pre act)
+  "announce when Making thread"
+  (dtk-speak "making thread...")
+  (let ((emacspeak-speak-messages nil))
+    ad-do-it)
+  (emacspeak-speak-mode-line)
+  ad-return-value
+)
 
 ;;; helper functions
 (defun emacspeak-mew-speak-mark (&optional queue-only)