From fcf5d894c061fe7ea557aafd249f9cd0f69dfb28 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 12 Sep 2017 10:31:13 -0400 Subject: [PATCH] gnus-score-file-name: Do not append empty suffix. --- lisp/gnus/gnus-score.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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. -- 2.39.5