[Mew-dist 07182] mew-summary-auto-refile core dumps at xemacs

[Hisaaki Shibata]

柴田(ひ)＠福岡です。

X-Mailerに示す環境でLinuxで使ってます。
	＃xemacsのバージョンをあげたのはつい先日ですが。

以前もこちらの方に報告させていた大胆ですが、相変わらず
To:に山ほど宛先を書いているメールとか、
やたら巨大なマルチパートの添付ファイルがついて来ているメールとか、
文字コードがちょっとおかしいメールなど
がinboxにある状態で、mew-summary-auto-refileすると
xemacsごとcore吐いて死んじゃいます。
	＃xemacs-20.4でも同じでした。改善するかな?と思いxemacsを
	＃更新してみたんですが、同じ状態です。

こんなダイイングメッセージが残ってます。
	＃カットペーストなので変なところで改行してますけど。

Fatal error: assertion failed, file mule-charset.h, line 485, RECORD_TYPEP (obj, lrecord_charset) || MARKED_RECORD_P (obj)

Fatal error (6).
Your files have been auto-saved.
Use `M-x recover-session' to recover them.

Please report this bug by running the send-pr script included
with XEmacs, or selecting `Send Bug Report' from the help menu.
As a last resort send ordinary email to `crashes at example.com'.
*MAKE SURE* to include the information in the command
M-x describe-installation.

If at all possible, *please* try to obtain a C stack backtrace;
it will help us immensely in determining what went wrong.
To do this, locate the core file that was produced as a result
of this crash (it's usually called `core' and is located in the
directory in which you started the editor, or maybe in your home
directory), and type
  gdb /usr/local/bin/xemacs core

then type `where' when the debugger prompt comes up.
(If you don't have GDB on your system, you might have DBX,
or XDB, or SDB.  A similar procedure should work for all of
these.  Ask your system administrator if you need more help.)

Lisp backtrace follows:

  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  insert-file-contents-internal("/home/shibata/Mail/inbox/2171" nil nil nil nil undecided used-codesys)
  byte-code("..." [run-hook-with-args insert-file-contents-access-hook filename visit coding-system-for-read run-hook-with-args-until-success insert-file-contents-pre-hook find-file-coding-system-for-read-from-filename buffer-file-coding-system-for-read no-conversion coding-system return-val find-coding-system message "Invalid coding-system (%s), using 'undecided" undecided insert-file-contents-internal beg end replace used-codesys] 9)
  # (condition-case ... . ((file-error (byte-code "ÀÁ\n

                                                       $Å
                                                         @
                                                          A\"" ... 5))))
  # bind (return-val coding-system used-codesys replace end beg visit filename)
  insert-file-contents("/home/shibata/Mail/inbox/2171")
  # bind (zmacs-regions buffer-read-only file hit nodisplay analysis buf msg fld)
  mew-summary-display-message("+inbox" "2171" "+inbox" nil nil)
  # (unwind-protect ...)
  # bind (redisplay cache buf opart part ofld-msg msg fld notforce)
  mew-summary-display(t)
  # (unwind-protect ...)
  # bind (msg folders mark buf learn-info auto exp-flds)
  mew-summary-refile(nil t)
  byte-code("..." [mew-summary-get-mark mark mew-mark-refile mew-mark-delete mew-refile-auto-refile-skip-any-mark mew-summary-refile nil t line 100 lines 10 0 message "Auto refiling ... %s%%" "Auto refiling ... done"] 5)
  # (unwind-protect ...)
  # bind (mew-analysis after-change-function after-change-functions mew-use-highlight-x-face lines line mark)
  #<compiled-function nil "...(45)" [major-mode mew-summary-mode message "This command can be used in Summary mode only" nil count-lines 1 mark line lines mew-use-highlight-x-face after-change-functions after-change-function mew-analysis "Auto refiling ..." (...)] 7 ("/usr/local/src/XEMACS/xemacs-packages/lisp/mew/mew-refile.elc" . 12324) nil>()
  call-interactively(mew-summary-auto-refile)
  command-execute(mew-summary-auto-refile t)
  # bind (_execute_command_keys_ _execute_command_name_ prefix-arg)
  execute-extended-command(nil)
  # bind (command-debug-status)
  call-interactively(execute-extended-command)
  # (condition-case ... . error)
  # (catch top-level ...)
IOT trap/Abort (core dumped)

 WWWWW  shibata at example.com
 |O-O|  柴田 尚明＠福岡市 ひげ剃りました
0( ^ )0 P-mail:070-5419-3233
   ~    http://his.linux.or.jp/