* 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 (file)
--- 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 (file)
--- 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))