automatically mark own messages as dormant

automatically mark own messages as dormant

[Julien Cubizolles]

I'd like gnus to automatically mark my messages as dormant when it first
sees them in some groups (gmane mailing lists mostly). I'm not sure what
is the right tool for that, would a fancy-splitting rule work ?

Julien.

Re: automatically mark own messages as dormant

[Julien Cubizolles]

Julien Cubizolles <j.cubizolles@free.fr> writes:

> I'd like gnus to automatically mark my messages as dormant when it first
> sees them in some groups (gmane mailing lists mostly).

I tried the following (jc-gnus-article-header-value returns the
"From" header):
--8<---------------cut here---------------start------------->8---
(defun jc-mark-my-unseen-articles ()
  (interactive)
  (save-excursion
    (let ((articles gnus-newsgroup-unseen))
      (while articles
	(gnus-summary-select-article (pop articles))
	(let ((sender (jc-gnus-article-header-value "From")))
	  (if (string-match gnus-ignored-from-addresses sender)
	      (gnus-summary-mark-as-dormant 1)))))))
--8<---------------cut here---------------end--------------->8---

If point is on an unseen message, all matching unseen messages are
correctly marked. If not, nothing is marked however.

Also, if I plug this function in gnus-select-group-hook, I get a:
--8<---------------cut here---------------start------------->8---
This is a pseudo-article 
--8<---------------cut here---------------end--------------->8---
error message.

What am I missing ?

Julien.