[mew-dist 24052] args-out-of-range in mew-summary-execute-external, mew-summary-display-down

[Tak Ota]

昨日からサイズが大きい（100K 以上？）添付をデコードしようとすると以下の
エラーに遭遇するようになりました。以下二つの backtrace 例です。



Debugger entered--Lisp error: (args-out-of-range 2219 143531)
  write-region(2219 143531 "c:/DOCUME~1/ota/LOCALS~1/Temp/ota1792oDh/Tak Ota Quote.doc" nil no-msg)
  (let ((coding-system-for-read mew-cs-dummy) (coding-system-for-write wcs) (format-alist nil) (auto-image-file-mode nil) (jka-compr-inhibit t)) (write-region begin end file nil (quote no-msg)))
  (mew-frwlet mew-cs-dummy wcs (write-region begin end file nil (quote no-msg)))
  (save-excursion (set-buffer cache) (cond (... ...) (... ...) (t ... ...)) (mew-frwlet mew-cs-dummy wcs (write-region begin end file nil ...)) (if async (mew-mime-start-process program options file) (mew-mime-call-process program options file)))
  (let ((file ...) wcs) (save-excursion (set-buffer cache) (cond ... ... ...) (mew-frwlet mew-cs-dummy wcs ...) (if async ... ...)))
  (if (not (mew-which-exec program)) (message "Program %s is not found" program) (let (... wcs) (save-excursion ... ... ... ...)))
  (if (symbolp program) (message "Function %s is not executable here" program) (if (not ...) (message "Program %s is not found" program) (let ... ...)))
  (cond ((and ... ... ...) (if ... ... ...)) (t (cond ... ...) (if ... ... ...)))
  (if (not doit) (message "No body") (setq begin (mew-syntax-get-begin stx)) (setq end (mew-syntax-get-end stx)) (setq params (mew-syntax-get-params ctl)) (setq cdpl (mew-syntax-get-cdp stx)) (setq fname (mew-syntax-get-filename cdpl ctl)) (when ask-type (setq mew-inherit-ct ct) (cond ... ...) (setq ct ...)) (setq program (or com ...)) (cond (... ...) (t ... ...)))
  (let* ((fld ...) (msg ...) (nums ...) (cache ...) (syntax ...) (stx ...) (ctl ...) (ct ...) begin end params program fname cdpl options async doit pt fl mew-inherit-ct) (if (not ...) (setq doit t) (setq stx ...) (if ... ... ... ... ...)) (if (not doit) (message "No body") (setq begin ...) (setq end ...) (setq params ...) (setq cdpl ...) (setq fname ...) (when ask-type ... ... ...) (setq program ...) (cond ... ...)))
  mew-summary-execute-base(nil nil nil)
  (cond ((eobp) (message "No message")) ((not ...) (message "No message")) (t (mew-summary-execute-base arg nil nil)))
  (mew-summary-msg-or-part (mew-summary-execute-base arg nil nil))
  mew-summary-execute-external(nil)
* call-interactively(mew-summary-execute-external)








