[Mew-dist 17543] Re: window-scroll-functions

[Kazu Yamamoto ( 山本和彦 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 17532] window-scroll-functions

> 昨日再現したんですが、debug-on-error を nil にしていたので捕まえられま
> せんでした。それ以来発生していません。

ようやく捕まえました。呼ばれた関数の中でエラーを起すようです。

--かず

Debugger entered--Lisp error: (error "Invalid search bound (wrong side of point)")
  search-forward("^M" 15545 t)
  (while (search-forward "^M" end t) (if (and interrupt ...) (throw ... ...)) (setq med (match-beginning 0)) (forward-line) (mew-front-nonsticky start med) (if (and mew-use-highlight-mouse-line window-system) (put-text-property start med ... mew-highlight-mouse-line-face)) (put-text-property med (1- ...) (quote invisible) t) (if (mew-in-decode-syntax-p) (goto-char ...)) (if (and ... mew-use-thread-separator ...) (forward-line)) (setq start (point)))
  (let ((buffer-read-only nil) (inhibit-read-only t) (zmacs-regions nil)) (goto-char beg) (if (mew-in-decode-syntax-p) (goto-char ...)) (if (and ... mew-use-thread-separator ...) (forward-line)) (setq start (point)) (while (search-forward "
" end t) (if ... ...) (setq med ...) (forward-line) (mew-front-nonsticky start med) (if ... ...) (put-text-property med ... ... t) (if ... ...) (if ... ...) (setq start ...)) (when (and mew-use-highlight-mark ...) (goto-char beg) (setq regex ...) (while ... ... ... ... ... ... ... ...)))
  (mew-elet (goto-char beg) (if (mew-in-decode-syntax-p) (goto-char ...)) (if (and ... mew-use-thread-separator ...) (forward-line)) (setq start (point)) (while (search-forward "
" end t) (if ... ...) (setq med ...) (forward-line) (mew-front-nonsticky start med) (if ... ...) (put-text-property med ... ... t) (if ... ...) (if ... ...) (setq start ...)) (when (and mew-use-highlight-mark ...) (goto-char beg) (setq regex ...) (while ... ... ... ... ... ... ... ...)))
  (save-excursion (mew-elet (goto-char beg) (if ... ...) (if ... ...) (setq start ...) (while ... ... ... ... ... ... ... ... ... ...) (when ... ... ... ...)))
  (catch (quote loop) (save-excursion (mew-elet ... ... ... ... ... ...)))
  (let ((inhibit-point-motion-hooks t) ret regex mark face start med) (catch (quote loop) (save-excursion ...)) (set-buffer-modified-p nil) ret)
  (progn (let (... ret regex mark face start med) (catch ... ...) (set-buffer-modified-p nil) ret))
  (if (and (mew-summary-or-virtual-p) mew-summary-buffer-raw) (progn (let ... ... ... ret)))
  (when (and (mew-summary-or-virtual-p) mew-summary-buffer-raw) (let (... ret regex mark face start med) (catch ... ...) (set-buffer-modified-p nil) ret))
  mew-summary-cook-region(14961 15545)
  funcall(mew-summary-cook-region 14961 15545)
  (save-excursion (set-buffer buf) (funcall mew-summary-cook-function beg end))
  (let* ((win ...) (beg ...) (end ...) (buf ...)) (save-excursion (set-buffer buf) (funcall mew-summary-cook-function beg end)))
  mew-summary-cook-window(#<window 3 on +inbox> 14961)
  sit-for(0)
  mew-redraw()
  (save-excursion (mew-redraw) (mew-summary-goto-message) (cond (... ...) (... ... ...)))
  (let ((mew-inherit-prefetching t) fld next) (save-excursion (mew-redraw) (mew-summary-goto-message) (cond ... ...)) (save-excursion (if ... ...)))
  mew-summary-cache-prefetch()
  (if prefetch (mew-summary-cache-prefetch))
  (unwind-protect (progn (mew-summary-toggle-disp-msg ...) (mew-window-configure ...) (mew-current-set fld ... part) (cond ... ... ...)) (if (mew-xinfo-get-decode-err) (message "MIME decoding error: %s" ...)) (mew-minfo-set-summary vfld) (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 ... ...) (mew-minfo-set-summary vfld) (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-up) (mew-summary-display nil))
  mew-summary-display-up(nil)
* call-interactively(mew-summary-display-up)