[Mew-dist 09707] Re: mew-summary-refile in virtual-mode

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 09542] Re: mew-summary-refile in virtual-mode 
Message-ID: <19990707125052R.kazu at example.com>
Date: Wed, 7 Jul 1999 12:50:33 +0900

kazu> > (defmacro mew-summary-only (&rest body)
kazu> >   (` (if (and (interactive-p) (not (equal major-mode 'mew-summary-mode)))
kazu> > 	 (message "This command can be used in Summary mode only")
kazu> >        (,@ body))))
kazu> > 
kazu> > という風に interactive で無かったら body が動いてしまうのですが、
kazu> > この条件は必要なのでしょうか？ もし、interactive の and 条件を外
kazu> 
kazu> 思い出せないので、外しておきます。

実害は無いのですが、既存の virtual folder に 'g' するときに

"This command can be used in Summary mode only"

と怒られます。これでいいのかという気もしますが、とりあえずパッチ
です。

*** mew-summary.el.orig	Fri Jul 16 09:16:20 1999
--- mew-summary.el	Fri Jul 16 09:17:13 1999
***************
*** 570,576 ****
  	(switch-to-buffer folder)
        (mew-summary-folder-create folder)
        (setq new-folder t))
!     (mew-summary-ls t (or arg new-folder))))
  
  (defun mew-summary-folder-create (folder)
    (switch-to-buffer (get-buffer-create folder))
--- 570,577 ----
  	(switch-to-buffer folder)
        (mew-summary-folder-create folder)
        (setq new-folder t))
!     (and (eq major-mode 'mew-summary-mode)
! 	 (mew-summary-ls t (or arg new-folder)))))
  
  (defun mew-summary-folder-create (folder)
    (switch-to-buffer (get-buffer-create folder))