* gnus-summary-goto-random-article
@ 2019-11-27 1:14 Emanuel Berg
0 siblings, 0 replies; only message in thread
From: Emanuel Berg @ 2019-11-27 1:14 UTC (permalink / raw)
To: ding
Here is some code that is to be used in a yet
unfinished small project.
Please comment if you can think of
improvements, and also if you know that what
I do is already somewhere else.
Full source: https://dataswamp.org/~incal/emacs-init/gnus/mail-to-many.el
(defun mtm-open-group ()
(gnus-group-read-group nil nil "nnml:mail.obi-one") )
(defun gnus-summary-goto-random-article ()
(interactive)
(let*((ids gnus-newsgroup-articles)
(article-count (length ids) )
(random-position (random article-count))
(article (nth random-position ids)) )
(gnus-summary-goto-article article) ))
(defun gnus-article-get-body ()
(when (article-goto-body)
(buffer-substring-no-properties (point) (point-max)) ))
--
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2019-11-27 1:14 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2019-11-27 1:14 gnus-summary-goto-random-article Emanuel Berg
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).