branch: elpa/elfeed
commit d21897b34073c680eabae909e764ffa56cda0925
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
elfeed-curl--request-key is never called with a list URL argument
See elfeed-curl--queue-consolidate. Left over from
bbb3cac27b0412d80b327b5cfaab83683c96a2a1 and #555.
---
elfeed-curl.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/elfeed-curl.el b/elfeed-curl.el
index 8d5870eef1..44e0b06c13 100644
--- a/elfeed-curl.el
+++ b/elfeed-curl.el
@@ -459,14 +459,13 @@ results will not."
(defun elfeed-curl--request-key (url headers method data)
"Compute request key for URL, HEADERS, METHOD and DATA.
The goal is to fetch URLs with matching keys at the same time."
- (unless (listp url)
- (let* ((urlobj (url-generic-parse-url url)))
- (list (url-type urlobj)
- (url-host urlobj)
- (url-portspec urlobj)
- headers
- method
- data))))
+ (let ((urlobj (url-generic-parse-url url)))
+ (list (url-type urlobj)
+ (url-host urlobj)
+ (url-portspec urlobj)
+ headers
+ method
+ data)))
(defun elfeed-curl--queue-consolidate (queue-in)
"Group compatible requests from QUEUE-IN together and return a new queue.
@@ -482,7 +481,7 @@ curl invocation."
;; Already-consolidated entry, pass through unchanged to
;; avoid wrapping its URL list in another list layer.
(push entry queue-out)
- (let* ((key (elfeed-curl--request-key url headers method data)))
+ (let ((key (elfeed-curl--request-key url headers method data)))
(push key keys)
(push entry (gethash key table nil))))))
(dolist (key (nreverse keys))
