enter-digest-group automatically

enter-digest-group automatically

[jidanni]

How can one invoke gnus-summary-enter-digest-group automatically if a
Subject matches "Digest", instead of having to hit ^D?

Use gnus-select-article-hook? How? Thanks.

Re: enter-digest-group automatically

[Reiner Steib]

[ Please send Gnus questions _only_ to the list. ]

On Tue, Oct 02 2007, jidanni@jidanni.org wrote:

> How can one invoke gnus-summary-enter-digest-group automatically if a
> Subject matches "Digest", instead of having to hit ^D?
>
> Use gnus-select-article-hook? 

Yes, probably.

> How? Thanks.

Maybe like this (only slightly tested; and only for
`rs-gnus-auto-digest-groups'):

--8<---------------cut here---------------start------------->8---
(defvar rs-gnus-auto-digest-groups "de\\.alt\\.netdigest")
(defvar rs-gnus-auto-digest-subjects "^[Dd]igest")

(defun rs-gnus-maybe-enter-digest-mode ()
  (when (or (and (stringp rs-gnus-auto-digest-groups)
		 (string-match rs-gnus-auto-digest-groups gnus-newsgroup-name)
		 (not (string-match "nndoc:.*-[0-9]+" gnus-newsgroup-name)))
	    (and (stringp rs-gnus-auto-digest-subjects)
		 (let ((subject
			(gnus-with-article-buffer
			  (gnus-fetch-field "Subject"))))
		   (and (stringp subject)
			(string-match rs-gnus-auto-digest-subjects subject)))))
    (gnus-message 9 "Entering digest group automatically.")
    ;; (sit-for 1)
    (gnus-summary-enter-digest-group)
    (gnus-summary-show-article)))

(add-hook 'gnus-select-article-hook 'rs-gnus-maybe-enter-digest-mode)
--8<---------------cut here---------------end--------------->8---

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