[mew-dist 24578] Re: pick

[KOIE Hidetaka ( 鯉江英隆 )]

  Message-Id: <20040212.142506.226779961.hide at example.com>
  Date:       Thu, 12 Feb 2004 14:25:06 +0900 (JST)
  From:       KOIE Hidetaka (鯉江英隆) <hide at example.com>
  Subject:    [mew-dist 24577] Re: pick

  | リージョンが指定されているときの `*' が `ma' と同じ動作になるパッチを
  | 書いてみました。

パッチを添付するのを忘れてしまいました。

Index: mew-mark.el
===================================================================
RCS file: /cvsmew/mew/mew-mark.el,v
retrieving revision 1.120
diff -F^( -u -r1.120 mew-mark.el
--- mew-mark.el	4 Feb 2004 09:40:26 -0000	1.120
+++ mew-mark.el	12 Feb 2004 05:03:54 -0000
@@ -409,7 +409,10 @@ (defun mew-summary-review (&optional cou
 Use '\\[mew-summary-display-review-down]' or '\\[mew-summary-display-review-up]' to jump to a message marked with '*'.
 See also '\\[mew-summary-mark-refile]', '\\[mew-summary-mark-delete]', '\\[mew-summary-mark-regexp]', and '\\[mew-summary-mark-all]'."
   (interactive "P")
-  (mew-mark-put-mark-loop 'mew-summary-review-one count nil))
+  (if (mew-mark-active-p)
+      (let ((begend (mew-summary-get-region)))
+	(mew-summary-mark-all-region (car begend) (cdr begend)))
+  (mew-mark-put-mark-loop 'mew-summary-review-one count nil)))
 
 (defun mew-summary-review-one (&optional no-msg)
   "Put the review mark (default is '*') on this message."

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