[Mew-dist 17338] reedit-hook

[Tatsuya Kinoshita]

再編集時のhookについて。+draftだけでなく+queueも区別できるよう、
mew-draft-mode-reedit-queue-hookを定義してみました。

P.S.

さっそく`Fcc:', `Dcc:'無しで送ってしまい、バックアップを取り損ねた……。
とりあえずhookで逃げています。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -ur mew/mew-edit.el mew-tats/mew-edit.el
--- mew/mew-edit.el	Thu May 10 02:22:51 2001
+++ mew-tats/mew-edit.el	Sat May 12 09:28:44 2001
@@ -528,7 +528,7 @@
        (mew-mark-kill-line)
        (set-buffer-modified-p nil)
        (mew-summary-reedit-for-queue fld msg)
-       (run-hooks 'mew-draft-mode-reedit-hook))
+       (run-hooks 'mew-draft-mode-reedit-queue-hook))
       (t
        (if part
 	   (let* ((cache (mew-cache-hit fld msg 'must-hit))
diff -ur mew/mew-vars.el mew-tats/mew-vars.el
--- mew/mew-vars.el	Fri May 11 05:39:09 2001
+++ mew-tats/mew-vars.el	Sat May 12 09:31:05 2001
@@ -176,12 +176,18 @@
   :type 'hook)
 
 (defcustom mew-draft-mode-reedit-hook nil
-  "*Hook called in Draft mode when a message not in +draft is re-edited."
+  "*Hook called in Draft mode when a message not in +draft or +queue
+is re-edited."
   :group 'mew-draft
   :type 'hook)
 
 (defcustom mew-draft-mode-reedit-draft-hook nil
   "*Hook called in Draft mode when a message in +draft is re-edited."
+  :group 'mew-draft
+  :type 'hook)
+
+(defcustom mew-draft-mode-reedit-queue-hook nil
+  "*Hook called in Draft mode when a message in +queue is re-edited."
   :group 'mew-draft
   :type 'hook)