From 3d0a19157c4c84687d19a4d9933b383a097fc0bf Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 22 Apr 2002 18:53:45 +0000 Subject: [PATCH] * message.el (message-make-user-agent): Remove product tokens for gnus-vers. [cf. ] --- lisp/message.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 1.7.10.4