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

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

書く内容が不足してたと思ったので，出直します _o_

>> もちろん (point-max) では，(cite を実行する場所に依存して)かなりま
>> ずいのは事実です．でも，このような状態に対して mark って本当に使え
>> るのでしょうか‥‥

elisp は全然知らないのでかなりいい加減な話をしているようであれなんです
けれども，多分

(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) (mew-mark))))))

ということをすると，

Signaling: (wrong-type-argument integer-or-marker-p nil)
  delete-region(581 nil)
  (save-excursion (delete-region (point) (mew-mark)))
  (and (eq major-mode (quote mew-draft-mode)) (save-excursion (delete-region ..
  (lambda nil (and (eq major-mode ...) (save-excursion ...)))()
  run-hooks(xcite:pre-cite-hook)
  (save-window-excursion (run-hooks (quote xcite:pre-cite-hook)) (xcite-goto-ar
  (let (beg end) (save-window-excursion (run-hooks ...) (xcite-goto-article-win
  xcite-yank-cur-msg(nil)
* call-interactively(xcite-yank-cur-msg)

こうなります．

-- -
Makoto `MAR' MATSUSHITA
xcite の持つ機能は好きだけど supercite の方が動作として良い感じ
(うう，どうしよう)