Re: functions to download mailing list archives

[GH <project@gnuhacker.org>]

Fixed without recursion

#+begin_src elisp

;;; Code under GPLv3-or-later

(defun lists-mbox-url-list (url-head id date)
  (with-current-buffer "*eww*"
    (beginning-of-buffer)
    (let ((url-list '()))
      (while (save-excursion
	       (text-property-search-forward 'shr-url nil nil t))
	(shr-next-link)
	(let ((url (thing-at-point 'url)))
	  (if (and url
		   (string-match (format "%s/archive/mbox/%s/%s\\(.+\\)" url-head id date)
				 url))
	      (add-to-list 'url-list url))))
      url-list)))

(defun lists-mbox-download (url-head id)
  (let* ((date (read-number "Date filter: " 20))
	 (dir (read-file-name "Download directory: "))
	 (url-list (lists-mbox-url-list url-head id date)))
    (dolist (url url-list)
      (url-retrieve url #'eww-download-callback (list url dir)))))

(defun lists-load-archive (url-head id)
  (interactive (list "https://lists.gnu.org"
		     (read-from-minibuffer "Mailing list id: ")))
  (if (y-or-n-p "Load as mbox files?")
      (prog1 (eww-browse-url (format "%s/archive/mbox/%s/" url-head id))
	(if (y-or-n-p "Download archive mboxes?")
	    (lists-mbox-download url-head id)))
    (eww-browse-url (format "%s/archive/html/%s/" url-head id))))

#+end_src

Test it

(lists-load-archive "https://lists.gnu.org" "help-gnu-emacs")

Or call it interactivelly:

M-x lists-load-archive RET help-gnu-emacs RET y y