From 773f7e4f5133df2d32c33306c80cc8ffea1067b5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 17 Jun 1999 23:06:05 +0000 Subject: [PATCH] (gnus-extended-version): Include `gnus-revision-number' if it is non-zero. --- lisp/gnus-msg.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 714acc8..4507df7 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -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) -- 1.7.10.4