article reply hook?

article reply hook?

[Eric Abrahamsen]

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?

Thanks,
Eric

-- 
GNU Emacs 24.0.91.1 (i686-pc-linux-gnu, GTK+ Version 2.24.6)
of 2011-11-07 on pellet
No Gnus v0.18

Re: article reply hook?

[Katsumi Yamaoka]

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'.

Re: article reply hook?

[Eric Abrahamsen]

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