branch: elpa/elfeed
commit 970fdcd14ca3ee22bfce9ab3baf0b6f86e9c2983
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
elfeed-ref--file: Use file-name-concat
---
elfeed-db.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/elfeed-db.el b/elfeed-db.el
index 449c2054a3..7527c8cc99 100644
--- a/elfeed-db.el
+++ b/elfeed-db.el
@@ -481,10 +481,9 @@ Return DEFAULT if unavailable."
(defun elfeed-ref--file (ref)
"Determine the storage filename for REF."
- (let* ((id (elfeed-ref-id ref))
- (root (expand-file-name "data" elfeed-db-directory))
- (subdir (expand-file-name (substring id 0 2) root)))
- (expand-file-name id subdir)))
+ (let ((id (elfeed-ref-id ref)))
+ (file-name-concat (expand-file-name "data" elfeed-db-directory)
+ (substring id 0 2) id)))
(cl-defun elfeed-ref-archive-filename (&optional (suffix ""))
"Return the base filename of the archive files with optional SUFFIX."
