[Mew-dist 07745] m r RET

[KOIE Hidetaka ( 鯉江英隆 )]

summaryバッファで m r RET というキーシーケンスを間違ってたたくと
無限ループにはまるのでパッチを作りました。
いまだlisp初心者なので、これでよいかどうかは自信なしです。

for mew-1.94b9:
--- mew-mark.el.org	Thu Feb 25 21:24:59 1999
+++ mew-mark.el	Thu Feb 25 21:28:37 1999
@@ -397,11 +397,12 @@
 (defun mew-summary-mark-regexp (regex)
   "Put the '*' mark onto Mall messages matched to a regular expression."
   (interactive "sRegexp: ")
-  (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)))))
+  (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))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>