* mime-edit.el (mime-edit-translate-body): Revert; insert

User-Agent field.
(mime-edit-insert-user-agent-field): Revert docstring.

diff --git a/ChangeLog b/ChangeLog
index 8571cb1..562fd2b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-07-31  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * mime-edit.el (mime-edit-translate-body): Revert; insert
+       User-Agent field.
+       (mime-edit-insert-user-agent-field): Revert docstring.
+
 2001-06-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * mime-edit.el (mime-edit-translate-body): Don't insert User-Agent

diff --git a/mime-edit.el b/mime-edit.el
index 7daa742..cc0dd1d 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -603,7 +603,7 @@ If it is not specified for a `major-mode',
 ;;;
 
 (defcustom mime-edit-insert-user-agent-field nil
-  "*If non-nil, some MUA makes verbose User-Agent header field."
+  "*If non-nil, insert User-Agent header field."
   :group 'mime-edit
   :type 'boolean)
 
@@ -2098,6 +2098,10 @@ 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))