Re: auto auto-expirable

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> Didier Verna wrote:
> Mike Kupfer <mike.kupfer@xemacs.org> wrote:

>> Sometimes the scripts assign a message to the wrong folder. Currently,
>> I just save the message to the correct folder and then deal with it
>> while reading that other folder.
>>
>> Now, if I understand your proposal, it sounds like I would need to
>> remember to clear the "expirable" mark before saving the message. If
>> that's correct, it seems awkward and easy to forget to do.

>   When I face such situations, I usually move the article to the correct
> group *before* reading it, so Katsumi's change would not affect you. In
> the cases when the article is displayed for whatever reason, I also
> usually M c it (before reading it), move it, and again read it from the
> correct group.

I'll do it like Didier, but I can agree with Mike.  Maybe it
will be better not to change the present behavior by default.
So, I'm trying to make it customizable by the group parameter
`auto-auto-expire'.  It also provides the variable
`gnus-auto-auto-expirable-newsgroups' as well; you can use it
like `gnus-auto-expirable-newsgroups'.  Probably I'll use the
same value for both the variables.

But the greatest difficulty is to summarize the document briefly
in the first lines of the doc-strings:

--8<---------------cut here---------------start------------->8---
(gnus-define-group-parameter
 auto-auto-expire
 :type bool
 :function gnus-group-auto-auto-expirable-p
 :function-document
 "Check whether articles that havie been read are automatically marked as expirable when moved to or copied to GROUP."
 :variable gnus-auto-auto-expirable-newsgroups
 :variable-default nil
 :variable-document
 "Groups in which articles that have been read are automatically marked as expirable when moved to or copied to there.
If non-nil, this should be a regexp that should match all groups in
which to perform auto auto-expiry.  If this is nil or the group name
does not match this, the expirable marks of articles that have been
read will remain (not be set forcibly) when they are moved to or
copied to the group in which to perform auto-expiry.  This only makes
sense for mail groups."
 :variable-group nnmail-expire
 :variable-type '(choice (const nil)
			 regexp)
 :parameter-type '(const :tag "Automatic Auto-Expire" t)
 :parameter-document
 "Article that have been read will be automatically marked as expirable when moved to or copied to this group if this group is set to perform auto-expiry.")
--8<---------------cut here---------------end--------------->8---

Could anyone make it cool?