[Mew-dist 17682] Re: mew-summary-mark-region problem?

[Tatsuya Kinoshita]

In message "[Mew-dist 16577] mew-summary-mark-region problem?"
sen_ml at example.com wrote:

> 手動で mew-summary-mark-region を使用していたら、
> 
> Signaling: (error "Invalid search bound (wrong side of point)")
>   re-search-forward("^ *\\([0-9]+\\) " 136233 t)

> と怒られてしまいました。
> 
> 再現方法 (mew-1.95b108 使用)：
> 
>   1) Summary mode でカーソルがメッセージのある行にある状態から
>      C-SPC で mark を set する。
> 
>   2) C-e で行末へ移動。
> 
>   3) mew-summary-mark-region を実行。

エラーを抑止するよう、修正しました。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

*** mew-mark.el.orig	Fri Jun  1 23:02:26 2001
--- mew-mark.el	Wed Jun  6 06:55:16 2001
***************
*** 465,477 ****
  	fld msg alist)
      (save-excursion
        (goto-char beg)
!       (while (re-search-forward regex end t)
! 	(mew-summary-mark-as mark)
! 	(when (mew-virtual-p)
! 	  (setq fld (mew-summary-folder-name))
! 	  (setq msg (mew-summary-message-number))
! 	  (mew-mark-alist-set alist fld msg))
! 	(forward-line)) ;; make search faster
        (set-buffer-modified-p nil))
      (mew-summary-mark-in-physical-alist alist mark)))
  
--- 465,479 ----
  	fld msg alist)
      (save-excursion
        (goto-char beg)
!       (condition-case nil
! 	  (while (re-search-forward regex end t)
! 	    (mew-summary-mark-as mark)
! 	    (when (mew-virtual-p)
! 	      (setq fld (mew-summary-folder-name))
! 	      (setq msg (mew-summary-message-number))
! 	      (mew-mark-alist-set alist fld msg))
! 	    (forward-line)) ;; make search faster
! 	(error nil))
        (set-buffer-modified-p nil))
      (mew-summary-mark-in-physical-alist alist mark)))