[Mew-dist 05341] Re: Mew 1.93b44, x-cite, mew-summary-reply-with-citation()

[Makoto MATSUSHITA ( まつしたまこと )]

minabe> (defun mew-summary-reply-with-citation-wrapper ()
minabe>   "mew-draft-cite() によって挿入される引用元全文を削除して xcite を呼ぶ"
minabe>   (interactive)
minabe>   (save-excursion
minabe>     (delete-region (point) (point-max)))
minabe>   (xcite-yank-cur-msg))
minabe> と書いてしのいでいます。

なるほど‥‥あることがわかっているなら先に消してしまえ，というわけなの
ですね．「あるのがわかってるなら，確かに先に消すのが良いなあ」と思って，

(add-hook 'mew-cite-hook 'xcite-yank-cur-msg)
(add-hook 'xcite:pre-cite-hook
          '(lambda ()
             (and (eq major-mode 'mew-draft-mode)
                  (save-excursion
                    (delete-region (point) (point-max))))))

こういうのを書いて使ってみることにしました．ありがとうございました．

-- -
Makoto `MAR' MATSUSHITA
add-hook じゃなくて setq でも良いんでしょうけれども．