Re: auto auto-expirable

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> Mike Kupfer wrote:
> I don't have much experience writing Emacs docstrings, but FWIW here's
> an attempt to tighten the wording.  Thanks for making this customizable.

>>  :function-document
>    "Indicate whether articles that are marked expirable should retain that mark when moved or copied to GROUP."
>>  :variable-document
>    "Articles that are moved or copied into these groups will retain the expirable mark.

Thank you for the improvement.  That's ok but the best is to make
the first line say what it is in the length of 80-column or less
because `C-h f' or `C-h v' displays it.

>> 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
[...]

> Should that be "If this is nil... the expirable marks of articles will
> be cleared"?

That's good.  However, I got to think the `auto-auto-expire' group
parameter is overkill.

>>  :parameter-document
>    "Articles that have the expirable mark will retain that mark if moved or copied into a matching group, assuming the group does auto-expiry."

BTW, here is another solution, that lets Gnus behave as before
even if the patch that I made has been applied.  Though it might
make moving and copying of articles slow if the target group
contains 100,000 articles.  Isn't it acceptable?

--8<---------------cut here---------------start------------->8---
(defun my-gnus-dont-auto-auto-expiry (action header from to method)
  "Don't make unexpirable article expirable automatically when copied or\
moved to group in which to perform auto-expiry."
  (let (article expirable)
    (when (and (memq action '(copy move))
	       (gnus-group-auto-expirable-p to)
	       (setq article (mail-header-number header))
	       (not (memq article gnus-newsgroup-expirable))
	       (setq expirable
		     (assq 'expire (car (nthcdr 3 (gnus-get-info to))))))
      (setcdr expirable
	      (gnus-compress-sequence
	       (delq (cdr (symbol-value 'art-group))
		     (gnus-uncompress-sequence (cdr expirable))))))))

(add-hook 'gnus-summary-article-move-hook 'my-gnus-dont-auto-auto-expiry)
--8<---------------cut here---------------end--------------->8---

Otherwise, how about the user option like the following?
It never slows Gnus, though it doesn't provide the means to
customize the behavior group by group.

--8<---------------cut here---------------start------------->8---
(defcustom gnus-inhibit-auto-auto-expiry nil
  "If non-nil, don't do auto auto-expiry when moving or copying articles.
`Auto auto-expiry' means that read articles, even if they haven't been
marked as expirable, will be automatically marked as expirable when
moved or copied to a group in which to perform auto-expiry."
  :version "23.2"
  :group 'gnus-summary
  :type 'boolean)
--8<---------------cut here---------------end--------------->8---