mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues 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.