From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/80603 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: article reply hook? Date: Fri, 25 Nov 2011 16:57:18 +0900 Organization: Emacsen advocacy group Message-ID: References: <87bos16i5o.fsf@ericabrahamsen.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1322207950 19762 80.91.229.12 (25 Nov 2011 07:59:10 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 25 Nov 2011 07:59:10 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M28886@lists.math.uh.edu Fri Nov 25 08:59:06 2011 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RTqgc-00041e-6X for ding-account@gmane.org; Fri, 25 Nov 2011 08:59:06 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1RTqf7-0002su-6K; Fri, 25 Nov 2011 01:57:33 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1RTqf5-0002se-Bu for ding@lists.math.uh.edu; Fri, 25 Nov 2011 01:57:31 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1RTqf4-0002oY-5f for ding@lists.math.uh.edu; Fri, 25 Nov 2011 01:57:31 -0600 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1RTqf2-0000OU-Ee for ding@gnus.org; Fri, 25 Nov 2011 08:57:28 +0100 Original-Received: from localhost ([127.0.0.1]:51042) by orlando.hostforweb.net with smtp (Exim 4.69) (envelope-from ) id 1RTqex-0001Ix-MT for ding@gnus.org; Fri, 25 Nov 2011 01:57:24 -0600 X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110018 (No Gnus v0.18) Emacs/24.0.91 (i686-pc-cygwin) Cancel-Lock: sha1:Ilh5wL0hK9TkWqrkDa/Xq3WPrs8= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -0.0 (/) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:80603 Archived-At: 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'.