From c2bf2071db13b70193e020307b99803d6851109a Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 29 Sep 1998 16:40:37 +0000 Subject: [PATCH] (message-deletable-headers): Delete `User-Agent'. --- lisp/message.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index 945eabc..1e1ac50 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -208,7 +208,7 @@ included. Organization, Lines and User-Agent are optional." :group 'message-headers :type '(repeat sexp)) -(defcustom message-deletable-headers '(Message-ID Date Lines User-Agent) +(defcustom message-deletable-headers '(Message-ID Date Lines) "Headers to be deleted if they already exist and were generated by message previously." :group 'message-headers :type 'sexp) @@ -3088,10 +3088,10 @@ give as trustworthy answer as possible." user-agent beg p end) (if (re-search-forward "^User-Agent:[ \t]*" nil t) (progn - (setq beg (match-beginning 0) - p (match-end 0) - end (std11-field-end) - user-agent (buffer-substring p end)) + (setq beg (match-beginning 0) + p (match-end 0) + end (std11-field-end) + user-agent (buffer-substring p end)) (delete-region beg (1+ end)) (concat message-user-agent " " user-agent) ) -- 1.7.10.4