[Mew-dist 09116] Re: b31

[SUGIMORI ( 杉森 隆行 )]

すぎもりです。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 09107] b31
Date: Thu, 3 Jun 1999 17:13:50 +0900

> mew-1.94b31.tar.gz を ftp.mew.org:/pub/Mew/beta に置きました。

mew単体ではエラーにならないので、ここに報告するのも何なのですが、
mew-1.94b31とxciteの組みあわせでエラーが出るようになってしまいました。
draftバッファでxciteにて引用するとエラーがでます。
mew オリジナルの引用をすると大丈夫です。
でも、エラーになっているのは mew の関数内(mew-header-set)です。
報告だけですみません。

環境は、
	Meadow-1.01(emacs 20.2.1) + windows98
	+ mew-1.94b31 + im-115
です。

エラーは以下の通りです。

--------------------
Signaling: (args-out-of-range 0 1)
  put-text-property(0 1 front-nonsticky t)
  (cond (mew-xemacs-p (put-text-property end ... ... t) (put-text-property end ... ... t)) (t (put-text-property ... end ... t) (put-text-property ... ... ... t)))
  (let ((end ...) (inhibit-read-only t)) (if nil (insert nil) (forward-line)) (cond (mew-xemacs-p ... ...) (t ... ...)) (put-text-property end (point) (quote read-only) t) end)
  (mew-header-set nil)
  (if end end (mew-header-goto-end) (mew-header-set nil))
  (let ((end ...)) (if end end (mew-header-goto-end) (mew-header-set nil)))
  (save-excursion (let (...) (if end end ... ...)))
  (mew-header-end)
  (let ((end ...)) (and end (<= ... end)))
  (mew-in-header-p)
  (or (mew-in-header-p) (mew-in-attach-p))
  (and (not force) (or (mew-in-header-p) (mew-in-attach-p)))
  (if (and (not force) (or ... ...)) (message "You cannot cite a message here.") (let (... cite beg end ref-msgid tbuf) (save-excursion ... ... ... ... ... ...) (if ref-msgid ...) (save-restriction ... ... ... ...) (cond ... ...) (mew-highlight-body)))
  mew-draft-cite(nil)
  xcite-goto-article-window()
  byte-code("文字化けしてたので省略しました")
  xcite-yank-cur-msg(nil)
* call-interactively(xcite-yank-cur-msg)
  ad-Orig-execute-extended-command(nil)
  call-interactively(ad-Orig-execute-extended-command)
  (if (interactive-p) (call-interactively (quote ad-Orig-execute-extended-command)) (ad-Orig-execute-extended-command prefixarg))
  (setq ad-return-value (if (interactive-p) (call-interactively ...) (ad-Orig-execute-extended-command prefixarg)))
  (let (ad-return-value) (setq ad-return-value (if ... ... ...)) (skk-set-cursor-properly) ad-return-value)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)