Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(gnus-score-find-bnews): Fix removing the empty suffix.
This commit is contained in:
Sam Steingold 2017-09-18 16:33:37 -04:00
parent 9dbdc0f005
commit 0bddbbc5aa
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/gnus-score.el
View file

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