Fix bug#28435: "all" score file is ignored

(gnus-score-find-bnews): Fix removing the empty suffix.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index 11a45dda9ad..976ac9f7f35 100644
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -2731,8 +2731,10 @@ GROUP using BNews sys file syntax."
         (insert (car sfiles))
         (goto-char (point-min))
         ;; First remove the suffix itself.
-        (when (re-search-forward (concat "." score-regexp) nil t)
-          (replace-match "" t t)
+        (when (re-search-forward score-regexp nil t)
+          (unless (= (match-end 0) (match-beginning 0)) ; non-empty suffix
+            (replace-match "" t t)
+            (delete-char -1))   ; remove the "." before the suffix
           (goto-char (point-min))
           (if (looking-at (regexp-quote kill-dir))
               ;; If the file name was just "SCORE", `klen' is one character