Re: Using versions instead of XEmacs codenames in User-Agent

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Fri, Jan 07 2005, Steve Youngs wrote:

> * Reiner Steib <reinersteib+gmane@imap.cc> writes:
> [ Dropping codenames, use full version numbers in User-Agent ]
>
>   > Unless there are objections against my suggestion, I'll install it in
>   > the stable branch and in the trunk.  Steve, I'd like to ask you to
>   > wait for my patch and then also use full version numbers instead of
>   > codenames for SXEmacs.
>
> Will do.  But, as Katsumi suggested, perhaps make inclusion
> of the codename customisable.

I'm not sure how this options should be merged into the current
choices of `gnus-user-agent'.  Additionally, I don't have an XEmacs
for testing before Monday.  Here is a preliminary version of my patch
in case someone want to work on it now:

--8<---------------cut here---------------start------------->8---
--- gnus-util.el	17 Dec 2004 10:27:52 -0000	6.104.2.6
+++ gnus-util.el	6 Jan 2005 13:50:57 -0000
@@ -1530,17 +1530,22 @@
        emacs-version)
       (concat
        (match-string 1 emacs-version)
-       (format "/%d.%d" emacs-major-version emacs-minor-version)
-       (if (match-beginning 3)
-	   (match-string 3 emacs-version)
-	 "")
-       (if (boundp 'xemacs-codename)
-	   (concat
-	    " (" xemacs-codename
-	    (if system-v
-		(concat ", " system-v ")")
-	      ")"))
-	 "")))
+       (if (boundp 'emacs-program-version)
+	   (concat (format "/%s" emacs-program-version)
+		   (if system-v
+		       (concat " (" system-v ")")
+		     ""))
+	 (format "/%d.%d" emacs-major-version emacs-minor-version)
+	 (if (match-beginning 3)
+	     (match-string 3 emacs-version)
+	   "")
+	 (if (boundp 'xemacs-codename)
+	     (concat
+	      " (" xemacs-codename
+	      (if system-v
+		  (concat ", " system-v ")")
+		")"))
+	   ""))))
      (t emacs-version))))
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/