Immediate deletion of mail

Immediate deletion of mail

[Sebastian Tennant]

Hi list,

How to immediately delete mail in a particular group?

I've added the group to gnus-total-expirable-newsgroups and set the
expiry period for that group to 'immediate, using
nnmail-expiry-wait-function, but I now need a way to automatically mark
all mail arriving in that group as read so that it is, indeed, expired.

Or am I going about this all wrong?

Sebastian

Re: Immediate deletion of mail

[Reiner Steib]

On Tue, Feb 26 2008, Sebastian Tennant wrote:

> How to immediately delete mail in a particular group?

`B DEL' (`gnus-summary-delete-article') as suggested by Adam is one
possibility.

> I've added the group to gnus-total-expirable-newsgroups and set the
> expiry period for that group to 'immediate, using
> nnmail-expiry-wait-function, 

I can't parse this.  Better post code.

Note:

,----[ (info "(gnus)Expiring Mail") ]
|    By the way: That line up there, about Gnus never expiring
| non-expirable articles, is a lie.  If you put `total-expire' in the
| group parameters, articles will not be marked as expirable, but all read
| articles will be put through the expiry process.  Use with extreme
| caution.  Even more dangerous is the `gnus-total-expirable-newsgroups'
| variable.  All groups that match this regexp will have all read
| articles put through the expiry process, which means that _all_ old
| mail articles in the groups in question will be deleted after a while.
| Use with extreme caution, and don't come crying to me when you discover
| that the regexp you used matched the wrong group and all your important
| mail has disappeared.  Be a _man_!  Or a _woman_!  Whatever you feel
| more comfortable with!  So there!
`----

> but I now need a way to automatically mark all mail arriving in that
> group as read so that it is, indeed, expired.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: Immediate deletion of mail

[Sebastian Tennant]

Quoth Reiner Steib <reinersteib+gmane@imap.cc>:
> On Tue, Feb 26 2008, Sebastian Tennant wrote:
>
>> How to immediately delete mail in a particular group?
>
> `B DEL' (`gnus-summary-delete-article') as suggested by Adam is one
> possibility.

I should have added "without ever having to visit that group."  I want
the group to act like /dev/null essentially.

>> I've added the group to gnus-total-expirable-newsgroups and set the
>> expiry period for that group to 'immediate, using
>> nnmail-expiry-wait-function, 
>
> I can't parse this.  Better post code.

  ;;; Newsgroups in which mail should expire
  (setq gnus-total-expirable-newsgroups "Gmail\\|moley\\|blackhole")

  ;;; Email pre-expiry period according to group 
  (setq nnmail-expiry-wait-function
        (lambda (group)
          (cond ((string= group "Gmail")      90)
                ((string= group "moley")      30)
                ((string= group "blackhole") 'immediate)
                (t                            7))))

This arrangement works as it stands.  Each time I quit the summary
buffer of 'blackhole' any read mail is immediately expired but I don't
want to read it.  I don't even want to visit the group in the first
place.  I just want mail split to 'blackhole' to disappear.

Is this possible?

Sebastian

Re: Immediate deletion of mail

[Reiner Steib]

On Wed, Feb 27 2008, Sebastian Tennant wrote:

> I should have added "without ever having to visit that group."  I want
> the group to act like /dev/null essentially.
[...]
> This arrangement works as it stands.  Each time I quit the summary
> buffer of 'blackhole' any read mail is immediately expired but I don't
> want to read it.  I don't even want to visit the group in the first
> place.  

IIRC, expiry only happens on group exit.  Maybe you need to simulate
entering and quitting the group:

(defun rs-gnus-enter-and-quit-group ()
  (interactive)
  (gnus-group-quick-select-group 0 "nnml:blackhole")
  (gnus-summary-exit))

,----[ (info "(gnus)Selecting a Group") ]
| `M-RET'
|      This does the same as the command above, but tries to do it with
|      the minimum amount of fuzz (`gnus-group-quick-select-group').  No
|      scoring/killing will be performed, there will be no highlights and
|      no expunging.  This might be useful if you're in a real hurry and
|      have to enter some humongous group.  If you give a 0 prefix to
|      this command (i.e., `0 M-RET'), Gnus won't even generate the
|      summary buffer, which is useful if you want to toggle threading
|      before generating the summary buffer (*note Summary Generation
|      Commands::).
`----

> I just want mail split to 'blackhole' to disappear.

How about using `junk' in `nnmail-split-fancy'?

,----[ (info "(gnus)Fancy Mail Splitting") ]
| `junk'
|      If the split is the symbol `junk', then don't save (i.e., delete)
|      this message.  Use with extreme caution.
`----

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: Immediate deletion of mail

[Sebastian Tennant]

Quoth Reiner Steib <reinersteib+gmane@imap.cc>:
> IIRC, expiry only happens on group exit.  Maybe you need to simulate
> entering and quitting the group:
>
> (defun rs-gnus-enter-and-quit-group ()
>   (interactive)
>   (gnus-group-quick-select-group 0 "nnml:blackhole")
>   (gnus-summary-exit))

Thanks Reiner.  This looks like just what I needed. I can add this to
gnus-exit-gnus-hook and that should be that.

>> I just want mail split to 'blackhole' to disappear.
>
> How about using `junk' in `nnmail-split-fancy'?
>
> ,----[ (info "(gnus)Fancy Mail Splitting") ]
> | `junk'
> |      If the split is the symbol `junk', then don't save (i.e., delete)
> |      this message.  Use with extreme caution.
> `----

Hmm.  Interesting.  Will investigate.

Thanks again.

Sebastian

Re: Immediate deletion of mail

[Adam Sjøgren]

On Tue, 26 Feb 2008 23:17:19 +0200, Sebastian wrote:

> How to immediately delete mail in a particular group?

B DEL runs `gnus-summary-delete-article', perhaps?


  Best regards,

-- 
 "Achtung, babies!"                                           Adam Sjøgren
                                                         asjo@koldfront.dk