diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-12 18:24:30 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-12 18:24:30 +1100 |
| commit | bd066f82903ac055109882189646d39c2a75e044 (patch) | |
| tree | e44dd5c865325fdc74828bd30fabfff26b46444d /lisp/gnus/mail-source.el | |
| parent | 2a342bda0af6c0bc168a190f368f0871ff31f7b1 (diff) | |
| download | emacs-bd066f82903ac055109882189646d39c2a75e044.tar.gz emacs-bd066f82903ac055109882189646d39c2a75e044.tar.bz2 emacs-bd066f82903ac055109882189646d39c2a75e044.zip | |
Revert the gnus-replace-in-string change, fix arguments, reapply
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index d360f5f71fe..2388a1afa57 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -603,8 +603,8 @@ 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 (replace-regexp-in-string - ffile "\\`.*/\\([^/]+\\)\\'" "\\1")) + (bfile (replace-regexp-in-string "\\`.*/\\([^/]+\\)\\'" "\\1" + ffile)) (filetime (nth 5 (file-attributes ffile))) (fileday (* (car filetime) high2days)) (fileday (+ fileday (* low2days (nth 1 filetime))))) |