From: yoichi <yoichi>
Date: Sun, 8 Apr 2007 16:01:06 +0000 (+0000)
Subject: sample setting to call wl-summary-unvirtual as wl-summary-buffer-exit-function
X-Git-Tag: wl-2_15_6-fixes~86
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=68569576e658306d1f29368bce7a933888c49dd5;p=elisp%2Fwanderlust.git

sample setting to call wl-summary-unvirtual as wl-summary-buffer-exit-function
---

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 41bda50..904aca6 100644
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -174,6 +174,15 @@
 ;	     (wl-folder-open-unread-folder entity)
 ;	     ))
 
+;; Jump to unfiltered folder by `wl-summary-exit'. It is useful for people who
+;; use filtered folder as a temporary folder created by `wl-summary-virtual'.
+;(add-hook 'wl-summary-prepared-hook
+;	  '(lambda ()
+;	     (setq wl-summary-buffer-exit-function
+;		   (when (eq 'filter
+;			     (elmo-folder-type-internal wl-summary-buffer-elmo-folder))
+;		     'wl-summary-unvirtual))))
+
 ;; Change summary display function.
 
 ;; Set extra field use with `elmo-message-entity-field'.
diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 7dd59eb..dbe8c62 100644
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -173,6 +173,15 @@
 ;	     (wl-folder-open-unread-folder entity)
 ;	     ))
 
+;; `wl-summary-exit' によりフィルタされる前のフォルダに飛ぶ。フィルタフォルダを
+;; `wl-summary-virtual' で生成される一時的なフォルダとして使う場合に有用。
+;(add-hook 'wl-summary-prepared-hook
+;	  '(lambda ()
+;	     (setq wl-summary-buffer-exit-function
+;		   (when (eq 'filter
+;			     (elmo-folder-type-internal wl-summary-buffer-elmo-folder))
+;		     'wl-summary-unvirtual))))
+
 ;; サマリ表示関数を変更する
 
 ;; `elmo-message-entity-field' で参照したいフィールド。