From 9eef1fd7e00b4a82e32beeb32437d19099ef8d3b Mon Sep 17 00:00:00 2001 From: kaoru Date: Thu, 28 Jun 2001 05:59:48 +0000 Subject: [PATCH] * 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. --- ChangeLog | 7 +++++++ mime-edit.el | 8 ++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index c70c42c..8571cb1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2001-06-28 TAKAHASHI Kaoru + + * 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 * 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)) -- 1.7.10.4