Gnus development mailing list
 help / color / mirror / Atom feed
From: Emanuel Berg <>
Subject: gnus-summary-goto-random-article
Date: Wed, 27 Nov 2019 02:14:38 +0100
Message-ID: <> (raw)

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:

(defun mtm-open-group ()
  (gnus-group-read-group nil nil "") )

(defun gnus-summary-goto-random-article ()
  (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

                 reply	other threads:[~2019-11-27  1:14 UTC|newest]

Thread overview: [no followups] expand[flat|nested]  mbox.gz  Atom feed

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \ \ \ \

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Gnus development mailing list

This inbox may be cloned and mirrored by anyone:

	git clone --mirror

	# If you have public-inbox 1.1+ installed, you may
	# initialize and index your mirror using the following commands:
	public-inbox-init -V1 ding ding/ \
	public-inbox-index ding

Example config snippet for mirrors.
Newsgroup available over NNTP:

AGPL code for this site: git clone