From 33ac368937998278b3735c281d6504044969776f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 22 Jun 1999 23:21:05 +0000 Subject: [PATCH] (gnus-extended-version): Include `gnus-revision-number' if it is non-zero. --- lisp/gnus-msg.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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. -- 1.7.10.4