[mew-dist 28048] Re: error in process filter: mew-scan-insert-line: Args out of range:

[Kazu Yamamoto ( 山本和彦 )]

鯉江さん、

> > [mew-dist 28003]がそれです。
> 
> う。見落としていました。(スパムが添付されいるので、誤判定された感じで
> す。。)

以下のパッチで直るでしょうか？

HTML なのに、CT: text/plain と指定されているため、本文の HTML タグが表
示されています。これにマッチしてしまうのが問題でしょう。。。

--かず

Index: mew-refile.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-refile.el,v
retrieving revision 1.142
diff -c -r1.142 mew-refile.el
*** mew-refile.el	4 Jan 2008 07:33:01 -0000	1.142
--- mew-refile.el	1 Feb 2008 07:59:53 -0000
***************
*** 608,620 ****
  	  "[^>\r\n]*"
  	  (regexp-quote mew-override-body-close)))
  
! (defun mew-summary-refile-override-body (folders-str)
    (let* ((open mew-override-body-open)
  	 (close mew-override-body-close)
  	 (len (+ (length folders-str) (length open) (length close))))
      (save-excursion
        (when (mew-summary-goto-body 'after)
! 	(when (looking-at mew-regex-override-body)
  	  (mew-elet
  	   (delete-region (point) (match-end 0))))
  	(mew-elet
--- 608,620 ----
  	  "[^>\r\n]*"
  	  (regexp-quote mew-override-body-close)))
  
! (defun mew-summary-refile-override-body (folders-str &optional force)
    (let* ((open mew-override-body-open)
  	 (close mew-override-body-close)
  	 (len (+ (length folders-str) (length open) (length close))))
      (save-excursion
        (when (mew-summary-goto-body 'after)
! 	(when (and (not force) (looking-at mew-regex-override-body))
  	  (mew-elet
  	   (delete-region (point) (match-end 0))))
  	(mew-elet
Index: mew-scan.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-scan.el,v
retrieving revision 1.242
diff -c -r1.242 mew-scan.el
*** mew-scan.el	4 Jan 2008 03:51:36 -0000	1.242
--- mew-scan.el	1 Feb 2008 07:59:53 -0000
***************
*** 399,405 ****
  	   (mew-refile-reset msg)
  	   (mew-refile-set msg (mew-split mark-or-dst ?,))
  	   (mew-summary-refile-log folder mark-or-dst)
! 	   (setq med (+ med (mew-summary-refile-override-body mark-or-dst)))
  	   (mew-mark-put mew-mark-refile))
  	  ((mew-characterp mark-or-dst) ;; mew-inbox-action-alist
  	   (mew-mark-put mark-or-dst))
--- 399,405 ----
  	   (mew-refile-reset msg)
  	   (mew-refile-set msg (mew-split mark-or-dst ?,))
  	   (mew-summary-refile-log folder mark-or-dst)
! 	   (setq med (+ med (mew-summary-refile-override-body mark-or-dst 'force)))
  	   (mew-mark-put mew-mark-refile))
  	  ((mew-characterp mark-or-dst) ;; mew-inbox-action-alist
  	   (mew-mark-put mark-or-dst))