[Mew-dist 886] Hook after inserting signature

[Akihisa Konno]

  こんにちは、金野(minnie)＠東大船舶と申します。
  お願いがあるのですが、Mewのdraftモードでsignatureを挿入した直後に走
るフックを用意していただけないでしょうか。signatureをメールに合わせて
ちょっとだけいじりたいのですが、c-sigほど高級な機能はいらないのです。
  見よう見まねで作ったパッチをつけます。

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  ._ _  * ._  ._  *  _ 	    金野 祥久	 東大・工・船舶海洋工・流体研
  [ | ) | [ ) [ ) | (/,		 minnie at example.com
-=-=-=-=-=-=-=-=-=- 1号みたいなことはないんだろうな -=-=-=-=-=-=-=-=-=-
-------------- next part --------------
--- mew.el.dist	Wed Apr  2 21:09:29 1997
+++ mew.el	Tue Apr 15 15:52:40 1997
@@ -334,6 +334,8 @@
   "*Hook called in summary mode.")
 (defvar mew-draft-mode-hook nil
   "*Hook called in draft mode.")
+(defvar mew-draft-insert-signature-hook nil
+  "*Hook called after signature is inserted.")
 (defvar mew-message-mode-hook nil
   "*Hook called in message mode.")
 (defvar mew-message-hook nil
--- mew-draft.el.dist	Wed Apr  2 22:19:21 1997
+++ mew-draft.el	Tue Apr 15 15:52:12 1997
@@ -845,6 +845,7 @@
 	      (forward-char -1)))
 	(insert-file-contents sigfile)
 	))
+    (run-hooks 'mew-draft-insert-signature-hook)
     ))
 
 ;;;