[Mew-dist 3081] patch for mew-summary-mark-all

[TAKAHASHI Masafumi]

高橋@NID です。

mew-summary-search で選び出したメールを順番に読んでいく時、
最後のメールまでたどり着く前にそれまでに読み終えたメールを
refile したくなる場合があります。(私だけ?)
そんなわけで、mew-summary-mark-all に引数を付けた場合 (C-u m a)、
region 内のみに mark を付けるようにしてみました。

mew-mark.el version 0.10 (Mew version 1.93b4) へのパッチです。

-- 
高橋雅史 (株)エヌアイデイ
<takahasi at example.com>


diff -ur mew-1.93.org/mew-mark.el mew-1.93/mew-mark.el
--- mew-1.93.org/mew-mark.el	Tue Dec  2 21:38:59 1997
+++ mew-1.93/mew-mark.el	Fri Dec  5 21:03:38 1997
@@ -293,13 +293,15 @@
 ;; "mx" extensions
 ;;
 
-(defun mew-summary-mark-all ()
+(defun mew-summary-mark-all (&optional arg)
   "Put the '*' mark onto all messages which are not marked."
-  (interactive)
-  (let ((regex (concat mew-summary-message-regex " ")))
+  (interactive "P")
+  (let ((regex (concat mew-summary-message-regex " "))
+        (beginning (region-beginning))
+        (end (region-end)))
     (save-excursion
-      (goto-char (point-min))
-      (while (re-search-forward regex nil t)
+      (goto-char (if arg beginning (point-min)))
+      (while (re-search-forward regex (if arg end nil) t)
 	(mew-summary-mark-as mew-mark-review)
 	))
     ))