[Mew-dist 16141] Re: patch for mew-organization

[Kazu Yamamoto ( 山本和彦 )]

From: Tatsuya Kinoshita <tatsuyak at example.com>
Subject: [Mew-dist 16115] patch for mew-organization

> diff -ur mew-1.95b101/mew-draft.el mew-1.95b101-tats20010130/mew-draft.el
> --- mew-1.95b101/mew-draft.el	Tue Jan 23 20:26:09 2001
> +++ mew-1.95b101-tats20010130/mew-draft.el	Tue Jan 30 15:41:02 2001
> @@ -358,6 +358,8 @@
>  	  (mew-draft-header-insert mew-x-face: xface)))
>      (mew-draft-header-insert mew-x-mailer: mew-x-mailer)
>      (setq body (mew-draft-header-insert-alist other-headers))
> +    (mew-draft-header-insert mew-organization: (mew-organization case))
> +    (mew-header-delete-lines (mapcar (function car) (mew-header-alist case)))
>      (mew-draft-header-insert-alist (mew-header-alist case))
>      (mew-header-prepared)
>      ;; on the body

ここの意図を教えて下さい。

(1) (mew-draft-header-insert mew-organization: (mew-organization case))
が、(setq body (mew-draft-header-insert-alist other-headers)) の後なのは
なぜでしょう？ (前ではダメなんでしょうか？)

(2) (mew-header-delete-lines (mapcar (function car) (mew-header-alist case)))
を挿入した意図は何でしょう？

--かず