[Mew-dist 07385] X-Mailer and Mime-Version

[Takashi P.KATOH]

先日、multi-part なメエルでちょっと苦戦してて、いらないヘッ
ダアが残ってしまったのでそれを消そうとしたときに、
Mime-Version: も Mew が入れてくれるものだと勘違いしていっしょ
に消してしまって (;_;) になってしまったのですが、よくよく考
えてみると、X-Mailer: や Mime-Version: はユーザーがいじる必
要のない (というか、MUA 側で勝手に入れるべき) ヘッダアだよなぁ
と思ったのですが、いかがでしょう?

ってことで、パッチです。

-- 
かとぺ / 加藤 貴司
SKK-10.47.8 が make できない (;_;)

--- mew-draft.el,orig	Tue Feb  9 19:17:05 1999
+++ mew-draft.el	Tue Feb  9 19:16:28 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: "

--- mew-encode.el,orig	Mon Aug 24 23:45:15 1998
+++ mew-encode.el	Wed Feb 10 13:54:49 1999
@@ -58,6 +58,10 @@
 	(ding)
 	(message "%s already exists!" mew-ct:))
     (message "Making a MIME letter ...")
+    ;; 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)
     (if (mew-attach-p)
 	(let ((mew-inherit-signer
 	       (or (mew-header-parse-address mew-from:) mew-mail-address)))

--- mew-summary.el,orig	Mon Feb  8 20:35:54 1999
+++ mew-summary.el	Wed Feb 10 14:05:24 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