From 2729090fc5bf93045cbb52437a4a77c0cb1fe1d1 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 31 Jul 2001 04:05:12 +0000 Subject: [PATCH] * mime-edit.el (mime-edit-translate-body): Revert; insert User-Agent field. (mime-edit-insert-user-agent-field): Revert docstring. --- ChangeLog | 6 ++++++ mime-edit.el | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 8571cb1..562fd2b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2001-07-31 TAKAHASHI Kaoru + + * 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 * 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)) -- 1.7.10.4