From: ari <ari>
Date: Wed, 21 May 2003 03:47:53 +0000 (+0000)
Subject: * lisp/gnus-msg.el (gnus-message-make-user-agent): Don't use `@'
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6b6c69ed9f251a7b6ea673e2c7ea3ba90e2e70a0;p=elisp%2Fgnus.git-

* lisp/gnus-msg.el (gnus-message-make-user-agent): Don't use `@'
for rfc2616 compliance.
---

diff --git a/ChangeLog b/ChangeLog
index e9c55d7..153ca5d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-21  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
+
+	* lisp/gnus-msg.el (gnus-message-make-user-agent): Don't use `@'
+	for rfc2616 compliance.
+
 2003-05-20  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-msg.el (gnus-message-make-user-agent): Check whether
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index eae75ad..68d32a8 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1178,10 +1178,10 @@ begin to compose a message:
 		     nil)
 		    ((string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$"
 				   emacs-version)
-		     (concat (if (boundp 'MULE)
-				 "Mule/2.3@"
-			       "Emacs/")
-			     (match-string 1 emacs-version)
+		     (concat (format (if (boundp 'MULE)
+					 "Mule/2.3 (based on Emacs %s)"
+				       "Emacs/%s")
+				     (match-string 1 emacs-version))
 			     (if system-v
 				 (concat " (" system-v ")")
 			       "")))