From: ichikawa <ichikawa>
Date: Fri, 28 Aug 1998 13:31:42 +0000 (+0000)
Subject: lisp/gnus-msg.el: Correct (gnus-extended-version)
X-Git-Tag: ichikawa-199811302358~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8add04bdfce3aac6b52b5ee258849f71f0f14313;p=elisp%2Fgnus.git-

lisp/gnus-msg.el: Correct (gnus-extended-version)
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 649b259..9f41f4c 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -190,9 +190,51 @@ Thank you for your help in stamping out bugs.
 ;;; Internal functions.
 
 (defun gnus-extended-version ()
-  "Stringified gnus version."
+  "Stringified Gnus version and Emacs version."
   (interactive) ; ???
-  (concat gnus-product-name "/" gnus-version-number))
+  (concat
+   ;; Semi-gnus/VERSION
+   gnus-product-name "/" gnus-version-number
+   ;; EMACS/VERSION
+   (if (featurep 'xemacs)
+       ;; XEmacs
+       (concat
+	(format " XEmacs/%d.%d%s" emacs-major-version emacs-minor-version
+		(if (and (boundp 'xemacs-betaname) xemacs-betaname)
+		    (if (string-match "\\`(\\(.*\\))\\'" xemacs-betaname)
+			(match-string 1 xemacs-betaname)
+		      "")		; unknown format
+		  ""))			; not beta
+	(if (boundp 'xemacs-codename)
+	    (concat " (" xemacs-codename ")")
+	  "")				; no codename
+	)
+     ;; not XEmacs
+     (concat
+      (format " Emacs/%d.%d" emacs-major-version emacs-minor-version)
+      (if (and (boundp 'enable-multibyte-characters)
+	       enable-multibyte-characters)
+	  ;; Should return " (multibyte)" ?
+	  ""
+	" (unibyte)")
+      ))
+   ;; MULE[/VERSION]
+   (if (featurep 'mule)
+       (if (and (boundp 'mule-version) mule-version)
+	   (concat " MULE/" mule-version)
+	 " MULE")			; no mule-version
+     "")				; not Mule
+   ;; Meadow/VERSION
+   (if (featurep 'meadow)
+       (let ((version (Meadow-version)))
+	 (if (string-match "\\`Meadow.\\([^ ]*\\)\\( (.*)\\)\\'" version)
+	     (concat " Meadow/"
+		     (match-string 1 version)
+		     (match-string 2 version)
+		     )
+	   "Meadow"))			; unknown format
+     "")				; not Meadow
+   ))
 
 (defvar gnus-article-reply nil)
 (defmacro gnus-setup-message (config &rest forms)