 
 (defvar-local elfeed-curl-error-message nil
   "Human-friendly message describing the error.")
+
+(defvar-local elfeed-curl-location nil
+  "Actual URL fetched (after any redirects).")
 
 (defvar elfeed-curl--error-codes
   '((1 . "Unsupported protocol.")

    (prog1 buffer
      (buffer-disable-undo buffer)
      (with-current-buffer buffer
        (set-buffer-multibyte nil))
      (let* ((coding-system-for-read 'raw-text)
             (process (apply #'start-process "elfeed-curl" buffer

    (setf (point) (point-min)
          elfeed-curl-status-code (elfeed-curl--parse-response)
          elfeed-curl-headers (elfeed-curl--parse-headers))
    (let ((location (cdr (assoc "location" elfeed-curl-headers))))
      (when (and (>= elfeed-curl-status-code 300)
                 (< elfeed-curl-status-code 400)
                 location)
        (setf elfeed-curl-status-code nil
              elfeed-curl-location
              (elfeed-curl--adjust-location elfeed-curl-location location))))))

(defun elfeed-curl--url-is-http (url)
  "Return non-nil if URL it HTTP or HTTPS."
