Announcements and discussions for Gnus, the GNU Emacs Usenet newsreader
 help / color / mirror / Atom feed
From: Emanuel Berg <embe8573@student.uu.se>
To: info-gnus-english@gnu.org
Subject: Re: auto-kill mails with "X-Spam-Flag: YES"
Date: Tue, 09 Feb 2016 03:26:00 +0100	[thread overview]
Message-ID: <87io1ypqkn.fsf@debian.uxu> (raw)
In-Reply-To: <87r3gmkc0g.fsf@gnus.org>

Lars Ingebrigtsen <larsi@gnus.org> writes:

>> I use the interactive system and do not edit the
>> file by hand (yet). So without Subject being in
>> (setq gnus-extra-headers '(To Cc Keywords Gcc
>> Newsgroups X-Spam-Flag Subject)
>> nnmail-extra-headers gnus-extra-headers) it says it
>> isn't there.
>
> I kinda doubt you can add one of the non-extra
> headers to the extra list and have it work.

... ?

How should it be done then?

> Could you try edebugging though gnus-score-string
> and see why this doesn't work?

Is there anything in particular I should look for?

With this score rule:

(("extra"
  ("YES" -1000 nil e "X-Spam-Flag")))

in an nnml group which contains a single message with

    X-Spam-Flag: YES

