From: ueno <ueno>
Date: Mon, 22 Apr 2002 18:53:45 +0000 (+0000)
Subject: * message.el (message-make-user-agent): Remove product tokens
X-Git-Tag: t-gnus-6_15_7-00-quimby~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3d0a19157c4c84687d19a4d9933b383a097fc0bf;p=elisp%2Fgnus.git-

* message.el (message-make-user-agent): Remove product tokens
for gnus-vers.  [cf. <semi-gnus-ja:6798>]
---

diff --git a/lisp/message.el b/lisp/message.el
index 42a281a..7ab5178 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4612,7 +4612,11 @@ string."
       (goto-char (point-min))
       (let ((case-fold-search t)
 	    user-agent start p end)
-	(if (re-search-forward "^User-Agent:[\t ]*" nil t)
+	(if (re-search-forward
+	     (concat "^User-Agent:[\t ]*\\("
+		     (regexp-quote gnus-product-name)
+		     "/[0-9.]+\\([ \t\r\n]*([^)]+)\\)*\\)?[\t ]*")
+	     nil t)
 	    (progn
 	      (setq start (match-beginning 0)
 		    p (match-end 0)