[mew-dist 26070] Re: how to move to certain message from filename

[Shigeru Yasuda]

In article <20050218.185930.42648670.kazu at example.com>,
     Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

>> C-uj で、メッセージ番号で移動するようになりました。

これ、カーソルから前方だけを見てるようなので、後方も見てもらえると
助かるのですが、お願いできますでしょうか?

Index: mew-summary4.el
===================================================================
RCS file: /cvsmew/mew/mew-summary4.el,v
retrieving revision 1.154
diff -u -r1.154 mew-summary4.el
--- mew-summary4.el	18 Feb 2005 09:58:49 -0000	1.154
+++ mew-summary4.el	2 Mar 2005 05:41:51 -0000
@@ -147,10 +147,12 @@
 the message is then displayed."
   (interactive "P")
   (if arg
-      (let ((msg (read-string "Message No.: " "")))
+      (let ((msg (read-string "Message No.: " "")) regex)
 	(while (not (string-match mew-regex-message-files3 msg))
 	  (setq msg (read-string "Message No.: " "")))
-	(when (re-search-forward (mew-regex-sumsyn-msg msg) nil t)
+	(setq regex (mew-regex-sumsyn-msg msg))
+	(when (or (re-search-forward regex nil t)
+		  (re-search-backward regex nil t))
 	  (beginning-of-line)
 	  (if mew-summary-goto-line-then-display
 	      (mew-summary-display nil))))

--
やすだ