From: yamaoka <yamaoka>
Date: Tue, 22 Jun 1999 23:21:05 +0000 (+0000)
Subject: (gnus-extended-version): Include `gnus-revision-number' if it is non-zero.
X-Git-Tag: t-gnus-6_10_067-01~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=33ac368937998278b3735c281d6504044969776f;p=elisp%2Fgnus.git-

(gnus-extended-version): Include `gnus-revision-number' if it is non-zero.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 7ad4185..1108d47 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -621,8 +621,13 @@ If SILENT, don't prompt the user."
 
 (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 ")"))
+  (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 ")"))
+	  ))
 
 (defun gnus-message-make-user-agent (&optional include-mime-info max-column)
   "Return user-agent info.