[Mew-dist 07700] wrong-type-argument extent-live-p #<destroyed extent>

[Tetsuya HOYANO]

報告だけですみません。

1.94b8 にしてから特定（と言っても default 以外の一つしかないのですが^^;)
の Config が guess された時にのみ送信時の C-cC-M操作、あるいは C-cC-o
操作時に上記メッセージが表示されます。続いて C-cC-c すれば Content-Type
を自動的に加えたけど送っていいのね？と聞かれて送信はできるのですが...

.emacs と .im/Config は 1.94b7+IM106 から変更してないのですが、何かし忘
れているでしょうか？

ちなみにこのメールは case default なので発生しません。
保屋野

Backtrace つけます。

Signaling: (wrong-type-argument extent-live-p #<destroyed extent>)
  set-extent-endpoints(#<destroyed extent> 1 580)
  mew-overlay-move(#<destroyed extent> 1 580)
  (if (mew-overlay-p mew-overlay-header-keymap) (mew-overlay-move mew-overlay-header-keymap (point-min) (mew-header-end)) (setq mew-overlay-header-keymap (mew-overlay-make ... ...)) (mew-overlay-put mew-overlay-header-keymap (if mew-xemacs-p ... ...) mew-draft-header-map) (mew-overlay-put mew-overlay-header-keymap (if mew-xemacs-p ... ...) t))
)
  (if mew-use-overlay-keymap (if (mew-overlay-p mew-overlay-header-keymap) (mew-overlay-move mew-overlay-header-keymap ... ...) (setq mew-overlay-header-keymap ...) (mew-overlay-put mew-overlay-header-keymap ... mew-draft-header-map) (mew-overlay-put mew-overlay-header-keymap ... t)))
)
  (save-excursion (if mew-use-overlay-keymap (if ... ... ... ... ...)) (goto-char (mew-header-end)) (let (... ...) (end-of-line) (put-text-property beg ... ... t) (put-text-property beg ... ... t) (put-text-property beg ... ... t)))
)
  (mew-draft-header-keymap)
)
  mew-draft-rehighlight()
  (cond (nohighlight (save-excursion ... ...)) (t (widen) (push-mark ... t t) (mew-header-delete-lines ...) (goto-char ...) (mew-draft-header-insert mew-config: config-new) (forward-line -1) (end-of-line) (mew-draft-rehighlight)))
)
  (if (and config-cur (or ... ...)) nil (cond (nohighlight ...) (t ... ... ... ... ... ... ... ...)))
)
  (if config-new (if (and config-cur ...) nil (cond ... ...)))
)
  (let* ((config-cur ...) (config-gus ...) (config-new ...)) (if (and mew-ask-config ...) (setq config-new ...)) (if (and ... ...) (setq config-new "")) (if config-new (if ... nil ...)))
)
  mew-draft-insert-config()
  (if mew-config-insert-when-composed (mew-draft-insert-config))
)
  (lambda nil "Make a MIME message. Charset guess, mapping directory structure \nto multipart, and so on." (interactive) (widen) (mew-draft-ask-subject) (if mew-config-insert-when-composed (mew-draft-insert-config)) (if (mew-header-existp mew-ct:) (progn ... ...) (message "Making a MIME letter ...") (if ... ... ...) (mew-draft-make-header) (message "Making a MIME letter ... done")))()
  call-interactively(mew-draft-make-message)