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

[elisp/gnus.git-] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 945eabc..1e1ac50 100644 (file)
--- 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)
                )