[mew-dist 27990] Re: error in process filter: mew-scan-insert-line: Args out of range:
KOIE Hidetaka ( 鯉江英隆 )
hide at example.com
2007年 12月 18日 (火) 17:12:38 JST
Message-Id: <20071218.163407.38274388.kazu at example.com>
Date: Tue, 18 Dec 2007 16:34:07 +0900 (JST)
From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-dist 27988] Re: error in process filter: mew-scan-i..
| > mew-scan-insert-line()のなかのput-text-property()呼び出しで
| > エラーになっていたのですが
|
| よく分りませんが、可能性としては、refile 先のフォルダを右端に挿入する際
| に位置の計算を間違うことでしょうか。。。
エラーになっているput-text-property()の場所を間違えてました。
いま再現させるときにつかった
mew-scan-insert-line()とBacktraceを添付します。
--
鯉江英隆 <hide at example.com>
-------------- next part --------------
(defun mew-scan-insert-line (folder vec width lmsg &optional mark-or-dst)
(when (get-buffer folder)
(save-excursion
(set-buffer folder)
(let* ((line (mew-scan-get-line vec width))
(opos (point))
(omax (point-max))
beg med face olen nlen mark msg)
(mew-elet
(if (null lmsg)
(goto-char (point-max))
;; a message marked with 'T'.
(when (mew-summary-search-msg lmsg)
(setq mark (mew-summary-get-mark))
(setq beg (point))
(forward-line)
;; To avoid inserting a line AFTER the cursor underline,
;; keep this line and make it invisible.
(progn 1 (put-text-property beg (point) 'invisible t))
(forward-line -1)))
(setq beg (point))
;; To "insert" just after mew-marker-decode-syntax-end.
(insert (car line))
(setq med (point))
(insert (cdr line))
(goto-char beg)
(cond
((stringp mark-or-dst) ;; xxx
(setq msg (mew-scan-get-message vec))
(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))
(mark
(mew-summary-mark-as mark))
((and mew-use-highlight-mark ;; mew-summary-form-mark
(setq mark (mew-summary-get-mark)) ;; duplicated, etc
(setq face (mew-highlight-mark-get-face mark)))
(progn 2 (put-text-property beg med 'face face))))
(if mew-use-highlight-mouse-line
(progn 3 (put-text-property
beg med 'mouse-face mew-highlight-mouse-line-face)))
(forward-line)
(progn 4 (put-text-property med (1- (point)) 'invisible t))
;; Removing the invisible line.
(when lmsg
;; UID information will be removed. So, we need to adjust
;; the position.
(setq nlen (- (point) beg))
(setq beg (point))
(forward-line)
(when (> opos beg)
(setq olen (- (point) beg))
(setq opos (- opos (- olen nlen))))
(delete-region beg (point))))
(if (or (eq opos (mew-sinfo-get-start-point))
(/= opos omax))
;; move the cursor to the original position.
(goto-char opos))))))
-------------- next part --------------
Debugger entered--Lisp error: (args-out-of-range 4347514 4347520)
put-text-property(4347520 4347514 invisible t)
(progn 4 (put-text-property med (1- ...) (quote invisible) t))
(let ((buffer-read-only nil) (inhibit-read-only t) (after-change-functions nil) (mark-active nil)) (if (null lmsg) (goto-char ...) (when ... ... ... ... ... ...)) (setq beg (point)) (insert (car line)) (setq med (point)) (insert (cdr line)) (goto-char beg) (cond (... ... ... ... ... ... ...) (... ...) (mark ...) (... ...)) (if mew-use-highlight-mouse-line (progn 3 ...)) (forward-line) (progn 4 (put-text-property med ... ... t)) (when lmsg (setq nlen ...) (setq beg ...) (forward-line) (when ... ... ...) (delete-region beg ...)))
(mew-elet (if (null lmsg) (goto-char ...) (when ... ... ... ... ... ...)) (setq beg (point)) (insert (car line)) (setq med (point)) (insert (cdr line)) (goto-char beg) (cond (... ... ... ... ... ... ...) (... ...) (mark ...) (... ...)) (if mew-use-highlight-mouse-line (progn 3 ...)) (forward-line) (progn 4 (put-text-property med ... ... t)) (when lmsg (setq nlen ...) (setq beg ...) (forward-line) (when ... ... ...) (delete-region beg ...)))
(let* ((line ...) (opos ...) (omax ...) beg med face olen nlen mark msg) (mew-elet (if ... ... ...) (setq beg ...) (insert ...) (setq med ...) (insert ...) (goto-char beg) (cond ... ... ... ...) (if mew-use-highlight-mouse-line ...) (forward-line) (progn 4 ...) (when lmsg ... ... ... ... ...)) (if (or ... ...) (goto-char opos)))
(save-excursion (set-buffer folder) (let* (... ... ... beg med face olen nlen mark msg) (mew-elet ... ... ... ... ... ... ... ... ... ... ...) (if ... ...)))
(progn (save-excursion (set-buffer folder) (let* ... ... ...)))
(if (get-buffer folder) (progn (save-excursion ... ...)))
(when (get-buffer folder) (save-excursion (set-buffer folder) (let* ... ... ...)))
mew-scan-insert-line("+inbox" ["+inbox" "349031" "\xe3d\xe55\xe54\xe52\xe58\xe56\xe58\xe5c\xe5e\xe61\xe62\xe6c" "Wed, 12 Dec 2007 08:01:20 +0000" "\xe3f\xe60\xe5e\xe54\xe50\xe55\xe62\xe61\xe6f \xe5d\xe55\xe56\xe58\xe5b\xe5e\xe55 \xe5f\xe5e\xe5c\xe55\xe69\xe55\xe5d\xe58\xe55 <altaf at example.com>" "<koie at example.com>" "" "text/plain;\n charset=\"koi8-r\"" "8bit" "" "<66329.hamish at example.com>" "" "" "" "Yes" "<FONT size=\"3\" face=\"Times New Roman\"> <P>\xe3f\xe60\xe5e\xe54\xe50\xe55\xe62\xe61\xe6f \xe5a\xe52\xe50\xe60\xe62\xe58\xe60\xe50 \xe58\xe54\xe58\xe50\xe5b\xe6c\xe5d\xe5e \xe5f\xe5e\xe54 \xe5d\xe55\xe56\xe58\xe5b\xe5e\xe55 \xe5f\xe5e\xe5c\xe55\xe69\xe55\xe5d\xe58\xe55 47 \xe5a\xe52.\xe5c., \xe5e\xe62 \xe5c\xe55\xe62\xe60\xe5e \xe3c\xe55\xe54\xe52\xe55\xe54\xe5a\xe5e\xe52\xe5e 50 \xe5c\xe55\xe62\xe60\xe5e\xe52, \xe63\xe5b. \xe33\xe60\xe55\xe5a\xe5e\xe52\xe50 \xe54\xe5e\xe5c 4, \xe52\xe6b\xe61\xe5e\xe5a\xe50\xe6f \xe5f\xe60\xe5e\xe65\xe5e\xe54\xe58\xe5c\xe5e\xe61\xe62\xe6c. \xe66\xe55\xe5d\xe50 330 \xe62\xe6b\xe61.$ </P> <P>\xe62\xe55\xe5b. 8-9037857596</P> </FONT> "] 119 nil "+spam")
byte-code("〓〓〓〓〓〓!T\"〓〓!〓f 〓!〓〓!〓〓!〓〓〓n \"〓〓n\f\"〓
〓〓8
〓〓? 〓n \" 〓S
〓〓S ;〓S 〓 〓n!〓〓!〓〓\n!\" %〓〓#A\"〓$〓〓 %〓〓 〓&S\"〓〓'〓(#〓〓〓"〓〓'\"〓" [pnm file vec fld msg directive nil (byte-code "\n 〓〓〓
\n
\f〓d
〓%〓.〓〓" [mew-use-async-write write-region-inhibit-fsync mew-cs-dummy mew-cs-text-for-write jka-compr-inhibit auto-image-file-mode nil t write-region no-msg format-alist coding-system-for-write coding-system-for-read file] 6) ((error ...)) mew-pop-set-rcnt mew-pop-get-rcnt file-exists-p mew-set-file-modes mew-set-file-type mew-set-buffer-multibyte t mew-scan-header mew-scan-set-folder mew-scan-set-message inc scan mew-scan-inbox-action mew-scan-body mew-scan-insert-line mew-pop-set-rtrs mew-pop-set-left mew-pop-process-send-string "DELE %s" mew-pop-set-status "retr" mew-pop-command-retr case mark width lmsg rtrs del truncated left pro num] 6)
mew-pop-command-dele(#<process mew-pop-info-koie at example.com> "mew-pop-info-koie at example.com")
mew-pop-filter(#<process mew-pop-info-koie at example.com> "+OK 922 octets\nReceived: by mail.suri.co.jp (8.13.6/3.7W) id lBI85SRO081823;\n Tue, 18 Dec 2007 17:05:28 +0900 (JST)\nResent-Date: Tue, 18 Dec 2007 17:05:28 +0900 (JST)\nResent-Message-Id: <20071218.170528.836221258972110386.hide at example.com>\nResent-To: koie at example.com\nResent-From: KOIE Hidetaka (=?iso-2022-jp?B?GyRCOHE5PjFRTjQbKEI=?=)\n <hide at example.com>\nDate: Wed, 12 Dec 2007 08:01:20 +0000\nMessage-ID: <66329.hamish at example.com>\nFrom: =?koi8-r?B?8NLPxMHF1NPRIM7F1snMz8Ug0M/Nxd3FzsnF?= <altaf at example.com>\nTo: <koie at example.com>\nSubject: =?koi8-r?B?7sXE18nWyc3P09TY?=\nMIME-Version: 1.0\nContent-Type: text/plain;\n charset=\"koi8-r\"\nContent-Transfer-Encoding: 8bit\nX-UIDL: (1L!!+=g!![>`\"!?#^!!\nX-Spam-Flag: Yes\nX-Spam-Probability: 1.000000\n\n<FONT size=\"3\" face=\"Times New Roman\">\n<P>\xf0\xd2\xcf\xc4\xc1\xc5\xd4\xd3\xd1 \xcb\xd7\xc1\xd2\xd4\xc9\xd2\xc1 \xc9\xc4\xc9\xc1\xcc\xd8\xce\xcf \xd0\xcf\xc4 \xce\xc5\xd6\xc9\xcc\xcf\xc5 \xd0\xcf\xcd\xc5\xdd\xc5\xce\xc9\xc5 47 \xcb\xd7.\xcd., \xcf\xd4 \xcd\xc5\xd4\xd2\xcf \xed\xc5\xc4\xd7\xc5\xc4\xcb\xcf\xd7\xcf 50 \xcd\xc5\xd4\xd2\xcf\xd7, \xd5\xcc. \xe7\xd2\xc5\xcb\xcf\xd7\xc1 \xc4\xcf\xcd 4, \xd7\xd9\xd3\xcf\xcb\xc1\xd1 \xd0\xd2\xcf\xc8\xcf\xc4\xc9\xcd\xcf\xd3\xd4\xd8. \xc3\xc5\xce\xc1 330 \xd4\xd9\xd3.$ </P>\n<P>\xd4\xc5\xcc. 8-9037857596</P>\n</FONT>\n\n\n\n.\n")
Mew-dist メーリングリストの案内