Debugger entered--Lisp error: (args-out-of-range 2219 143531)
  narrow-to-region(2219 143531)
  (save-restriction (narrow-to-region beg end) (mew-set-buffer-multibyte nil) (prog1 (- ... ...) (mew-set-buffer-multibyte t)))
  (save-excursion (set-buffer buf) (save-restriction (narrow-to-region beg end) (mew-set-buffer-multibyte nil) (prog1 ... ...)))
  mew-region-bytes(2219 143531 #<buffer  *mew cache*1>)
  (mew-insert "Size:		%d bytes\n" (mew-region-bytes begin end cache))
  (cond ((symbolp program) (when ... ...)) ((and ... ... ...) (when ... ...)) ((and ... ... ...) (insert " ######  ######  #######  #####  ######     #    #     #\n" " #     # #     # #     # #     # #     #   # #   ##   ##\n" " #     # #     # #     # #       #     #  #   #  # # # #\n" " ######  ######  #     # #  #### ######  #     # #  #  #\n" " #       #   #   #     # #     # #   #   ####### #     #\n" " #       #    #  #     # #     # #    #  #     # #     #\n" " #       #     # #######  #####  #     # #     # #     #\n" "\n\n") (mew-insert "Content-Type:	%s\n" ct) (mew-insert "Encoding:	%s\n" cte) (mew-insert "Size:		%d bytes\n" ...) (mew-insert "Filename:	%s\n" fname) (mew-insert "Description:	%s\n" cd) (mew-insert "Program:	%s\n" ...) (insert "\n") (mew-mime-part-messages t)))
  (let* ((syntax ...) (begin ...) (end ...) (ctl ...) (cte ...) (ct ...) (cdpl ...) (fname ...) (cd ...) (params ...) (program ...)) (cond (... ...) (... ...) (... ... ... ... ... ... ... ... ... ...)))
  mew-mime-part(#<buffer  *mew cache*1> [message 1 1120 nil ("Message/Rfc822") nil "Farmers Auto Quote" nil nil [multi 1121 143570 nil ("multipart/mixed" ...) nil nil nil nil [single 1228 2026 nil ... nil nil nil nil] [single 2219 143531 nil ... "base64" nil nil ...]]] (2))
  (let ((buffer-read-only nil) (inhibit-read-only t) (after-change-functions nil) (zmacs-regions nil)) (mew-summary-display-preamble) (mew-decode-syntax-copy cache) (mew-mime-part cache mew-decode-syntax nums) (mew-summary-display-postscript))
  (mew-elet (mew-summary-display-preamble) (mew-decode-syntax-copy cache) (mew-mime-part cache mew-decode-syntax nums) (mew-summary-display-postscript))
  mew-summary-display-part(#<buffer  *mew cache*1> (2))
  (cond ((or ... ... redisplay) (mew-summary-display-part cache part)) (read-through (if ... ...)))
  (cond ((null cache) (mew-decode-syntax-delete) (cond ... ... ...)) (msg (cond ... ...)) (part (cond ... ...)))
  (progn (mew-summary-toggle-disp-msg (quote on)) (mew-window-configure (quote message)) (mew-current-set fld (or msg omsg) part) (mew-minfo-set-summary vfld) (cond (... ... ...) (msg ...) (part ...)))
  (unwind-protect (progn (mew-summary-toggle-disp-msg ...) (mew-window-configure ...) (mew-current-set fld ... part) (mew-minfo-set-summary vfld) (cond ... ... ...)) (if (mew-xinfo-get-decode-err) (message "MIME decoding error: %s" ...)) (if (mew-xinfo-get-action) (message "%s" ...)) (mew-message-mode-line fld msg) (select-window win) (mew-summary-cursor-postscript) (if prefetch (mew-summary-cache-prefetch)) (if next (mew-summary-display-after mew-summary-show-direction)))
  (let* ((fld ...) (vfld ...) (msg ...) (part ...) (ofld ...) (omsg ...) (opart ...) (cache ...) (win ...) (read-through ...) (sumbuf ...) next prefetch) (unwind-protect (progn ... ... ... ... ...) (if ... ...) (if ... ...) (mew-message-mode-line fld msg) (select-window win) (mew-summary-cursor-postscript) (if prefetch ...) (if next ...)))
  (cond ((eobp) (message "No message")) ((not ...) (message "No message")) (t (let* ... ...)))
  (mew-summary-msg-or-part (let* (... ... ... ... ... ... ... ... ... ... ... next prefetch) (unwind-protect ... ... ... ... ... ... ... ...)))
  (progn (mew-summary-msg-or-part (let* ... ...)))
  (if (or redisplay (mew-sinfo-get-disp-msg) (interactive-p)) (progn (mew-summary-msg-or-part ...)))
  (when (or redisplay (mew-sinfo-get-disp-msg) (interactive-p)) (mew-summary-msg-or-part (let* ... ...)))
  mew-summary-display(nil)
  (if (mew-summary-down) (mew-summary-display nil))
  mew-summary-display-down(nil)
* call-interactively(mew-summary-display-down)