Edebug says:

    Result: "extra"

    Result: (("number" 0 gnus-score-integer) ("subject" 1 gnus-score-string) ("from" 2 gnus-score-string) ("date" 3 gnus-score-date) ("message-id" 4 gnus-score-string) ("references" 5 gnus-score-string) ("chars" 6 gnus-score-integer) ("lines" 7 gnus-score-integer) ("xref" 8 gnus-score-string) ("extra" 9 gnus-score-string) ("head" -1 gnus-score-body) ("body" -1 gnus-score-body) ("all" -1 gnus-score-body) ("followup" 2 gnus-score-followup) ("thread" 5 gnus-score-thread))

    Result: ("extra" 9 gnus-score-string)

    Result: 9 (#o11, #x9, ?\C-i)

    Result: nil

    Result: nil

    Result: 9 (#o11, #x9, ?\C-i)

    Result: t

    Result: (([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0))

    Result: (([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0))

    Result: (([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0))

    Result: (([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0))

    Result: nil

    Result: (([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0))

    Result: (([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0))

    Result: ([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0)

    Result: ([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0)

    Result: ([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0)

    Result: [1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))]

    Result: 9 (#o11, #x9, ?\C-i)

    Result: ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))

    Result: ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))

    Result: 9 (#o11, #x9, ?\C-i)

    Result: t

    Result: ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))

    Result: "((To . \"<embe8573@student.uu.se>\") (X-Spam-Flag . \"YES\") (Subject . \"=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?=\"))"

    Result: "((To . \"<embe8573@student.uu.se>\") (X-Spam-Flag . \"YES\") (Subject . \"=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?=\"))"

    Result: "((To . \"<embe8573@student.uu.se>\") (X-Spam-Flag . \"YES\") (Subject . \"=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?=\"))"

    Result: nil

    Result: nil

    Result: nil

    Result: "((To . \"<embe8573@student.uu.se>\") (X-Spam-Flag . \"YES\") (Subject . \"=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?=\"))"

    Result: nil

    Result: nil

    Result: nil

    Result: ([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0)

    Result: (([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0))

    Result: "((To . \"<embe8573@student.uu.se>\") (X-Spam-Flag . \"YES\") (Subject . \"=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?=\"))"

    Result: "((To . \"<embe8573@student.uu.se>\") (X-Spam-Flag . \"YES\") (Subject . \"=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?=\"))"

    Result: "((To . \"<embe8573@student.uu.se>\") (X-Spam-Flag . \"YES\") (Subject . \"=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?=\"))"

    Result: nil

    Result: nil

    Result: nil

    Result: nil

    Result: nil

    Result: "((To . \"<embe8573@student.uu.se>\") (X-Spam-Flag . \"YES\") (Subject . \"=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?=\"))"

    Result: "((To . \"<embe8573@student.uu.se>\") (X-Spam-Flag . \"YES\") (Subject . \"=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?=\"))"

    Result: nil

    Result: 106 (#o152, #x6a, ?j)

    Result: 105 (#o151, #x69, ?i)

    Result: 106 (#o152, #x6a, ?j)

    Result: (([1 "Min fitta våt" "<embe8573@student.uu.se>" "5 Feb 2016 21:24:06 +0700" "<002d01d16022$0403d4be$66273a8e$@student.uu.se>" "" 1143 41 "debian.uxu mail.ooa:1" ((To . "<embe8573@student.uu.se>") (X-Spam-Flag . "YES") (Subject . "=?utf-8?B?TWluIGZpdHRhIHbDpXQ=?="))] . 0))

    Result: nil

    Result: nil

    Result: (((touched nil) ("extra" ("YES" -1000 nil e "X-Spam-Flag"))))

    Result: (((touched nil) ("extra" ("YES" -1000 nil e "X-Spam-Flag"))))

    Result: (((touched nil) ("extra" ("YES" -1000 nil e "X-Spam-Flag"))))

    Result: ((touched nil) ("extra" ("YES" -1000 nil e "X-Spam-Flag")))

    Result: "extra"

    Result: ((touched nil) ("extra" ("YES" -1000 nil e "X-Spam-Flag")))

    Result: ("extra" ("YES" -1000 nil e "X-Spam-Flag"))

    Result: ("extra" ("YES" -1000 nil e "X-Spam-Flag"))

    Result: ("extra" ("YES" -1000 nil e "X-Spam-Flag"))

    Result: (("YES" -1000 nil e "X-Spam-Flag"))

    Result: ("extra" ("YES" -1000 nil e "X-Spam-Flag"))

    Result: ("YES" -1000 nil e "X-Spam-Flag")

    Result: ("YES" -1000 nil e "X-Spam-Flag")

    Result: e

    Result: e

    Result: ("YES" -1000 nil e "X-Spam-Flag")

    Result: -1000 (#o377777777777777776030, #x3ffffffffffffc18)

    Result: -1000 (#o377777777777777776030, #x3ffffffffffffc18)

    Result: ("YES" -1000 nil e "X-Spam-Flag")

    Result: nil

    Result: ("YES" -1000 nil e "X-Spam-Flag")

    Result: "X-Spam-Flag"

    Result: e

    Result: "e"

    Result: 101 (#o145, #x65, ?e)

    Result: 101 (#o145, #x65, ?e)

    Result: nil

    Result: t

    Result: 101 (#o145, #x65, ?e)

    Result: 101 (#o145, #x65, ?e)

    Result: nil

    Result: nil

    Result: ("YES" -1000 nil e "X-Spam-Flag")

    Result: "YES"

    Result: "YES"

    Result: 101 (#o145, #x65, ?e)

    Result: nil

    Result: 101 (#o145, #x65, ?e)

    Result: t

    Result: t

    Result: search-forward

    Result: "X-Spam-Flag"

    Result: "X-Spam-Flag"

    Result: search-forward

    Result: nil

    Result: "YES"

    Result: "YES"

    Result: "YES"

    Result: "[ (](X-Spam-Flag \\. \"\\([^\"]*\\\\\"\\)*[^\"]*YES\\([^\"]*\\\\\"\\)*[^\"]*\")[ )]"

    Result: re-search-forward

    Result: re-search-forward

    Result: 101 (#o145, #x65, ?e)

    Result: nil

    Result: 101 (#o145, #x65, ?e)

    Result: nil

    Result: 101 (#o145, #x65, ?e)

    Result: t

    Result: 1 (#o1, #x1, ?\C-a)

    Result: 1 (#o1, #x1, ?\C-a)

    Result: nil

    Result: t

    Result: re-search-forward

    Result: "[ (](X-Spam-Flag \\. \"\\([^\"]*\\\\\"\\)*[^\"]*YES\\([^\"]*\\\\\"\\)*[^\"]*\")[ )]"

    Result: 58 (#o72, #x3a, ?:)

    Result: 58 (#o72, #x3a, ?:)

    Result: nil

    Result: nil

    Result: 0 (#o0, #x0, ?\C-@)

    Result: t

    Result: nil

    Result: nil

    Result: nil

    Result: nil

    Result: nil

    Result: t

    Result: ("extra" ("YES" -1000 nil e "X-Spam-Flag"))

    Result: (("YES" -1000 nil e "X-Spam-Flag"))

    Result: (("YES" -1000 nil e "X-Spam-Flag"))

    Result: (("YES" -1000 nil e "X-Spam-Flag"))

    Result: (("YES" -1000 nil e "X-Spam-Flag"))

    Result: (("YES" -1000 nil e "X-Spam-Flag"))

    Result: (("YES" -1000 nil e "X-Spam-Flag"))

    Result: (("YES" -1000 nil e "X-Spam-Flag"))

    Result: nil

    Result: nil

    Result: nil

    Result: nil

    Result: nil

    Result: nil

    Result: nil

    Result: nil

    Result: nil

-- 
underground experts united
http://user.it.uu.se/~embe8573


_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
https://lists.gnu.org/mailman/listinfo/info-gnus-english

  reply	other threads:[~2016-02-09  2:26 UTC|newest]

Thread overview: 22+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
     [not found] <mailman.3558.1454557630.843.info-gnus-english@gnu.org>
2016-02-07  3:50 ` Lars Ingebrigtsen
2016-02-07  4:39   ` Emanuel Berg
     [not found]   ` <mailman.3850.1454819959.843.info-gnus-english@gnu.org>
2016-02-07  4:44     ` Lars Ingebrigtsen
2016-02-07  5:01       ` Emanuel Berg
     [not found]       ` <mailman.3852.1454821323.843.info-gnus-english@gnu.org>
2016-02-07  5:23         ` Lars Ingebrigtsen
2016-02-08  0:48           ` Emanuel Berg
     [not found]           ` <mailman.3977.1454892539.843.info-gnus-english@gnu.org>
2016-02-08  4:48             ` Lars Ingebrigtsen
2016-02-08 22:52               ` Emanuel Berg
     [not found]               ` <mailman.4132.1454971965.843.info-gnus-english@gnu.org>
2016-02-08 23:39                 ` Lars Ingebrigtsen
2016-02-09  2:26                   ` Emanuel Berg [this message]
     [not found]                   ` <mailman.4158.1454984781.843.info-gnus-english@gnu.org>
2016-02-09 23:47                     ` Lars Ingebrigtsen
2016-02-10  0:50                       ` Emanuel Berg
     [not found]                       ` <mailman.4270.1455065439.843.info-gnus-english@gnu.org>
2016-02-10  3:04                         ` Lars Ingebrigtsen
2016-02-11  0:50                           ` Emanuel Berg
     [not found]                           ` <mailman.4358.1455151881.843.info-gnus-english@gnu.org>
2016-02-11  4:01                             ` Lars Ingebrigtsen
2016-02-17  0:38                               ` Emanuel Berg
     [not found]                               ` <mailman.4888.1455669521.843.info-gnus-english@gnu.org>
2016-02-20  8:34                                 ` Lars Ingebrigtsen
2016-02-21  0:44                                   ` Emanuel Berg
     [not found]                                   ` <mailman.5253.1456015518.843.info-gnus-english@gnu.org>
2016-02-21  2:43                                     ` Lars Ingebrigtsen
2016-02-21  3:29                                       ` Emanuel Berg
2016-02-08  1:27   ` Emanuel Berg
2016-02-04  3:46 Emanuel Berg

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=87io1ypqkn.fsf@debian.uxu \
    --to=embe8573@student.uu.se \
    --cc=info-gnus-english@gnu.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).