Re: emacspeak-mew.el

[Koichi INOUE <inoue@argv.org>]

井上です。

From: Mitsugu SAKAMOTO <mitsugu@...>
Subject: Re: emacspeak-mew.el
Date: Sun, 20 Aug 2000 13:53:07 +0900 (JST)

> ファイルの添付よりもアドレス保管を読んでくれないのでこれを何とかしないと
> いけないですね。

むりやりやってみました。補われた部分だけ読むと思います。
C-c TABを対象にしています。ほかにもあるでしょうか？
コンマで区切られたリストだったときどうなるかはやってません。
後、mew-complete-insertという比較的汎用の関数にadviceしているので、ほかでも副作用があるかも知れません。
;;; emacspeak-mew.el --- Speech enable GNUS -- Fluent spoken access to usenet
;;; $Id: $
;;; $Author: raman $ 
;;; Description:  Emacspeak extension to speech enable mew
;;; Keywords: Emacspeak, mew, mail, Advice, Spoken Output
;;{{{  LCD Archive entry: 

;;; LCD Archive Entry:
;;; emacspeak| T. V. Raman |raman@cs.cornell.edu 
;;; A speech interface to Emacs |
;;; $Date: 2000/04/30 22:52:12 $ |
;;;  $Revision: 12.0 $ | 
;;; Location undetermined
;;;

;;}}}
;;{{{  Copyright:
;;;Copyright (C) 1995 -- 2000, T. V. Raman 
;;; Copyright (c) 1994, 1995 by Digital Equipment Corporation.
;;; All Rights Reserved. 
;;;
;;; This file is not part of GNU Emacs, but the same permissions apply.
;;;
;;; GNU Emacs is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; GNU Emacs is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Emacs; see the file COPYING.  If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

;;}}}
(require 'cl)
(declaim  (optimize  (safety 0) (speed 3)))
(eval-when (compile) (require 'mew)
           (require 'mew-summary)
	   (require 'mew-complete)
           (require 'voice-lock)
           (require 'emacspeak-keymap)
           (require 'emacspeak-fix-interactive))
(require 'emacspeak-speak)

(require 'emacspeak-sounds)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;{{{ Advise top-level gnus command
(defadvice mew-summary-display-down (after emacspeak pre act )
  "read summary line after movement"
  (emacspeak-speak-line))

(defadvice mew-summary-display-up (after emacspeak pre act )
  "read summary line after movement"
  (emacspeak-speak-line))

(defadvice mew-summary-suspend (after emacspeak pre act )
  "announces after Mew suspends."
  (dtk-speak "Mew suspended"))

(defadvice mew-complete-insert (before emacspeak (&rest args) pre act )
  "speaks inserted text."
  (dtk-speak (car args)))

;;}}}
(provide 'emacspeak-mew)