From: shuhei-k <shuhei-k>
Date: Tue, 16 Jun 1998 04:14:20 +0000 (+0000)
Subject: (gnus-extended-version): New implementation; needs further rewrite.
X-Git-Tag: semi-mule-199811302358~74
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ecb7ac3607ab36164ca589b5ff7290cd7f8a81f3;p=elisp%2Fgnus.git-

(gnus-extended-version): New implementation; needs further rewrite.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index f619618..338b99d 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -502,45 +502,32 @@ If SILENT, don't prompt the user."
 
 ;; Dummy to avoid byte-compile warning.
 (defvar nnspool-rejected-article-hook)
+(defvar mule-version)
 (defvar xemacs-codename)
 
-;;; Since the X-Newsreader/X-Mailer are ``vanity'' headers, they might
-;;; as well include the Emacs version as well.
-;;; The following function works with later GNU Emacs, and XEmacs.
 (defun gnus-extended-version ()
   "Stringified Gnus version and Emacs version."
   (interactive)
   (concat
    "Semi-gnus/" gnus-version-number " "
    (cond
-    ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
-     (concat "Emacs/" (substring emacs-version
-				 (match-beginning 1)
-				 (match-end 1))
+    ((featurep 'xemacs)
+     (concat (format "XEmacs/%d.%d" emacs-major-version emacs-minor-version)
+             ;; XXX: beta?
+             (if (featurep 'mule)
+                 "-mule")
+	     (if (boundp 'xemacs-codename)
+                 (concat " (" xemacs-codename ")"))
+             ))
+    (t
+     (concat (format "Emacs/%d.%d" emacs-major-version emacs-minor-version)
+             ;; XXX: unibyte or multibyte
              (if (boundp 'mule-version)
-                 (concat " Mule/" mule-version)
-               "")
+                 (concat " Mule/" mule-version))
              (if (featurep 'meadow)
-                 ;; XXX: (Meadow-version) -> Meadow-1.0x (CODENAME)
-                 (concat " " (Meadow-version))
-               "")))
-    ;; XXX: rewrite to use "(featurep 'xemacs)"?
-    ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
-		   emacs-version)
-     (concat (substring emacs-version
-			(match-beginning 1)
-			(match-end 1))
-	     (format "/%d.%d" emacs-major-version emacs-minor-version)
-	     (if (match-beginning 3)
-		 (substring emacs-version
-			    (match-beginning 3)
-			    (match-end 3))
-	       "")
-             ;; XXX: Insert `with-mule' or `without-mule'?
-	     (if (boundp 'xemacs-codename)
-		 (concat " (" xemacs-codename ")")
-               "")))
-    (t emacs-version))))
+                 (concat " " (Meadow-version)))
+             ))
+    )))
 
 
 ;;;