[Mew-dist 09046] mew-summary-mark-regexp

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

最近、mew-summary-mark-regexp を多用するようになったのですが、安
全性と高速性を高めてみました。

# やっぱり、全部にマッチする regexp って ".*" って書きたくなって
# しまう。^^;;;


--- mew-mark.el.orig	Fri May 28 18:41:02 1999
+++ mew-mark.el	Fri May 28 18:41:36 1999
@@ -380,9 +380,13 @@
   (if (not (equal regex ""))
       (save-excursion
         (goto-char (point-min))
-        (while (re-search-forward regex nil t)
-          (if (not (mew-summary-marked-p))
-	      (mew-summary-mark-as mew-mark-review))))))
+        (while (and (not (eobp))
+		    (re-search-forward regex nil t))
+	  (if (or (mew-in-decode-syntax-p)
+		  (mew-summary-marked-p))
+	      ()
+	    (mew-summary-mark-as mew-mark-review))
+	  (forward-line)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;