[mew-dist 25066] mew-refile-view speeded up

[KOIE Hidetaka ( 鯉江英隆 )]

+inboxに未読メールがたまってしまった関係で
mew-refile-viewに時間がかかるようになってしまいました。
で、たいていの場合で早くなるだろうパッチです。

--- mew-refile-view.el	Fri Jun 11 12:07:35 2004
+++ mew-refile-view.el-koie	Fri Jun 11 12:12:23 2004
@@ -81,6 +81,10 @@
 ;;; Refile view mode
 ;;;
 
+(defun re-search-forward-and-backward (regexp bound noerror)
+  (or (re-search-forward regexp bound noerror)
+      (re-search-backward regexp bound noerror)))
+  
 ;; -> mew-vars ?
 (defconst mew-refile-view-folder-regex "^[*+=]")
 (defvar original-folder nil)
@@ -177,8 +181,8 @@
 	     ;;
 	     (set-buffer (get-buffer folder))
 	     ;; Mew4
-	     (goto-char (point-min))
-	     (when (re-search-forward (mew-regex-sumsyn-msg (int-to-string num)) nil t)
+	     (when (re-search-forward-and-backward
+                    (mew-regex-sumsyn-msg (int-to-string num)) nil t)
 	       (if (mew-thread-p)
 		   (setq summary
 			 (concat

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