[mew-dist 18600] `X-Mailer:' must be the last (was: bcc)

[Tatsuya Kinoshita]

In message [mew-dist 18595], on Wed, 29 Aug 2001,
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> X-Mailer: は、必ず "----" の真上にくるようにしました。

C-c C-oなど、case-guessでヘッダを更新する際にも、そうなるように
しました。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -ur mew/mew-config.el mew-tats/mew-config.el
--- mew/mew-config.el	Sun Jul  8 14:00:37 2001
+++ mew-tats/mew-config.el	Wed Aug 29 20:45:01 2001
@@ -331,8 +331,11 @@
        (mapcar (function car) (mew-header-alist old-case)))
       (mew-header-delete-lines
        (mapcar (function car) (mew-header-alist new-case)))
+      (mew-header-delete-lines (list mew-x-mailer:))
       (mew-header-goto-end)
-      (mew-draft-header-insert-alist (mew-header-alist new-case)))))
+      (mew-draft-header-insert-alist (mew-header-alist new-case))
+      ;; X-Mailer: must be the last
+      (mew-draft-header-insert mew-x-mailer: mew-x-mailer))))
 
 (defun mew-draft-get-case-by-guess (&optional alist)
   "Guess case according to 'mew-case-guess-alist'."