[Mew-dist 06769] Re: mew-refile.el

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。こんにちは。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 06749] mew-refile.el
Message-ID: <19981021165349E.kazu at example.com>
Date: Wed, 21 Oct 1998 16:53:53 +0900

kazu> それでぱっとコードを眺めて怪しいと思ったところを列挙しますので、直す努
kazu> 力をしてもらえませんか？

mew-refile.el の話が出ているので、便乗してお願いしてしまうのです
が、refile 先を summary に表示する機能があると、*安心* できてあ
りがたいです。

例えば、水戸さんのお書きになった

From: Mito <mit at example.com> さん曰く
Subject: [Mew-dist 3031] refile
Message-ID: <19971127113055T.mit at example.com>
Date: Thu, 27 Nov 1997 11:30:55 +0900 (JST)

# ちょっと古いメールなので該当部分を全部引用してしまいますが……

mit> ちなみに、私は refile 先の folder を確認したいので、以下のよ
mit> うにして summary に表示させています。
mit> 
mit> auto refile も安心です。^_^
mit> ＃ folder 
mit> 
mit> (defun mew-refile-folders (msg)
mit>   (mew-join ","  (cdr (assoc msg mew-summary-buffer-refile))))
mit> 
mit> (defun mew-summary-remove-refile-folders ()
mit>   (save-excursion
mit>     (let ((buffer-read-only nil)
mit>           (buf (current-buffer))
mit>           sol eol rs re)
mit>       (beginning-of-line)
mit>       (setq sol (point))
mit>       (end-of-line)
mit>       (setq eol (point))
mit>       (setq rs (next-single-property-change sol 'invisible buf eol))
mit>       (setq re (next-single-property-change rs 'invisible buf eol))
mit>       (set-text-properties rs re '(invisible nil))
mit>       (goto-char re)
mit>       (delete-char (- eol re)))))
mit> 
mit> (defadvice mew-summary-undo-one (before remove-refile-folders activate)
mit>   (mew-summary-remove-refile-folders)
mit>   (set-buffer-modified-p nil))
mit> 
mit> (defvar mew-refile-position 1)
mit> 
mit> (defadvice mew-summary-refile (before set-refile-position activate)
mit>   (setq mew-refile-position (point)))
mit> 
mit> (defadvice mew-summary-refile (after append-refile-folders activate)
mit>   (save-excursion
mit>     (goto-char mew-refile-position)
mit>     (mew-summary-remove-refile-folders)
mit>     (let ((msg (mew-summary-message-number))
mit>           (buffer-read-only nil)
mit>           folders len rs re c)
mit>       (setq folders (concat " " (mew-refile-folders msg)))
mit>       (setq len (string-width folders))
mit>       (if (< len 1) ()
mit>         (end-of-line)
mit>         (setq re (point))
mit> ;        (setq rs (if (> re len) (- re len) 1))
mit>         (setq c 0)
mit>         (while (< c len)
mit>           (backward-char)
mit>           (setq c (+ c (char-width (following-char)))))
mit>         (setq rs (point))
mit>         (set-text-properties rs re '(invisible t))
mit>         (goto-char re)
mit>         (insert folders)
mit>         (set-buffer-modified-p nil)))))

の様な機能です。長年(?)、愛用させて頂いています m(__)m

-- 
白井秀行 (Hideyuki SHIRAI)