[Mew-dist 11406] list modification functions

[Kazu Yamamoto ( 山本和彦 )]

リストを操作するマクロを作りました。

たとえば、
	(mew-replace-with mew-field-spec '("^Date:$" nil) "^Date:$")
のように使います。

1.95b6 には入れておきます。削除するマクロも必要でしょうか？

(defmacro mew-add-first (variable value)
  (` (setq (, variable) (cons (, value) (, variable)))))

(defmacro mew-insert-after (variable value key)
  (` (let ((var (, variable)))
       (catch 'loop
	 (while var
	   (if (equal (nth 0 (car var)) (, key))
	       (throw 'loop (setcdr var (cons (, value) (cdr var)))))
	   (setq var (cdr var)))))))

(defmacro mew-replace-with (variable value key)
  (` (let ((var (, variable)))
       (catch 'loop
	 (while var
	   (if (equal (nth 0 (car var)) (, key))
	       (throw 'loop (setcar var (, value))))
	   (setq var (cdr var)))))))

--かず