[Mew-dist 05199] Re: Can't "xcite"

[Hideyuki SHIRAI]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 05197] Re: Can't "xcite"
Message-ID: <19980629030456X.kazu at example.com>
Date: Mon, 29 Jun 1998 03:07:13 +0900

kazu> > # xciteの作者の広瀬さんに見つかったら、怒られそうです。^^;;;
kazu> > # その前に、山本さんに怒られるかもしれない。
kazu> 
kazu> xcite のソースを読まずにいいますが、mew-draft-{cite,yank} を呼ぶ際の条
kazu> 件でエラーになるなら、これらの関数に &optional な引数を増やして、エラー
kazu> にならないようにしたらどうですか？
kazu> 
kazu> こんな感じです。
kazu> 
kazu> (defun mew-draft-cite (&optional arg force)
kazu> ...
kazu>   (if (and (null force) (or (mew-draft-in-header-p) (mew-draft-in-attach-p)))
kazu>       (message "You cannot cite a message here.")

上記のパッチを適用し、xcite.elに対する私の邪悪なパッチを破棄した
後、以下の様にすることによってちゃんと動きました。ありがとうござ
います

上記のパッチをマージして頂けるとありがたいです。m(__)m

--- xcite.el.orig       Thu Jun 25 13:12:33 1998
+++ xcite.el    Mon Jun 29 09:54:04 1998
@@ -776,7 +779,7 @@
          (let ((mew-cite-hook '(lambda ())))
            (set-buffer (get-buffer-create " *xcite tmp*"))
            (erase-buffer)
-           (mew-draft-cite nil)
+           (mew-draft-cite nil t)
            (setq major-mode 'mew-message-mode)
            t))
      (catch 'found

# mew-version をみて mew-draft-cite の引数の数を判定できるように
# したら xcite.elの作者さんに報告しておきます。

-- 
白井秀行 (Hideyuki SHIRAI)