[mew-dist 28075] ダイアログの基点を親にするパッチ

[KOIE Hidetaka ( 鯉江英隆 )]

届いたばかりのメイルというのはまだid.dbに登録されていないので
"V"でダイアログをつくれません。
親ならid.dbに登録されている可能性が高いので
親を基点にしてダイアログを作成するパッチを書いてみました。
#この変更の副作用により自分の兄弟も表示されます。

Index: mew-search.el
===================================================================
RCS file: /cvsmew/mew/mew-search.el,v
retrieving revision 1.72
diff -u -p -r1.72 mew-search.el
--- mew-search.el	19 Feb 2008 02:38:09 -0000	1.72
+++ mew-search.el	19 Feb 2008 03:16:40 -0000
@@ -701,9 +701,10 @@ with a search method."
 	  (file (mew-make-temp-name))
 	  (db (mew-expand-file "+" mew-id-db-file))
 	  (mydir (substring (mew-path-to-folder (mew-expand-folder (mew-summary-folder-name))) 1))
-	  crnt start prev opts dfunc myid)
+	  crnt start prev opts dfunc baseid myself)
      (mew-sumsyn-match mew-regex-sumsyn-long)
-     (setq myid (mew-sumsyn-my-id))
+     (setq baseid (or (mew-sumsyn-parent-id) (mew-sumsyn-my-id)))
+     (setq myself (concat mydir "/" (mew-sumsyn-message-number)))
      ;;
      (mew-summary-switch-to-folder vfolder)
      (mew-vinfo-set-mode 'selection)
@@ -722,8 +723,11 @@ with a search method."
 	 (mew-set-buffer-multibyte t)
 	 (mew-piolet
 	  mew-cs-text-for-read mew-cs-text-for-write
-	  (call-process mew-prog-smew nil t nil db myid mydir)
+	  (call-process mew-prog-smew nil t nil db baseid mydir)
 	  (goto-char (point-min))
+          (save-excursion
+            (when (not (re-search-forward (concat "^" myself "$") nil t))
+              (insert myself "\n")))
 	  (setq start (point))
 	  (while (re-search-forward regex nil t)
 	    (setq rttl (1+ rttl))


--
KOIE Hidetaka <hide at example.com>