[mew-dist 20687] thread child and sibling (was: 大改造)

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 20681] 大改造
Message-ID: <20020328.152530.45266476.kazu at example.com>
Date: Thu, 28 Mar 2002 15:25:30 +0900 (JST)

> IMAP refile 大作戦遂行中のため、Mew を大改造しています。sync のために
> ときどき commit しています。エラーとか出るかもしれませんが、待ていれば
> 直るはずです。

# とりあえず、改造が終わったと思われるところから :-)

thread の child, slibling-up|down ですが、正規表現をパッチのよう
にすれば、通常の summary でも動作するので、この方が良いと思いま
す。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-thread.el.orig	Thu Mar 28 09:44:30 2002
+++ mew-thread.el	Fri Mar 29 10:52:12 2002
@@ -744,9 +744,9 @@
   (let ((pos (point))
 	(my-id (mew-summary-my-id))
 	key)
-    (if (or (null my-id) (string= my-id""))
+    (if (or (null my-id) (string= my-id ""))
 	(message "No required info")
-      (setq key (format " <%s> [^<]" (regexp-quote my-id)))
+      (setq key (format "\r <[^>]*> <%s>" (regexp-quote my-id)))
       (if (or (re-search-forward key nil t)
 	      (progn
 		(goto-char (point-min))
@@ -766,7 +766,7 @@
 	key)
     (if (or (null par-id) (string= par-id ""))
 	(message "No required info")
-      (setq key (format " <%s> [^<]" (regexp-quote par-id)))
+      (setq key (format "\r <[^>]*> <%s>" (regexp-quote par-id)))
       (if (re-search-backward key nil t)
 	  (progn
 	    (mew-summary-thread-move-cursor)
@@ -783,7 +783,7 @@
 	key)
     (if (or (null par-id) (string= par-id ""))
 	(message "No required info")
-      (setq key (format " <%s> [^<]" (regexp-quote par-id)))
+      (setq key (format "\r <[^>]*> <%s>" (regexp-quote par-id)))
       (forward-line)
       (if (re-search-forward key nil t)
 	  (progn