[mew-dist 20955] Re: frame

[KOIE Hidetaka ( 鯉江英隆 )]

> >> In article <20020523.092326.730573854.karuhito at example.com>, 黒岩 和行 <karuhito at example.com> writes:
> 
> > ただ、フレームを多数(9個) 開いた場合の (mew-draft-cite) に少し怪しいと
> > ころがある様子。最後に開いたメッセージではなく、特定のメッセージを引用
> > するような動きになる場合がありました。たまに再現する程度なので、うまく
> > 現象を追えてません。
> 
> これって、*mew cache* がデフォルトで 0〜9 の10個しかないことに関係して
> いませんか。
> 
> mew-cache-size を増やしてみるとどうなります？

この現象ですが、いま起きてます。
フレームを2つ(+inboxと+mew-dist)を開いて返事を書こうとしてます。
エラーになったり、引用するメイルがちがってたりします。
一旦cacheをすててから、Aしても、aのあとC-cC-yしても
関係ないメイルが引用されます。
in-reply-to:やreferences:は正しいのが入ってます。

単にインストールに失敗してるとか
自前のコードが悪さしているとかの可能性はのこってます。

参考になるかどうかわかりませんが
とりあえずバックトレースが2つとれたので添付します。

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>
-------------- next part --------------
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  get-buffer(nil)
  (if (get-buffer tbuf) (set-buffer tbuf) (error "No buffer to be cited"))
  (save-excursion (setq tbuf (or nonmewbuf ...)) (if (and ... ...) (setq tbuf mew-message-last-buffer)) (if (get-buffer tbuf) (set-buffer tbuf) (error "No buffer to be cited")) (save-restriction (widen) (let ... ...) (setq cite ...)) (setq tbuf (or nonmewbuf ... ...)) (if (get-buffer tbuf) (set-buffer tbuf) (error "No buffer to be cited")) (save-restriction (widen) (mew-header-goto-end) (setq cite ...) (setq irt-msgid ...)))
  (let ((nonmewbuf mew-message-citation-buffer) (fld ...) (msg ...) cite beg end tbuf irt-msgid) (save-excursion (setq tbuf ...) (if ... ...) (if ... ... ...) (save-restriction ... ... ...) (setq tbuf ...) (if ... ... ...) (save-restriction ... ... ... ...)) (if (and irt-msgid ...) (save-excursion ...)) (save-restriction (narrow-to-region ... ...) (insert cite) (push-mark ... t t) (goto-char ...)) (cond (mew-cite-hook ...) (t ...)) (or force (mew-highlight-body-region ... ... ...)) (mew-draft-auto-set-input-method))
  (if (and (not force) (or ... ...)) (message "Cannot cite a message here") (let (... ... ... cite beg end tbuf irt-msgid) (save-excursion ... ... ... ... ... ... ...) (if ... ...) (save-restriction ... ... ... ...) (cond ... ...) (or force ...) (mew-draft-auto-set-input-method)))
  mew-draft-cite()
  mew-summary-reply-with-citation(nil)
  call-interactively(mew-summary-reply-with-citation)
-------------- next part --------------
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  file-readable-p(nil)
  mew-cache-hit(nil nil)
  (or nonmewbuf (save-excursion (cond ... ...) (if ... ...)) (mew-cache-hit fld msg))
  (setq tbuf (or nonmewbuf (save-excursion ... ...) (mew-cache-hit fld msg)))
  (save-excursion (setq tbuf (or nonmewbuf ...)) (if (and ... ...) (setq tbuf mew-message-last-buffer)) (if (get-buffer tbuf) (set-buffer tbuf) (error "No buffer to be cited")) (save-restriction (widen) (let ... ...) (setq cite ...)) (setq tbuf (or nonmewbuf ... ...)) (if (get-buffer tbuf) (set-buffer tbuf) (error "No buffer to be cited")) (save-restriction (widen) (mew-header-goto-end) (setq cite ...) (setq irt-msgid ...)))
  (let ((nonmewbuf mew-message-citation-buffer) (fld ...) (msg ...) cite beg end tbuf irt-msgid) (save-excursion (setq tbuf ...) (if ... ...) (if ... ... ...) (save-restriction ... ... ...) (setq tbuf ...) (if ... ... ...) (save-restriction ... ... ... ...)) (if (and irt-msgid ...) (save-excursion ...)) (save-restriction (narrow-to-region ... ...) (insert cite) (push-mark ... t t) (goto-char ...)) (cond (mew-cite-hook ...) (t ...)) (or force (mew-highlight-body-region ... ... ...)) (mew-draft-auto-set-input-method))
  (if (and (not force) (or ... ...)) (message "Cannot cite a message here") (let (... ... ... cite beg end tbuf irt-msgid) (save-excursion ... ... ... ... ... ... ...) (if ... ...) (save-restriction ... ... ... ...) (cond ... ...) (or force ...) (mew-draft-auto-set-input-method)))
  mew-draft-cite()
  mew-summary-reply-with-citation(nil)
  call-interactively(mew-summary-reply-with-citation)