2008年2月19日

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

届いたばかりのメイルというのはまだ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@xxxxx>

投稿者 xml-rpc : 2008年2月19日 12:32
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/69954
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。