From 67c430e00d95e8615740c7226178cc090593a019 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 10 May 2000 01:45:13 +0000 Subject: [PATCH] Revival of 'search parent by subject' feature. --- wl/ChangeLog | 9 +++++++++ wl/wl-summary.el | 34 +++++++++++++++++----------------- wl/wl-vars.el | 12 ++++++------ 3 files changed, 32 insertions(+), 23 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 16f569f..702699f 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,14 @@ 2000-05-10 Yuuichi Teranishi + * wl-vars.el (wl-summary-search-parent-by-subject-regexp): + New variable (revival). + * wl-summary.el (wl-summary-insert-thread-entity): Search parent + by subject matching if there's no in-reply-to nor references field + (revival). + + +2000-05-10 Yuuichi Teranishi + * wl-thread.el (wl-thread-close-all): Fixed typo in display-progress message. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 2b91f1f..f0e4ef9 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <2000-05-09 19:15:19 teranisi> +;; Time-stamp: <2000-05-10 10:42:05 teranisi> ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen). @@ -2882,22 +2882,22 @@ If optional argument is non-nil, checking is omitted." ;;overview2 cur-entity msg) ;; 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)))) + (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 diff --git a/wl/wl-vars.el b/wl/wl-vars.el index d7e8708..ab4ec06 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <00/05/10 10:20:17 teranisi> +;; Time-stamp: <2000-05-10 10:42:13 teranisi> ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen). @@ -175,11 +175,11 @@ If you don't have multiple e-mail addresses, you don't have to set this." :type 'function :group 'wl-summary) -;(defcustom wl-summary-search-parent-by-subject-regexp "^[ \t]*\\(\\[[^:]+[,: ][0-9]+\\]\\)?[ \t]*re" -; "*If message does not have in-reply-to field nor references field and -; subject matches this regexp, search parent message by subject matching." -; :type 'string -; :group 'wl-summary) +(defcustom wl-summary-search-parent-by-subject-regexp "^[ \t]*\\(\\[[^:]+[,: ][0-9]+\\]\\)?[ \t]*re" + "*If message does not have in-reply-to field nor references field and + subject matches this regexp, search parent message by subject matching." + :type 'string + :group 'wl-summary) (defcustom wl-summary-update-confirm-threshold 500 "*Confirm updating summary if message number is larger than this value." -- 1.7.10.4