Re: Expiry in virtual groups

[Stainless Steel Rat <ratinox@peorth.gweep.net>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

* Justin Sheehy <justin@linus.mitre.org>  on Mon, 19 Apr 1999
| Heh.  That's the only way that I expire.  I turn off the exit-hook to
| do expiry, which makes exiting groups much quicker.  About once a week
| I will C-c M-C-x before leaving my desk for the day.

I wrote my own exit hook function:

(defun rat:gnus-exit-gnus-hook ()
  (and (equal send-mail-function 'smtpmail-queue-it)
       (smtpmail-query-send-queued-mail-now))
  (cond ((equal gnus-select-method '(nnml ""))
         (if (not (boundp 'rat:gnus-group-expired-mail-this-session))
             (progn
               (gnus-group-expire-all-groups)
               (setq rat:gnus-group-expired-mail-this-session t))))
	(t
	 (if (not (boundp 'rat:gnus-group-expired-news-this-session))
             (progn
               (and (fboundp 'gnus-agent-expire) (gnus-agent-expire))
               (setq rat:gnus-group-expired-news-this-session t))))
	)
  (mc-deactivate-passwd nil)
  (kill-buffer (get-buffer-create "*Compile-Log*")))

In order,

* If I am using stmpmailq, query to send queued mail on exit.
* Expire nnml groups only if I am reading mail (I use separate newsrcs and
  backends for mail and news), then set a flag so I do not expire again
  that session.  I should probably use car, but the hack works as-is for me.
* Expire agentized articles only if the agent is being used, and set a flag 
  so that I do not expire again this session.
* Forcibly unset my GPG passphrase.
* Delete the *Compile-Log* buffer (I use gnus-compile frequently).
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v0.9.5 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD8DBQE3G1R6gl+vIlSVSNkRAi5HAKDDx+hL5UnN51Of/snLrpwoJqs6GwCeI3k4
K2vaEiCfJvYjVHSQtsyd0mI=
=4Knw
-----END PGP SIGNATURE-----

-- 
Rat <ratinox@peorth.gweep.net>    \ Warning: pregnant women, the elderly, and
Minion of Nathan - Nathan says Hi! \ children under 10 should avoid prolonged
PGP Key: at a key server near you!  \ exposure to Happy Fun Ball.