From: kaoru <kaoru>
Date: Tue, 31 Jul 2001 04:05:12 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-translate-body): Revert; insert
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2729090fc5bf93045cbb52437a4a77c0cb1fe1d1;p=elisp%2Fsemi.git

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