[Mew-dist 802] Auto refile

[尾澤稔]

皆さんはじめまして。
最近このMLに登録した尾澤と申します。
Mewは1.05の頃から使っています。
はじめて投稿するので不手際があったら教えて下さい。

本題ですが、Mewには、リファイルの機能がついていますが、手作業でリファイルを
するのが少々面倒です。
mew-folder-alist にしたがってMew終了時等に自動で、リファイルしてくれる機能が
あったら便利だと思い自分で作ってみましたが、少々遅いので、どなたかこんな機能
を実現している方いませんか?

一応、私の作ったものを添付しておきます。

-------------- next part --------------
;;;			     mew-auto-refile.el
;;;
;;;		Copyright (C) 1997  Minoru Ozawa
;;;
;;;		   This emacs lisp library conforms
;;;		GNU GENERAL PUBLIC LICENSE Version 2.
;;;
;;; Author:  Minoru Ozawa <ozawa at example.com>
;;; Created: April 3, 1997
;;; Revised: 
;;;
(defvar mew-auto-refile-exec nil)

(defun mew-auto-refile-get-folder ()
  (interactive)
  (let ((mew-summary-buffer-disp-msg nil)
	(mew-analysis nil)
	msg-buffer folder)
    (setq msg-buffer (or (mew-summary-display t)
			 (mew-buffer-message)))
    (save-excursion
      (set-buffer msg-buffer)
      (setq folder (car (mew-guess-by-alist))))
    folder))

(defun mew-auto-refile ()
  (interactive)
  (let (folder)
    (message "Mew auto refiling Now ... ")
    (save-excursion
      (goto-char (point-min))
      (while (not (eobp))
	(setq folder (mew-auto-refile-get-folder))
	(if folder (mew-summary-refile-mark folder))
	(forward-line 1)
	))
    (if mew-auto-refile-exec
	(mew-summary-exec))
    (message "Mew auto refile Done")
    ))

(provide 'mew-auto-refile)