[Mew-dist 431] Re: switch From: from To:

[樋口雅文 [Masafumi Higuchi]]

樋口@NTTソフト研です。

>>>>> "yoshi" == (yoshi at example.com (Y.Yoshinaga)) さん曰く:

yoshi> ということは tm を使わないと樋口さんの mew-select-from は
yoshi> 使えないのでしょうか。

だいぶ前に書いた関数で、そのときどんなつもりでこのパッケージから関数を
持ってきたのか覚えていないのですが...

yoshi> Mule や Mew の関数を使って同等の関数が実現できれば嬉しいのです
yoshi> が…。

今調べてみると、mew-header-get-value (in 1.54) でも同じことができそう
です。1.06だとmew-field-get-valueという名前になるのかな?

それを使って書き換えた関数は以下の通りです。

(defun mew-select-from ()
  (catch 'tag
    (let ((r mew-from-variation-alist) cell b f)
      (while r
		(setq cell (car r))
		(setq b (car cell))
		(if (setq f (mew-header-get-value (car b)))
			(cond ((listp (cdr b))
				   (let ((r (cdr b)))
					 (while r
					   (if (string-match (car r) f)
						   (throw 'tag (cdr cell))
						 )
					   (setq r (cdr r))
					   ))
				   )
				  ((stringp (cdr b))
				   (if (string-match (cdr b) f)
					   (throw 'tag (cdr cell))
					 ))
				  ))
		(setq r (cdr r))
		))
	mew-from))

    %%%%  樋口 雅文     E-mail: higuchi at example.com  %%%%
    %%%%       NTT Software Laboratories             %%%%
    %%%%  Phone:+81-422-59-2908 FAX:+81-422-59-2699  %%%%