diff options
| author | Sam Steingold | 2017-09-12 10:31:13 -0400 |
|---|---|---|
| committer | Sam Steingold | 2017-09-12 10:31:26 -0400 |
| commit | fcf5d894c061fe7ea557aafd249f9cd0f69dfb28 (patch) | |
| tree | bbeeaa8f2cfd270190340941fc5b1d836120cf6d | |
| parent | 49a42fbd27c3235d7183bc2adf7d413903985dc0 (diff) | |
| download | emacs-fcf5d894c061fe7ea557aafd249f9cd0f69dfb28.tar.gz emacs-fcf5d894c061fe7ea557aafd249f9cd0f69dfb28.zip | |
gnus-score-file-name: Do not append empty suffix.
| -rw-r--r-- | lisp/gnus/gnus-score.el | 4 |
1 files 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'." | |||
| 2961 | (expand-file-name suffix gnus-kill-files-directory)) | 2961 | (expand-file-name suffix gnus-kill-files-directory)) |
| 2962 | ((gnus-use-long-file-name 'not-score) | 2962 | ((gnus-use-long-file-name 'not-score) |
| 2963 | ;; Append ".SCORE" to newsgroup name. | 2963 | ;; Append ".SCORE" to newsgroup name. |
| 2964 | (expand-file-name (concat (gnus-newsgroup-savable-name newsgroup) | 2964 | (expand-file-name (let ((name (gnus-newsgroup-savable-name newsgroup))) |
| 2965 | "." suffix) | 2965 | (if (string= "" suffix) name (concat name "." suffix))) |
| 2966 | gnus-kill-files-directory)) | 2966 | gnus-kill-files-directory)) |
| 2967 | (t | 2967 | (t |
| 2968 | ;; Place "SCORE" under the hierarchical directory. | 2968 | ;; Place "SCORE" under the hierarchical directory. |