[Mew-dist 09495] Re: mew-refile-view.el (Re: mew-refile.el)

[Takashi P.KATOH]

かとぺ です。

ものすご〜く古い話なので、御本人も覚えていらっしゃらないかも
しれませんが ;-)、もし覚えていらっしゃいましたら教えていただ
けると助かります。

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 06866] Re: mew-refile-view.el (Re: mew-refile.el)
> それと、"q" をちょっと変えました。

の部分ですが、これはどういう意図によるものでしょう?
というか、(delete-window) が失敗する (のを拾ってるんですよね?)
のはどういう時なのでしょう?

> @@ -142,10 +164,76 @@
>  (defun mew-refile-view-quit ()
>    "Exit from mew-refile-view-mode."
>    (interactive)
> -  (delete-window)
> -  ;; and/or do `kill-buffer'?
> -  ;; (kill-buffer (current-buffer))
> -  )
> +  (condition-case nil
> +      (delete-window)
> +    ;; and/or do `kill-buffer'?
> +    ;; (kill-buffer (current-buffer))
> +    (error
> +     (if (not (and original-folder (get-buffer original-folder)))
> +	 (progn
> +	   (message "No Summary mode for %s" original-folder)
> +	   (kill-buffer (current-buffer)))
> +       (mew-pop-to-buffer original-folder)
> +       (delete-other-windows)))))


これ以外の部分 (と今朝の深江さんのパッチ) はマージしました。
はやければ明日にでもこちらに流す予定です。

-- 
かとぺ / 加藤 貴司
8 ヶ月も前だったりするし...