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