From: Eric Abrahamsen <eric@ericabrahamsen.net>
To: ding@gnus.org
Subject: Re: article reply hook?
Date: Fri, 25 Nov 2011 17:08:45 +0800 [thread overview]
Message-ID: <8739dczi02.fsf@ericabrahamsen.net> (raw)
In-Reply-To: <b4mehwwtz1d.fsf@jpl.org>
On Fri, Nov 25 2011, Katsumi Yamaoka wrote:
> 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'.
Very nice, thanks a lot!
--
GNU Emacs 24.0.91.1 (i686-pc-linux-gnu, GTK+ Version 2.24.6)
of 2011-11-07 on pelletnNo Gnus v0.18
prev parent reply other threads:[~2011-11-25 9:08 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
2011-11-25 9:08 ` Eric Abrahamsen [this message]
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=8739dczi02.fsf@ericabrahamsen.net \
--to=eric@ericabrahamsen.net \
--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).