Gnus development mailing list
 help / color / mirror / Atom feed
From: "St. Suika Fenderson Roberts" <wrobert2@mailhost.tcs.tulane.edu>
Subject: Re: time delay on news groups?
Date: Thu, 12 Dec 1996 16:37:49 -0600	[thread overview]
Message-ID: <199612122237.QAA67111@rs1.tcs.tulane.edu> (raw)

On a similar note, is/could it be possible to score on article length?  This
would be mainly good for groups like alt.startrek.creative, where anything
under 90 lines is almost certainly not worth reading. . .

Thanks,
	Suika (Gnus is wonderful!  I spend far too much time with it!)
PS:  Someone was wanting a `save state to dribble buffer' function, so here's
the one I munged together.  It's tested, can't say much else for it ^_^
(well, I munged it out of Lars's code, so that gives it a boost)
-----------------
(defun gnus-summary-save-info ()
 (interactive)
  (save-excursion
    (let ((group gnus-newsgroup-name))
      (when gnus-newsgroup-kill-headers
        (setq gnus-newsgroup-killed
              (gnus-compress-sequence
               (nconc
                (gnus-set-sorted-intersection
                 (gnus-uncompress-range gnus-newsgroup-killed)
                 (setq gnus-newsgroup-unselected
                       (sort gnus-newsgroup-unselected '<)))
                (setq gnus-newsgroup-unreads
                      (sort gnus-newsgroup-unreads '<)))
               t)))
      (unless (listp (cdr gnus-newsgroup-killed))
        (setq gnus-newsgroup-killed (list gnus-newsgroup-killed)))
      (let ((headers gnus-newsgroup-headers))
        (unless gnus-save-score
          (setq gnus-newsgroup-scored nil))
        ;; Set the new ranges of read articles.
        (gnus-update-read-articles
         group (append gnus-newsgroup-unreads gnus-newsgroup-unselected))
        ;; Set the current article marks.
        (gnus-update-marks)
        ;; Don't do the cross-ref thing.
;        (when gnus-use-cross-reference
;          (gnus-mark-xrefs-as-read group headers gnus-newsgroup-unreads))
        ;; Do not switch windows but change the buffer to work. 
        (set-buffer gnus-group-buffer)
        (unless (gnus-ephemeral-group-p gnus-newsgroup-name)
          (gnus-group-update-group group))))))
--
		wrobert2@mailhost.tcs.tulane.edu
"The dew fell with a particularly sickening thud this morning." 
								-Rhonda Rubin
   <a href="http://studentweb.tulane.edu/~wrobert2/">Suika no homepage</a>


             reply	other threads:[~1996-12-12 22:37 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1996-12-12 22:37 St. Suika Fenderson Roberts [this message]
1996-12-12 23:07 ` summary buffer state dribbling (was Re: time delay on news groups?) David Moore
  -- strict thread matches above, loose matches on Subject: below --
1996-12-12 20:53 time delay on news groups? Mark Eichin
1996-12-12 22:00 ` David Moore
1996-12-13  7:37   ` Wesley.Hardaker
1996-12-13  8:33     ` David Moore
1996-12-16 13:04       ` Lars Magne Ingebrigtsen

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:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

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

  git send-email \
    --in-reply-to=199612122237.QAA67111@rs1.tcs.tulane.edu \
    --to=wrobert2@mailhost.tcs.tulane.edu \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
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).