Skip to content

Instantly share code, notes, and snippets.

@kubajecminek
Last active February 23, 2024 12:32
Show Gist options
  • Save kubajecminek/83cb82969acd9ec3e0a773a54cad2d13 to your computer and use it in GitHub Desktop.
Save kubajecminek/83cb82969acd9ec3e0a773a54cad2d13 to your computer and use it in GitHub Desktop.
Gnus RSS config
(setq my-feeds '(("Richard Stallman" "https://stallman.org/rss/rss.xml" "Chief GNUisance of the GNU Project")
;; Define other feeds right here (title url description)
))
;; This function mimics `gnus-group-make-rss-group' behaviour
(defun my-subscribe-rss-feeds (feeds)
(require 'nnrss)
(dolist (feed feeds)
(let* ((title (nth 0 feed))
(href (nth 1 feed))
(desc (nth 2 feed))
(coding (gnus-group-name-charset '(nnrss "") title)))
(when coding
;; Unify non-ASCII text.
(setq title (decode-coding-string
(encode-coding-string title coding)
coding)))
(unless (gnus-group-entry (gnus-group-prefixed-name title "nnrss"))
(gnus-group-make-group title '(nnrss ""))
(push (list title href desc) nnrss-group-alist)
(message "Group %s added" title)
(nnrss-save-server-data nil)))))
(add-hook 'gnus-setup-news-hook (lambda () (my-subscribe-rss-feeds my-feeds)))
@grolongo
Copy link

hi, thanks for that gist.
does it work fine with atom feeds?
last time I remember you had to convert atom to rss for nnrss to be able to read it.

@kubajecminek
Copy link
Author

Hi @grolongo, I don't think it does. But there is currently an initiative to include nnatom backend to the Emacs core. See this ticket.

@grolongo
Copy link

a patch for nnatom posted not before than yesterday. now that's some interesting timing. :)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment