From: Sam Steingold <sds@gnu.org>
Date: Tue, 12 Sep 2017 14:31:13 +0000 (-0400)
Subject: gnus-score-file-name: Do not append empty suffix.
X-Git-Tag: emacs-26.0.90~180
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcf5d894c061fe7ea557aafd249f9cd0f69dfb28;p=emacs.git

gnus-score-file-name: Do not append empty suffix.
---

diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index 2defa76f50d..19cf799a2f8 100644
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -2961,8 +2961,8 @@ The list is determined from the variable `gnus-score-file-alist'."
        (expand-file-name suffix gnus-kill-files-directory))
       ((gnus-use-long-file-name 'not-score)
        ;; Append ".SCORE" to newsgroup name.
-       (expand-file-name (concat (gnus-newsgroup-savable-name newsgroup)
-				 "." suffix)
+       (expand-file-name (let ((name (gnus-newsgroup-savable-name newsgroup)))
+                           (if (string= "" suffix) name (concat name "." suffix)))
 			 gnus-kill-files-directory))
       (t
        ;; Place "SCORE" under the hierarchical directory.