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

[Yoshinari NOMURA]

On Thu, 22 Oct 1998 12:23:10 +0900,
	"Takashi P.KATOH" <p-katoh at example.com> said:

> Summary buffer で M-x mew-refile-view とすると、
> 
> ----------------------------------------
> +mew/mew-06700
>    65  10/21 Shun-ichi GOTO     [Mew-dist 06764] Re: Decode of From Line
>    66  10/21 Shun-ichi GOTO     [Mew-dist 06765] Re: Decode of From Line
>    67 M10/21 Kazumasa Utashiro  [Mew-dist 06766] Re: pick problem
>    68  10/21 Takahiro Kambe     [Mew-dist 06767] Re: pgp-mime in multi-part
> ----------------------------------------
> 
> のように、refile 先の folder ごとに (別 buffer に) 表示され
> ます。

こういう目的だったら、pick という手もあります。以下のコードで、
+inbox の mew-dist を読みたいときは、'G' して mew-dist としてます。

pick pattern のエイリアスみたいなもんです。ある意味、virtual
folder ともいう。
--
nom

(define-key mew-summary-mode-map "G" 'mew-summary-search-by-tocc)
(defun mew-summary-search-by-tocc ()
  (interactive)
  (let (keyword range)
    (setq keyword (read-from-minibuffer "To or Cc = "))
    (setq range 
          (mew-summary-pick
           (buffer-name)
           (format "to=%s || cc=%s" keyword keyword)))
    (if range (mew-summary-scan-body mew-prog-imls
                                     'mew-summary-mode
                                     (buffer-name)
                                     mew-cs-scan
                                     (list range 'erase))
      )
    ))