[Mew-dist 06743] Re: fancy picking

[Kazu Yamamoto ( 山本和彦 )]

From: Tomotaka SUWA (諏訪 友崇) <cooper at example.com>
Subject: [Mew-dist 06440] Re: fancy picking
Date: Thu, 17 Sep 1998 11:50:04 +0900

>  1  5/08 From Subject Body
>  2  6/09 From Subject Body
> 
> で同じことをすると、うまくいきます(1 行目の '5' の真上にカーソルが移動)。
> 
> elisp は詳しくないので推測でしかありませんが、[^0-9]+ の評価は「数字を
> 見付ける。見つかったらその直前(副作用で移動)」のように見えます。

とっても遅い返事でごめんなさい。どうも [^0-9]+ と書くと行末などを間違
うようなので、+ を取り除いてみました。こちらではうまくいっているように
見えます。

--かず＠逃避中


-------------- next part --------------
*** mew-pick.el.orig	Wed Oct 21 14:04:17 1998
--- mew-pick.el	Wed Oct 21 14:04:38 1998
***************
*** 70,76 ****
  	(message "Marking messages ... ")
  	(goto-char r1)
  	(while (and range (< (point) r2))
! 	  (if (re-search-forward (format "^[ ]*%s[^0-9]+" (car range)) nil t)
  	      (if (not (mew-summary-marked-p))
  		  (mew-summary-mark-as mew-mark-review)))
  	  (setq range (cdr range)))
--- 70,76 ----
  	(message "Marking messages ... ")
  	(goto-char r1)
  	(while (and range (< (point) r2))
! 	  (if (re-search-forward (format "^[ ]*%s[^0-9]" (car range)) nil t)
  	      (if (not (mew-summary-marked-p))
  		  (mew-summary-mark-as mew-mark-review)))
  	  (setq range (cdr range)))