2008年2月 1日

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

鯉江さん、

> > [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))

投稿者 xml-rpc : 2008年2月 1日 17:01
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/69370
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。