From: teranisi <teranisi>
Date: Fri, 28 Apr 2000 07:31:08 +0000 (+0000)
Subject: (wl-summary-insert-thread-entity): Search parent by subject matching
X-Git-Tag: wl-1_1_1~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c7ecc1e8c7e96fcc90573e87ff68a64ce0ac2cee;p=elisp%2Fwanderlust.git

(wl-summary-insert-thread-entity): Search parent by subject matching
 if there's no in-reply-to nor references field.
(wl-summary-set-parent): New command (No key binding).
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 4c2148f..e0ea03d 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/04/28 13:03:02 teranisi>
+;; Time-stamp: <00/04/28 16:11:38 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -2874,7 +2874,25 @@ If optional argument is non-nil, checking is omitted."
 	  (elmo-msgdb-overview-get-parent-entity entity overview));; temp
 	 ;;(parent-id (elmo-msgdb-overview-entity-get-id parent-entity))
 	 (parent-number (elmo-msgdb-overview-entity-get-number parent-entity))
-	 msg)
+	 (case-fold-search t)
+	 msg overview2 cur-entity)
+    ;; Search parent by subject.
+    (when (and (null parent-number)
+	       (string-match wl-summary-search-parent-by-subject-regexp
+			     (elmo-msgdb-overview-entity-get-subject
+			      entity)))
+      (setq overview2 overview)
+      (while overview2
+	(setq cur-entity (car overview2))
+	(when (wl-summary-subject-equal
+	       (or (elmo-msgdb-overview-entity-get-subject cur-entity)
+		   "")
+	       (or (elmo-msgdb-overview-entity-get-subject entity)
+		   ""))
+	  (setq parent-number (elmo-msgdb-overview-entity-get-number
+			       cur-entity))
+	  (setq overview2 nil))
+	(setq overview2 (cdr overview2))))
     (if (and parent-number
 	     wl-summary-divide-thread-when-subject-changed
 	     (not (wl-summary-subject-equal 
@@ -5850,6 +5868,23 @@ Reply to author if invoked with argument."
 		  (if wl-cache-prefetch-debug
 		      (message "Reading %d... done" msg))))))))))
 
+(defun wl-summary-set-parent ()
+  "Set current message's parent interactively."
+  (interactive)
+  (let ((number (wl-summary-message-number))
+	(parent (read-from-minibuffer "Parent Message (No.): "))
+	buffer-read-only)
+    (when number
+      (wl-thread-delete-message number t)
+      (wl-thread-insert-message 
+       (elmo-msgdb-overview-get-entity-by-number
+	(elmo-msgdb-get-overview wl-summary-buffer-msgdb)
+	number)
+       (elmo-msgdb-get-overview wl-summary-buffer-msgdb)
+       (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb)
+       number
+       (string-to-int parent) t))))
+
 (provide 'wl-summary)
 
 ;;; wl-summary.el ends here