Gnus development mailing list
 help / color / mirror / Atom feed
* 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).