[Mew-dist 13553] Re: 予定

[Kazu Yamamoto ( 山本和彦 )]

From: Masaki KONUMA <konuma at example.com>
Subject: [Mew-dist 13552] Re: 予定

> > 	- Pack (僕が +inbox で多用するので)
> 
> Elisp 版 Pack が手元にあるので添付します。

ごめんなさい。

あまりにいらいらしたので、昨日実装してしまっています。(_ _)

(defun mew-summary-pack ()
  "Pack messages and list them up again."
  (interactive)
  (mew-summary-only
   (let ((folder (buffer-name))
         lines)
     (if (not (mew-summary-exclusive-p))
         ()
       (mew-mark-clean)
       (if (and mew-ask-pack (not (y-or-n-p (format "Pack %s? " folder))))
           ()
         (setq lines (mew-summary-mark-collect3 mew-mark-review))
         (setq mew-summary-buffer-process t)
	 (let* ((dir (mew-expand-folder folder))
		(default-directory dir)
		(n 1)
		(inhibit-quit t)
		msgs msg)
	   (setq msgs (directory-files "." nil mew-regex-message-files 'no-sort))
	   (setq msgs (mapcar (function string-to-int) msgs))
	   (setq msgs (sort msgs (function <)))
	   (while msgs
	     (setq msg (car msgs))
	     (setq msgs (cdr msgs))
	     (if (/= msg n)
		 (rename-file (int-to-string msg) (int-to-string n)))
	     (setq n (1+ n))))
         (setq mew-summary-buffer-process nil)
         (mew-erase-buffer) ;; for update
         (mew-summary-scan-body 'mew-summary-mode
                                folder mew-cs-scan
                                mew-range-all nil nil
                                lines))))))

--かず＠逃避は続くよ、どこまでも