diff options
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index f4a9e191010..f9c89f52cb7 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -603,7 +603,7 @@ If CONFIRM is non-nil, ask for confirmation before removing a file." currday (+ currday (* low2days (nth 1 (current-time))))) (while files (let* ((ffile (car files)) - (bfile (gnus-replace-in-string + (bfile (replace-regexp-in-string ffile "\\`.*/\\([^/]+\\)\\'" "\\1")) (filetime (nth 5 (file-attributes ffile))) (fileday (* (car filetime) high2days)) |