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

[TAKAHASHI Masafumi]

高橋@NID です。

[Mew-dist 3081] にポストした mew-summary-mark-all の
region 対応パッチですが、Summary バッファに mark が
セットされていないと `No mark set in this buffer' に
なるという恥ずかしいバグがおりました。

Mew version 1.93b7 へのパッチです。

-- 
高橋雅史 (株)エヌアイデイ
<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	Mon Dec 15 15:10:46 1997
+++ mew-1.93/mew-mark.el	Mon Dec 15 18:33:57 1997
@@ -296,12 +296,16 @@
 (defun mew-summary-mark-all (&optional arg)
   "Put the '*' mark onto all messages which are not marked."
   (interactive "P")
-  (let ((regex (concat mew-summary-message-regex " "))
-        (beginning (region-beginning))
-        (end (region-end)))
+  (if arg
+      (mew-summary-mark-region (region-beginning) (region-end))
+    (mew-summary-mark-region (point-min) (point-max))))
+
+(defun mew-summary-mark-region (beg end)
+  (interactive "r")
+  (let ((regex (concat mew-summary-message-regex " ")))
     (save-excursion
-      (goto-char (if arg beginning (point-min)))
-      (while (re-search-forward regex (if arg end nil) t)
+      (goto-char beg)
+      (while (re-search-forward regex end t)
 	(mew-summary-mark-as mew-mark-review)
 	))
     ))