Gnus development mailing list
 help / color / mirror / Atom feed
From: Robert Epprecht <epprecht@sunweb.ch>
Subject: Re: all.SCORE for agent categories
Date: Fri, 23 Nov 2001 15:12:15 +0100	[thread overview]
Message-ID: <86itc1ink0.fsf@i2d.home> (raw)
In-Reply-To: <m1g076ohw9.fsf@reader.newsguy.com> (Harry Putnam's message of "Thu, 22 Nov 2001 09:05:42 -0800")

Harry Putnam <reader@newsguy.com> writes:

> Now the part I'm not supposed to ask......
>
> "For god sakes man... post it! ...  They're human!"
> (Bones ([Deforest Kelly] on star trek)

I need a function to call on the first line of a new thread in
summary buffer under the Agent which will raise the scoring of
all follow up's (including misconfigured ones, where only subject
matches) and toggles the download mark for all articles that are
already there.  It's a horrible hack, but 'It Works For Me' ;-)
I think it depends on my summary line format which is the default
Gnus came with. (I'd be happy if someone could do that better and
post it here).

I have in my .gnus.el

(fset 'IrrtIsst
   "Irrt\C-mIsst\C-m")

(defun my-mark-tread-for-downloading ()
  " Marks a thread for downloading by the agent through scoring rules."
  (interactive)
  (message "Marking thread for download")
  (execute-kbd-macro 'IrrtIsst)

  ;; marking the first message for downloading
  (beginning-of-line)
  (if (looking-at "@")
      (gnus-agent-toggle-mark 1)
    (next-line 1)
    )

  (while (progn                       ;; now looping over the thread
	   (beginning-of-line)        ;; checking for new thread
	   (forward-char 3)
	   (looking-at " ")
	   )
    (progn
      (beginning-of-line)
      (if (looking-at "@")
	  (gnus-agent-toggle-mark 1)
	(next-line 1)
	)
      )
    )
  )

(define-key gnus-summary-mode-map (kbd "i") 'my-mark-tread-for-downloading)



  reply	other threads:[~2001-11-23 14:12 UTC|newest]

Thread overview: 16+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2001-11-20 15:31 Harry Putnam
2001-11-20 15:49 ` Kai Großjohann
2001-11-20 16:16   ` Harry Putnam
2001-11-20 16:43     ` Harry Putnam
2001-11-20 17:19       ` Kai Großjohann
2001-11-20 19:40         ` Harry Putnam
2001-11-21 14:26         ` Robert Epprecht
2001-11-21 23:47           ` Harry Putnam
2001-11-22  9:40             ` Kai Großjohann
2001-11-22 11:39               ` Harry Putnam
2001-11-22 12:27                 ` Kai Großjohann
2001-11-22 15:32             ` Robert Epprecht
2001-11-22 17:05               ` Harry Putnam
2001-11-23 14:12                 ` Robert Epprecht [this message]
2001-11-24  4:14                   ` Harry Putnam
2001-11-20 17:15     ` Kai Großjohann

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=86itc1ink0.fsf@i2d.home \
    --to=epprecht@sunweb.ch \
    /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).