Re: [bep] notification after pop interaction

[Mitsugu SAKAMOTO <mitsugu@argv.org>]

坂本です。

From: KIRIAKE Masanori <seiken@...>
Subject: Re: [bep] notification after pop interaction
Date: Mon, 16 Jul 2001 08:43:51 +0900 (JST)

> うぎゃっ、biffでもこれが動いてしまいます。ときどき"No new message"って言
> うんですが。

> mew-pop-sentinel-not-biff-hookなるものがあるのでそっちを使ってみようかな。

対策して見ました。
ちょっとむりやり突っ込んだ格好なのでスが、これでどうでしょう？
--- emacspeak-mew.el~	Mon Jul 16 08:42:34 2001
+++ emacspeak-mew.el	Mon Jul 16 09:02:30 2001
@@ -421,19 +421,26 @@
   ad-return-value
 )
 
-(defadvice  mew-pop-sentinel (after emacspeak pre act )
-  "Provide auditory feedback"
-  (emacspeak-auditory-icon 'task-done)
-  (let ((dtk-stop-immediately nil))
-    (dtk-speak   emacspeak-last-message ))
-)
+;(defadvice  mew-pop-sentinel (after emacspeak pre act )
+;  "Provide auditory feedback"
+;  (emacspeak-auditory-icon 'task-done)
+;  (let ((dtk-stop-immediately nil))
+;    (dtk-speak   emacspeak-last-message ))
+;)
+
+;(defadvice  mew-scan-sentinel (after emacspeak pre act )
+;  "Provide auditory feedback"
+;  (emacspeak-auditory-icon 'task-done)
+;  (let ((dtk-stop-immediately nil))
+;    (dtk-speak   emacspeak-last-message ))
+;)
+
+(add-hook 'mew-pop-sentinel-non-biff-hook
+	  (function (lambda ()
+		      (emacspeak-auditory-icon 'task-done)
+		      (let ((dtk-stop-immediately nil))
+			(dtk-speak   emacspeak-last-message )))))
 
-(defadvice  mew-scan-sentinel (after emacspeak pre act )
-  "Provide auditory feedback"
-  (emacspeak-auditory-icon 'task-done)
-  (let ((dtk-stop-immediately nil))
-    (dtk-speak   emacspeak-last-message ))
-)
 
 ;;; helper functions
 (defun emacspeak-mew-speak-mark (&optional queue-only)