[Mew-dist 16278] refile-viewでのウィンドウ配置の保存

[KOIE Hidetaka ( 鯉江英隆 )]

ここのところrefile-viewを以下のようにして
mew-summary-execを置き換えて運用しています。

(defun mew-summary-or-thread-exec (&optional arg)
  (interactive "P")
  (if (or (mew-virtual-p) (mew-thread-p))
      (mew-summary-exec arg)
    (mew-refile-view arg)))
(add-hook 'mew-init-hook
          (function
           (lambda ()
             (define-key mew-summary-mode-map "x" 'mew-summary-or-thread-exec)
             (define-key mew-summary-mode-map "l" 'mew-refile-view))))

このようにしてから都合がわるいのは、こんな場合です:

   (1) おもしろくないドキュメント書きをしている
   (2) あきてきたのでメイルを読もう
   (3) C-x 2 で画面を割る
   (4) M-x m e w RET
   (5) メイルを読む
   (6) oでrefileを指定する
   (7) xでrefile-viewを召喚する
       このとき(1)のウィンドウがあった場所がrefile viewになる
   (8) もういちどxをたたいてrefileを実行する
   (9) あのドキュメントのウィンドウが見えてないので
       C-x C-bでbuffer listを呼び出し1で作業再開
       (作業を再開しないこともしばしば)

適当なhookがなかったので以下のようにしました。
(defadvice mew-refile-view (before save-win-conf activate)
   (mew-current-set-window-config))
(defadvice mew-refile-view-exit (after restore-win-conf activate)   
   (mew-current-get-window-config))

けっこう具合がよいです。

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>