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:

(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

^ 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

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