From 0d50b54bd30078817098fcbc198a3092b32e3e45 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 9 Nov 1999 01:54:33 +0000 Subject: [PATCH] (gnus-xmas-group-startup-message): Insert space before "based on". --- lisp/gnus-xmas.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el index 7083077..343c890 100644 --- a/lisp/gnus-xmas.el +++ b/lisp/gnus-xmas.el @@ -640,8 +640,8 @@ the resulting string may be narrower than END-COLUMN. (insert gnus-product-name " " gnus-version-number (if (zerop (string-to-number gnus-revision-number)) "" - (concat " (r" gnus-revision-number ") ")) - "based on " gnus-original-product-name " v" + (concat " (r" gnus-revision-number ")")) + " based on " gnus-original-product-name " v" gnus-original-version-number "\n") (goto-char (point-min)) (put-text-property (point) (gnus-point-at-eol) 'face 'gnus-splash-face) @@ -676,8 +676,8 @@ the resulting string may be narrower than END-COLUMN. (insert gnus-product-name " " gnus-version-number (if (zerop (string-to-number gnus-revision-number)) "" - (concat " (r" gnus-revision-number ") ")) - "based on " gnus-original-product-name " v" + (concat " (r" gnus-revision-number ")")) + " based on " gnus-original-product-name " v" gnus-original-version-number) (goto-char (point-min)) (insert-char ?\ ; space -- 1.7.10.4