[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master fcf5d89: gnus-score-file-name: Do not append empty
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] master fcf5d89: gnus-score-file-name: Do not append empty suffix. |
Date: |
Tue, 12 Sep 2017 10:31:57 -0400 (EDT) |
branch: master
commit fcf5d894c061fe7ea557aafd249f9cd0f69dfb28
Author: Sam Steingold <address@hidden>
Commit: Sam Steingold <address@hidden>
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 2defa76..19cf799 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master fcf5d89: gnus-score-file-name: Do not append empty suffix.,
Sam Steingold <=