From: yamaoka <yamaoka>
Date: Tue, 9 Nov 1999 01:54:33 +0000 (+0000)
Subject: (gnus-xmas-group-startup-message): Insert space before "based on".
X-Git-Tag: t-gnus-6_13_3-01~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0d50b54bd30078817098fcbc198a3092b32e3e45;p=elisp%2Fgnus.git-

(gnus-xmas-group-startup-message): Insert space before "based on".
---

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