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

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 28148] Re: ダイアログの基点を親にするパッチ
Message-ID: <20080312.145844.262799863.kazu at example.com>
Date: Wed, 12 Mar 2008 14:58:44 +0900 (JST)

> 1) 親がいないメッセージでは "No parent" と表示
> 2) 親がいて、同一フォルダにある場合は、さくっと移動
> 3) そうでない場合は、smew を使うか聞いて、y なら smew を使って探索

3) で proto => "+" のときに動かない模様です。

(mew-path-to-folder
 (mew-expand-folder (mew-case-folder "default" "+")))
=> "/home/shirai/Mail"

となり、"%" などの "+#imap/hoge...#imap" と構造が異なるからでしょ
う。とりあえず↓なので動きましたけど、proto が local ではないと
きのテストは出来ていません。

Index: mew-thread.el
===================================================================
RCS file: /cvsmew/mew/mew-thread.el,v
retrieving revision 1.144
diff -u -r1.144 mew-thread.el
--- mew-thread.el	12 Mar 2008 05:55:20 -0000	1.144
+++ mew-thread.el	12 Mar 2008 06:47:22 -0000
@@ -733,13 +733,15 @@
      (if (not msg)
 	 nil
        (mew-set '(case proto) (mew-summary-case-proto))
-       (setq base-path (mew-folder-string
-			(mew-path-to-folder
-			 (mew-expand-folder (mew-case-folder case proto)))))
-       (setq path-regex (concat "^" (regexp-quote base-path)))
-       (if (not (string-match path-regex path))
-	   nil
-	 (setq folder (concat proto (substring path (match-end 0))))
+       (if (mew-folder-localp proto)
+	   (setq folder (concat proto path))
+	 (setq base-path (mew-folder-string
+			  (mew-path-to-folder
+			   (mew-expand-folder (mew-case-folder case proto)))))
+	 (setq path-regex (concat "^" (regexp-quote base-path)))
+	 (when (string-match path-regex path)
+	   (setq folder (concat proto (substring path (match-end 0))))))
+       (when folder
 	 (mew-summary-visit-folder (mew-case-folder case folder) nil 'no-ls)
 	 (if (mew-summary-search-msg msg)
 	     (progn

-- 
白井秀行 (mailto:shirai at example.com)