[mew-dist 21503] Re: problem on hiliting

[KOIE Hidetaka ( 鯉江英隆 )]

  Message-Id: <20020821.013400.468709611.jado at example.com>
  Date:       Wed, 21 Aug 2002 01:34:00 +0900 (JST)
  From:       Shun-ichi TAHARA (田原 俊一) <jado at example.com>
  Subject:    [mew-dist 21497] Re: problem on hiliting

  | C-uC-s (isearch-regexp) を知っていると、その場で確認できるので結構便利
  | です。

そうそう
C-uC-c-C-sができないのを不便だと思っていたのでパッチです。

Index: mew-summary4.el
===================================================================
RCS file: /cvsmew/mew/mew-summary4.el,v
retrieving revision 1.37
diff -u -r1.37 mew-summary4.el
--- mew-summary4.el	2002/08/20 07:43:58	1.37
+++ mew-summary4.el	2002/08/21 03:22:33
@@ -242,9 +242,9 @@
 ;;; Searching
 ;;;
 
-(defun mew-summary-isearch-forward ()
+(defun mew-summary-isearch-forward (&optional arg)
   "Incremental search forward in Message mode."
-  (interactive)
+  (interactive "P")
   (let ((cwin (get-buffer-window (current-buffer)))
 	(mwin (get-buffer-window (mew-buffer-message))))
     (if (not mwin)
@@ -253,11 +253,11 @@
       (unwind-protect
 	  (progn
 	    (widen)
-	    (isearch-forward)
+	    (isearch-forward arg)
 	    (mew-message-narrow-to-page))
 	(select-window cwin)))))
 
-(defun mew-summary-isearch-backward ()
+(defun mew-summary-isearch-backward (&optional arg)
   "Incremental search backward in Message mode."
   (interactive)
   (let ((cwin (get-buffer-window (current-buffer)))
@@ -268,7 +268,7 @@
       (unwind-protect
 	  (progn
 	    (widen)
-	    (isearch-backward)
+	    (isearch-backward arg)
 	    (mew-message-narrow-to-page))
 	(select-window cwin)))))
 

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