From: Doug Bagley <doug@deja.com>
Cc: "(ding)" <ding@gnus.org>
Subject: Re: Wishlist for oGnus
Date: 22 Jan 2000 09:12:50 -0600 [thread overview]
Message-ID: <yg9ya9iywb1.fsf@yow.dejanews.com> (raw)
In-Reply-To: Stainless Steel Rat's message of "21 Jan 2000 21:44:29 -0500"
Stainless Steel Rat <ratinox@peorth.gweep.net> writes:
> Relatively simple, I hope:
>
> * gnus-uu-decode should complain if one or more parts of a series post
> (ie, "part N of X") is missing, and optionally tick what parts are
> there for decoding in a later session.
I was annoyed by that too. Why does it try to assemble incomplete
series? So I wrote the following. I would use it to mark all the
*complete* series I want, and then I download them all at once. Then
I got tired of that and wrote a perl script which does it even better,
so I don't really use this code any more.
;; only mark a series if it isn't missing any articles
(define-key gnus-summary-mode-map [f1] 'kof:gnus-uu-mark-complete-series)
(require 'gnus-uu)
(defun kof:gnus-uu-mark-complete-series ()
"Mark the current series with the process mark if it contains all parts."
(interactive)
(if current-prefix-arg
(let ((articles (gnus-uu-find-articles-matching)))
(while articles
(gnus-summary-remove-process-mark (car articles))
(setq articles (cdr articles))))
(let* ((articles (gnus-uu-find-articles-matching))
(actual-count (list-length articles))
(expected-count (kof:max-series-from-subject (gnus-summary-article-subject))))
(if (>= actual-count expected-count)
(progn
(while articles
(gnus-summary-set-process-mark (car articles))
(setq articles (cdr articles)))
(forward-line))
(message (format "Series is not continuous. Expected: %s Actual: %s"
expected-count actual-count)))
(gnus-summary-position-point))))
(defun kof:max-series-from-subject (subject)
"according to subject, return the total count of articles in series."
(let ((string (gnus-uu-reginize-string subject)))
(if (string-match "\\[0-9\\]\\+[^0-9]*\\([0-9]+\\)" string)
(string-to-number (substring string (match-beginning 1) (match-end 1)))
0)))
Cheers,
Doug
next prev parent reply other threads:[~2000-01-22 15:12 UTC|newest]
Thread overview: 56+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <wtnn1pzpw2z.fsf@licia.dtek.chalmers.se>
2000-01-21 12:55 ` Kai Großjohann
2000-01-21 14:40 ` Editing articles in read-only backends (was: Wishlist for oGnus) Toby Speight
2000-01-21 14:43 ` Wishlist for oGnus David Z. Maze
2000-01-22 15:18 ` Alexandre Oliva
2000-01-23 15:58 ` Group parameters and splitting (Was: Re: Wishlist for oGnus) David Z. Maze
2000-01-21 14:45 ` MML editing improvements (was: " Toby Speight
2000-02-02 2:49 ` Wishlist for oGnus Rob Browning
2000-01-21 14:17 ` Robert Epprecht
2000-01-21 21:27 ` Kai Großjohann
2000-10-29 23:00 ` nnfolder NOV (was: Wishlist for oGnus) ShengHuo ZHU
2000-10-30 2:49 ` Dan Christensen
2000-10-30 3:35 ` ShengHuo ZHU
2000-10-30 4:05 ` Dan Christensen
2000-01-21 14:38 ` Wishlist for oGnus john s jacobs anderson
2000-01-21 14:55 ` Posting profiles David Kagedal
2000-01-21 15:00 ` john s jacobs anderson
2000-01-21 15:08 ` Wishlist for oGnus Alan Shutko
2000-01-21 15:22 ` Didier Verna
2000-01-21 16:15 ` Karl Kleinpaste
2000-01-21 16:46 ` Alan Shutko
2000-01-21 18:25 ` Michael Cook
2000-01-21 21:33 ` Kai Großjohann
2000-02-02 16:01 ` lconrad
2000-02-09 16:44 ` Alf-Ivar Holm
2000-01-22 2:44 ` Stainless Steel Rat
2000-01-22 15:12 ` Doug Bagley [this message]
2000-01-23 23:26 ` John Prevost
2000-01-27 17:42 ` Raja R Harinath
[not found] ` <wtnu2k7e4by.fsf@licia.dtek.chalmers.se>
2000-01-31 1:45 ` Justin Sheehy
2000-01-31 12:23 ` Steinar Bang
2000-01-31 22:32 ` Andrew J Cosgriff
2000-02-01 11:01 ` Andi Hechtbauer
2000-02-02 21:04 ` Andreas Fuchs
2000-02-04 11:06 ` Steinar Bang
2000-02-04 13:32 ` David Kagedal
2000-02-04 15:31 ` Simon Josefsson
2000-02-04 20:06 ` IMAP server hierarchy as topics Steinar Bang
2000-02-04 22:46 ` David Kagedal
2000-02-05 2:14 ` John Prevost
2000-02-14 16:37 ` Steinar Bang
2000-02-15 10:29 ` David Kagedal
2000-02-15 14:32 ` David Kagedal
2000-02-15 14:43 ` David Kagedal
2000-02-15 18:42 ` Arnd Kohrs
2000-02-16 12:26 ` David Kågedal
2000-02-16 14:56 ` Steinar Bang
2000-02-16 15:42 ` David Kågedal
2000-02-15 15:26 ` Chris Richards
2000-02-15 16:47 ` IMAP extra headers (was: IMAP server hierarchy as topics) Toby Speight
2000-02-19 2:36 ` IMAP server hierarchy as topics Justin Sheehy
2000-02-19 3:58 ` Chris Richards
2000-02-19 12:24 ` Simon Josefsson
2000-02-11 19:31 ` Wishlist for oGnus Anders Melchiorsen
2000-02-11 21:29 ` Kai Großjohann
2000-02-14 12:06 ` Multiple view interface (Re: Wishlist for oGnus) Anders Melchiorsen
2000-05-11 14:50 ` Wishlist for oGnus Kim-Minh Kaplan
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=yg9ya9iywb1.fsf@yow.dejanews.com \
--to=doug@deja.com \
--cc=ding@gnus.org \
/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).