X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-vers.el;h=fe63f5c5b39cca1a30e05f18fed787910b75f0a2;hb=f702159a4d7cb8471a17884108880aa8d7961728;hp=c77bae446bca64be6e8483981b4328716f9c4527;hpb=1f2b93a24df7b9914dbbc1a26a6e76c8da6511d1;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index c77bae4..fe63f5c 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -1,6 +1,7 @@
-;;; gnus-vers.el --- Declare gnus version.
+;;; gnus-vers.el --- Declare gnus version
 
-;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005
+;; Free Software Foundation, Inc.
 
 ;; Author: Keiichi Suzuki <keiichi@nanap.org>
 ;;         Katsumi Yamaoka <yamaoka@jpl.org>
@@ -28,27 +29,26 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
-(eval-when-compile (require 'gnus-clfns))
 
 (require 'poe)
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "04"
+(defconst gnus-revision-number "00"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.
 (product-provide 'gnus-vers
   (product-define "T-gnus" nil
-		  (list 6 14 6
+		  (list 6 17 3
 			(string-to-number gnus-revision-number))))
 
-(defconst gnus-original-version-number "5.8.8"
+(defconst gnus-original-version-number "0.3"
   "Version number for this version of Gnus.")
 
 (provide 'running-pterodactyl-gnus-0_73-or-later)
 
-(defconst gnus-original-product-name "Gnus"
+(defconst gnus-original-product-name "No Gnus"
   "Product name of the original version of Gnus.")
 
 (defconst gnus-product-name (product-name (product-find 'gnus-vers))
@@ -62,7 +62,7 @@
   "Version number for this version of gnus.")
 
 (defconst gnus-version
-  (format "%s %s r%s (based on %s v%s ; for SEMI 1.13, FLIM 1.13)"
+  (format "%s %s r%s (based on %s v%s ; for SEMI 1.14 FLIM 1.14)"
 	  gnus-product-name gnus-version-number gnus-revision-number
 	  gnus-original-product-name gnus-original-version-number)
   "Version string for this version of gnus.")
@@ -75,14 +75,43 @@ If ARG, insert string at point."
       (insert (message "%s" gnus-version))
     (message "%s" gnus-version)))
 
+(eval-when-compile
+  (defvar mime-user-interface-product)
+  (require 'mime-def))
+
 (defun gnus-extended-version ()
-  "Stringified gnus version."
-  (concat gnus-product-name "/" gnus-version-number
-	  " (based on "
-	  gnus-original-product-name " v" gnus-original-version-number ")"
-	  (if (zerop (string-to-number gnus-revision-number))
-	      ""
-	    (concat " (revision " gnus-revision-number ")"))
-	  ))
+  "Stringified Gnus, Emacs, SEMI, FLIM and APEL versions.
+See the variable `gnus-user-agent'."
+  (if (stringp gnus-user-agent)
+      gnus-user-agent
+    ;; `gnus-user-agent' is a list:
+    (let* ((float-output-format nil)
+	   (gnus-v (when (memq 'gnus gnus-user-agent)
+		     (concat
+		      gnus-product-name "/" gnus-version-number " ("
+		      (unless (zerop (string-to-number gnus-revision-number))
+			(concat "r" gnus-revision-number ", "))
+		      "based on " gnus-original-product-name
+		      " v" gnus-original-version-number ")")))
+	   (emacs-v (gnus-emacs-version))
+	   (mime-v (when (memq 'mime gnus-user-agent)
+		     (concat
+		      (mime-product-name mime-user-interface-product) "/"
+		      (mapconcat
+		       #'number-to-string
+		       (mime-product-version mime-user-interface-product)
+		       ".")
+		      " ("
+		      (mime-product-code-name mime-user-interface-product)
+		      ") "
+		      (mime-product-name mime-library-product) "/"
+		      (mapconcat
+		       #'number-to-string
+		       (mime-product-version mime-library-product)
+		       ".")
+		      " ("
+		      (mime-product-code-name mime-library-product)
+		      ") " (apel-version)))))
+      (mapconcat 'identity (delq nil (list gnus-v mime-v emacs-v)) " "))))
 
 ;; gnus-vers.el ends here