martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Sam Steingold
2017-09-12 10:31:13 -04:00
parent 49a42fbd27
commit fcf5d894c0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/gnus-score.el
View File

@@ -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.