(gnus-extended-version): Include `gnus-revision-number' if it is non-zero.
authoryamaoka <yamaoka>
Thu, 17 Jun 1999 23:06:05 +0000 (23:06 +0000)
committeryamaoka <yamaoka>
Thu, 17 Jun 1999 23:06:05 +0000 (23:06 +0000)
lisp/gnus-msg.el

index 714acc8..4507df7 100644 (file)
@@ -621,7 +621,11 @@ If SILENT, don't prompt the user."
 
 (defun gnus-extended-version ()
   "Stringified gnus version."
-  (concat gnus-product-name "/" gnus-version-number " (based on "
+  (concat gnus-product-name "/" gnus-version-number
+         (if (zerop (string-to-number gnus-revision-number))
+             ""
+           (concat " (revision " gnus-revision-number ")"))
+         " (based on "
          gnus-original-product-name " v" gnus-original-version-number ")"))
 
 (defun gnus-message-make-user-agent (&optional include-mime-info max-column)