* 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 (file)
--- 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)