[Mew-dist 09736] mew-refile-view.el 0.05

[Takashi P.KATOH]

かとぺ です。

mew-refile-view.el 0.04 -> 0.05 のパッチです。

今回は、Emacs を終了するとき等に、

  Marks exist in +inbox. Process them?

と聞かれたときに探すのが便利なように、prefix 付きで (私の場
合は C-u l) とすると、mew-refile-view-show-trash の値にかか
わらず +trash も対象にするようにしました。

そうすると、mew-refile-view-show-trash という変数の存在意義
が無いような気がしているのですが、

(1) mew-refile-view-show-trash を残し、prefix で強制的に t
    (つまり現状)
(2) mew-refile-view-show-trash を廃止して、+trash も表示する
    には必ず prefix をつける

のどちらが{いい,自然 (= emacs ちっく)}でしょう?

# ところで pop-to-buffer 問題って解決したんですよね?

-- 
かとぺ / 加藤 貴司
ドラえもんカラー作品集第 1 巻 本日発売

-------------- next part --------------
--- mew-refile-view.el	1999-07-04 14:54:08+09	1.4
+++ mew-refile-view.el	1999-07-17 16:07:13+09	1.5
@@ -2,11 +2,11 @@
 
 ;; Author:  Takashi P.KATOH <p-katoh at example.com>
 ;; Created: Oct 22, 1998
-;; Revised: Jul  4, 1999
+;; Revised: Jul 17, 1999
 
 ;;; Code:
 
-(defconst mew-refile-view-version "mew-refile-view.el version 0.04")
+(defconst mew-refile-view-version "mew-refile-view.el version 0.05")
 
 (require 'mew)
 (if mew-xemacs-p (require 'easymenu))
@@ -100,11 +100,12 @@
       (setq alist (cdr alist)))
     result))
 
-(defun mew-refile-view ()
-  (interactive)
+(defun mew-refile-view (&optional prefix)
+  (interactive "P")
   (mew-summary-only
    (let* ((folder (buffer-name))
 	  (bufname (format "*Mew refile view* (%s)" folder))
+	  (mew-refile-view-show-trash (or prefix mew-refile-view-show-trash))
 	  (refile (mew-summary-mark-collect mew-mark-refile
 					    (point-min) (point-max)))
 	  (trash