diff options
| -rw-r--r-- | init.org | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -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)) |