[Mew-dist 03676] new hook for supercite + c-sig

[Gorochan ^o^]

國頭と申します。

mew-1.93b12 + supercite + c-sig を使っています。

mew-draft-mode-hook で 自動的に signature を挿入しています。

このとき mew-summary-reply-with-citation (A) すると signature のあ
とに引用されてしまうので、---- のすぐ下に引用するようにカーソル移動を
して、さらに 個人的にさらに処理をしたいものがあったので hook も付けて
みました。  

diff -urN mew-summary.el.dist mew-summary.el
--- mew-summary.el.dist Thu Jan 29 22:44:52 1998
+++ mew-summary.el      Sat Feb  7 04:08:10 1998
@@ -1295,9 +1295,13 @@
   (if (mew-summary-reply arg)
       (let ((p (point)) (m (point-max)))
        ;; mew-draft-mode-hook may move the cursor somewhere.
-       ;; Let's make sure that the cursor locates on the end of draft
-       ;; for citation.
-       (goto-char (point-max))
+       ;; Let's make sure that the cursor locates on the top of the 
+       ;; message area for citation.
+       (goto-char (point-min))
+       (re-search-forward mew-eoh2 nil t)
+       (forward-line 1)
+       (beginning-of-line)
+       (run-hooks 'mew-cite-pre-hook)
        (mew-draft-cite)
        (if (not (equal p m))
            (goto-char p)))


  ====================================================================
|| 國頭 吾郎 (Goro Kunito) Tel 03-3812-2111 or 03-3814-4251(ext.6761) ||
||   東京大学工学系研究科電子情報工学専攻  羽鳥・相澤研究室 博士１年  ||
||                E-mail : kunito at example.com                 ||
  ====================================================================