From: morioka <morioka>
Date: Tue, 29 Sep 1998 16:40:37 +0000 (+0000)
Subject: (message-deletable-headers): Delete `User-Agent'.
X-Git-Tag: chao-gnus-6_9_0~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c2bf2071db13b70193e020307b99803d6851109a;p=elisp%2Fgnus.git-

(message-deletable-headers): Delete `User-Agent'.
---

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