[mew-dist 24736] Re: 議事録？

[Ryota Hirose]

ヤマハの広瀬です。

>From: Kazu Yamamoto (山本和彦) <kazu at example.com>
>Date: Fri, 19 Mar 2004 13:31:35 +0900 (JST)

>	* リージョンに対してマークしたい。visible なリージョンを使って
>          いるときは、リージョンに対してマークするようにする。

その場で言ってみた人ですが、こんなパッチでできるようになってます。

Index: mew-mark.el
===================================================================
RCS file: /cvsmew/mew/mew-mark.el,v
retrieving revision 1.120
diff -c -r1.120 mew-mark.el
*** mew-mark.el	4 Feb 2004 09:40:26 -0000	1.120
--- mew-mark.el	19 Mar 2004 05:25:26 -0000
***************
*** 302,307 ****
--- 302,316 ----
  If COUNT is negative, call FUNC in COUNT times moving the cursor backward.
  If COUNT is numeric and STAYP is non-nil, the cursor stays in the
  original position."
+   (if (and (not (numberp count)) (mew-mark-active-p))
+       (save-excursion
+ 	(let ((begend (mew-summary-get-region)))
+ 	  (setq count (count-lines (car begend) (cdr begend)))
+ 	  (goto-char (car begend))
+ 	  (mew-mark-put-mark-loop1 func count stayp)))
+     (mew-mark-put-mark-loop1 func count stayp)))
+ 
+ (defun mew-mark-put-mark-loop1 (func count stayp)
    (when (and func (fboundp func))
      (mew-summary-msg-or-part
       (if (numberp count)