[Mew-dist 10537] mew-draft-mode-newdraft-hook (Re: mew-gnus.el)

[藤原 誠 Makoto Fujiwara]

>                                            千葉市中央区長洲
>                                                    藤原  誠

最近 mew-draft-mode-hook に変更がありましたが、これに伴って、
mew-gnus.el も変更した方がいいと思います。多分。

--- mew-1.94pre1/contrib/mew-gnus.el-1.94pre1	Fri Jul 23 13:20:56 1999
+++ mew-1.94pre1/contrib/mew-gnus.el	Tue Aug 31 23:07:04 1999
@@ -112,7 +112,8 @@
      (mew-draft-header nil nil 'no nil "")
      (goto-char (point-min))
      (search-forward "Newsgroups: ")
-     (mew-draft-mode))))
+     (mew-draft-mode)
+     (run-hooks 'mew-draft-mode-newdraft-hook))))
 
 (defun mew-gnus-reply (&optional yank)
   "Reply or followup to GNUS article using mew.
@@ -193,6 +194,7 @@
      (setq mew-message-citation-buffer gnus-article-buffer)
      (undo-boundary)
      (mew-draft-mode)
+     (run-hooks 'mew-draft-mode-newdraft-hook)
      (if yank
 	 (progn
 	   (goto-char (point-max))
@@ -226,6 +228,7 @@
      (mew-draft-rename draft)
      (mew-draft-header subject 'nl)
      (mew-draft-mode)
+     (run-hooks 'mew-draft-mode-newdraft-hook)
      (setq mew-encode-syntax (mew-encode-syntax-initial-multi dirname 1))
      (save-excursion
        (mew-draft-prepare-attachments t)))))


---
(藤原)