[mew-dist 23111] Re: Question - Multi Part -

[Kazu Yamamoto ( 山本和彦 )]

From: Tatsuya Kinoshita <tats at example.com>
Subject: [mew-dist 23105] Re: Question - Multi Part -

> mew-make-message-hookでエラーが起こると、そのようになりそうです。

ありがとうございます。

> また、Mew 2以降で、mew-make-message-hookの時点ではカレントバッファ
> のウィンドウが選択されないようになり、そのせいで、マニュアルに例と
> して書かれてある(add-hook 'mew-make-message-hook 'ispell-message)
> も、うまく動かなくなってしまっています。

ispell-message が利用できるように以下のようにしました。これで問題ない
でしょうか？

--かず

Index: mew-draft.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-draft.el,v
retrieving revision 1.86
diff -c -r1.86 mew-draft.el
*** mew-draft.el	2003/01/22 05:03:49	1.86
--- mew-draft.el	2003/03/03 13:32:48
***************
*** 789,794 ****
--- 789,795 ----
    (mew-draft-process-message 'send))
  
  (defun mew-draft-process-message (action &optional privacy signer)
+   (run-hooks 'mew-make-message-hook)
    (let* ((case (or (mew-tinfo-get-case) mew-case-default))
  	 (old-case case)
  	 guessed-case)
Index: mew-encode.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-encode.el,v
retrieving revision 1.64
diff -c -r1.64 mew-encode.el
*** mew-encode.el	2003/02/17 14:32:03	1.64
--- mew-encode.el	2003/03/03 13:32:49
***************
*** 362,368 ****
    (mew-set-buffer-multibyte t)
    (if (buffer-modified-p) (save-buffer)) ;; to make backup
    (widen)
-   (run-hooks 'mew-make-message-hook)
    (let (multip recipients msgid-logtime)
      (goto-char (point-min))
      (mew-encode-remove-illegal-fields)
--- 362,367 ----
***************
*** 434,440 ****
    (mew-set-buffer-multibyte t)
    (if (buffer-modified-p) (save-buffer)) ;; to make backup
    (widen)
-   (run-hooks 'mew-make-message-hook)
    (let (multip newsgroups msgid-logtime)
      (goto-char (point-min))
      (mew-encode-remove-illegal-fields)
--- 433,438 ----