From: kaoru <kaoru>
Date: Thu, 28 Jun 2001 05:59:48 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-translate-body): Don't insert User-Agent
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9eef1fd7e00b4a82e32beeb32437d19099ef8d3b;p=elisp%2Fsemi.git

* mime-edit.el (mime-edit-translate-body): Don't insert User-Agent
field.
(mime-edit-insert-user-agent-field): Changed default value to nil;
Fixed docstring.
---

diff --git a/ChangeLog b/ChangeLog
index c70c42c..8571cb1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2001-06-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* mime-edit.el (mime-edit-translate-body): Don't insert User-Agent
+	field.
+	(mime-edit-insert-user-agent-field): Changed default value to nil;
+	Fixed docstring.
+
 2000-11-29  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
 	* mime-edit.el (mime-edit-guess-charset): New function.
diff --git a/mime-edit.el b/mime-edit.el
index 267efde..7daa742 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -602,8 +602,8 @@ If it is not specified for a `major-mode',
 ;;; @@ optional header fields
 ;;;
 
-(defcustom mime-edit-insert-user-agent-field t
-  "*If non-nil, insert User-Agent header field."
+(defcustom mime-edit-insert-user-agent-field nil
+  "*If non-nil, some MUA makes verbose User-Agent header field."
   :group 'mime-edit
   :type 'boolean)
 
@@ -2098,10 +2098,6 @@ Content-Description: S/MIME Encrypted Message][base64]]\n")
       (let ((contype (car ret))		;Content-Type
 	    (encoding (nth 1 ret))	;Content-Transfer-Encoding
 	    )
-	;; Insert User-Agent field
-	(and mime-edit-insert-user-agent-field
-	     (or (mail-position-on-field "User-Agent")
-		 (insert mime-edit-user-agent-value)))
 	;; Make primary MIME headers.
 	(or (mail-position-on-field "MIME-Version")
 	    (insert mime-edit-mime-version-value))