Gnus development mailing list
 help / color / mirror / Atom feed
From: Katsumi Yamaoka <yamaoka@jpl.org>
To: ding@gnus.org
Subject: Re: article reply hook?
Date: Fri, 25 Nov 2011 16:57:18 +0900	[thread overview]
Message-ID: <b4mehwwtz1d.fsf@jpl.org> (raw)
In-Reply-To: <87bos16i5o.fsf@ericabrahamsen.net>

Eric Abrahamsen wrote:
> I'm trying to create a hook that will automatically remove the tick mark
> (!) from a message when I reply to it. I assume there's already some
> sort of hook that's adding the 'R' mark to messages when I reply to
> them, and I'd like to add a rider to that. I don't see any appropriate
> hooks in `gnus-****-hook': does anyone know how I can do this?

Some gnus*mark*hook's don't seem to be usable for such a purpose.
Instead, I was successful in advising the function, that marks
articles as replied, to delete tick marks.  Here it is:

(defadvice gnus-summary-mark-article-as-replied (after delete-ticked-marks
						       (article) activate)
  "Delete ticked marks."
  (dolist (art (if (listp article) article (list article)))
    (when (gnus-summary-goto-subject art nil t)
      (gnus-summary-mark-article nil gnus-read-mark t))))

If you want those articles to be marked with `E' instead of `R'
in auto-expirable groups, remove the last `t'.



  reply	other threads:[~2011-11-25  7:57 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2011-11-25  2:38 Eric Abrahamsen
2011-11-25  7:57 ` Katsumi Yamaoka [this message]
2011-11-25  9:08   ` Eric Abrahamsen

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=b4mehwwtz1d.fsf@jpl.org \
    --to=yamaoka@jpl.org \
    --cc=ding@gnus.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).