[Mew-dist 07407] Re: X-Mailer and Mime-Version

[Takashi P.KATOH]

From: "Takashi P.KATOH" <p-katoh at example.com>
Subject: [Mew-dist 07385] X-Mailer and Mime-Version
>						   よくよく考
> えてみると、X-Mailer: や Mime-Version: はユーザーがいじる必
> 要のない (というか、MUA 側で勝手に入れるべき) ヘッダアだよなぁ
> と思ったのですが、いかがでしょう?
> ってことで、パッチです。

このパッチでは C-c C-u (mew-draft-undo) を繰り返すと、
X-Mailer と Mime-Version が増植してしまいます。

前回の [Mew-dist 07385] のパッチは破棄して (すでに当ててる場
合は -R でもとに戻して)、以下のパッチに置き換えて下さい (_o_)

-- 
かとぺ / 加藤 貴司

diff -ur ../mew-1.94b3,orig/mew-draft.el ./mew-draft.el
--- ../mew-1.94b3,orig/mew-draft.el	Tue Nov 24 15:53:45 1998
+++ ./mew-draft.el	Fri Feb 12 13:40:18 1999
@@ -593,12 +593,10 @@
 	  (setq xface (mew-buffer-substring (point-min) (max (buffer-size) 1)))
 	  )
 	(mew-header-insert-here mew-x-face: xface)))
-  (mew-header-insert-here mew-x-mailer: mew-x-mailer)
   (let ((halist mew-header-alist))
     (while halist
       (mew-header-insert-here (car (car halist)) (cdr (car halist)))
       (setq halist (cdr halist))))
-  (mew-header-insert-here mew-mv: mew-mv:-num)
   (mew-header-prepared)
   (if nl (insert "\n"))
   ;; move the cursor after "To: "
diff -ur ../mew-1.94b3,orig/mew-encode.el ./mew-encode.el
--- ../mew-1.94b3,orig/mew-encode.el	Mon Aug 24 23:45:15 1998
+++ ./mew-encode.el	Fri Feb 12 13:40:18 1999
@@ -67,6 +67,10 @@
 	      (mew-draft-make-multi)
 	    (mew-draft-make-single)))
       (mew-draft-make-single))
+    ;; Insert misc headers
+    (goto-char (mew-header-end))
+    (mew-header-insert-here mew-x-mailer: mew-x-mailer)
+    (mew-header-insert-here mew-mv: mew-mv:-num)
     (mew-draft-make-header)
     (message "Making a MIME letter ... done")))
 
diff -ur ../mew-1.94b3,orig/mew-summary.el ./mew-summary.el
--- ../mew-1.94b3,orig/mew-summary.el	Mon Feb  8 20:35:54 1999
+++ ./mew-summary.el	Fri Feb 12 13:40:19 1999
@@ -1263,7 +1263,6 @@
   (mew-header-fill-here mew-dcc:      mew-dcc)
   (mew-header-fill-here mew-from:     mew-from)
   (mew-header-fill-here mew-reply-to: mew-reply-to)
-  (mew-header-fill-here mew-x-mailer: mew-x-mailer)
   (let ((ct (mew-addrstr-parse-value (mew-header-get-value mew-ct:))))
     (if (and ct (mew-case-equal mew-ct-txt ct))
 	(progn