rss feeds: categories from gnus mail directories

1 files changed, 6 insertions, 1 deletions

diff --git a/init.org b/init.org
index 71210f0..4431c81 100644
--- a/init.org
+++ b/init.org
@@ -1683,6 +1683,10 @@
           (insert "\nmaildir-mailbox = " mbox "\n\n")
           (save-buffer)))
 
+      (defun jao-rss--feeds-dirs ()
+        (mapcar (lambda (d) (cadr (split-string d "\\.")))
+                (directory-files (jao-gnus-dir "Mail/") nil "^feeds")))
+
       (defun jao-rss-subscribe (url)
         "Subscribe to a given RSS URL.  If URL not given, look for it."
         (interactive (list (or (jao-url-around-point)
@@ -1691,7 +1695,8 @@
         (let* ((url+title (if (consp url) url (list url)))
                (url (car url+title))
                (title (cdr url+title))
-               (cats (jao-notmuch--subtags "feeds")))
+               ;; (cats (cons "prog" (jao-notmuch--subtags "feeds")))
+               (cats (jao-rss--feeds-dirs)))
           (if url
               (let ((url (if (string-match "^feed:" url) (substring url 5) url)))
                 (when (y-or-n-p (format "Subscribe to <%s>? " url))