From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18338 Path: main.gmane.org!not-for-mail From: Nelson Jose dos Santos Ferreira Newsgroups: gmane.emacs.gnus.general Subject: Re: Feature wish: auto-marking gcc'ed stuff read Date: 30 Oct 1998 19:11:35 +0000 Sender: owner-ding@hpc.uh.edu Message-ID: <2xn26d3lw8.fsf@ccae-sv.inesc.pt> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.108) Content-Type: multipart/mixed; boundary="Multipart_Fri_Oct_30_19:09:30_1998-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035156879 5622 80.91.224.250 (20 Oct 2002 23:34:39 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:34:39 +0000 (UTC) Cc: ding@gnus.org Return-Path: Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id OAA10814 for ; Fri, 30 Oct 1998 14:12:58 -0500 (EST) Original-Received: from sina.hpc.uh.edu (Sina.HPC.UH.EDU [129.7.3.5]) by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id NAB21169; Fri, 30 Oct 1998 13:12:25 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 30 Oct 1998 13:12:19 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id NAA20953 for ; Fri, 30 Oct 1998 13:12:08 -0600 (CST) Original-Received: from tull.inesc.pt (tull.inesc.pt [146.193.3.241]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id OAA10780 for ; Fri, 30 Oct 1998 14:11:49 -0500 (EST) Original-Received: from ccae-sv.inesc.pt (ccae-sv.inesc.pt [146.193.33.10]) by tull.inesc.pt (8.8.7/8.8.7) with SMTP id SAA03545; Fri, 30 Oct 1998 18:54:11 GMT (envelope-from njsf@ccae-sv.inesc.pt) Original-Received: by ccae-sv.inesc.pt (8.8.8/SMTP) id AA04538; Fri, 30 Oct 98 19:11:39 GMT Original-To: Stefan Waldherr X-Attribution: njsf X-Now-Reading: Frank Herbert _ChapterHouse: Dune_ X-Face: <15=A]w]g0mvFaG-vjRMUsG*$bO;6a2z2eUKU~+SN@oy//G<5JW~rdxEz!#R%[d{<}?EMS& ~PSXV,?H-Se'b}xP3F<^A!mZ%}Q37+9]YVSzd>2#.fn3?/S\&uX@A),24gkeE3[FYrfVJ2!PVtl(3_ l?/)o+vm7+T$~qn In-Reply-To: Stefan Waldherr's message of "26 Oct 1998 15:50:14 +0100" User-Agent: Gnus/5.07004 (Pterodactyl Gnus v0.40) XEmacs/20.4 (Emerald) Original-Lines: 103 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:18338 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18338 --Multipart_Fri_Oct_30_19:09:30_1998-1 Content-Type: text/plain; charset=US-ASCII On 26 Oct 1998 15:50:14 +0100, Stefan Waldherr (aka "Stefan"), regarding 'Feature wish: auto-marking gcc'ed stuff read', said: Stefan> Hi, Stefan> It would really be kewl, if gnus could automatically mark gcc'ed messages Stefan> read. It's really annoying to do this manually. Since I'm an elisp novice, has Stefan> anyone developed a strategy/function? Is this, by any chance, already on the Stefan> todo list? [...] Hi! I've been there and the patch attached (valid for 5.6.4x, didn't test under pgnus yet) does this except for a minor problem for which I'm asking for help to all of you.... It works except for the current group. That is it does not mark as read the article in the current open group, but if you have multiple Gcc groups all the other work ok. Does anyone have a clue ? As you can see by the patch I even try to get new news but that doesn't regenerate summary or makes the Article available for marking. Best regards, Nelson --Multipart_Fri_Oct_30_19:09:30_1998-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="as-read.patch" Content-Transfer-Encoding: 7bit *** gnus-msg.el.orig Sun Sep 6 19:13:05 1998 --- gnus-msg.el Tue Sep 29 10:11:42 1998 *************** *** 117,122 **** --- 117,123 ---- (defvar gnus-article-copy nil) (defvar gnus-last-posting-server nil) (defvar gnus-message-group-art nil) + (defvar gnus-message-gcc-as-read nil) (defconst gnus-bug-message "Sending a bug report to the Gnus Towers. *************** *** 967,977 **** (concat "^" (regexp-quote mail-header-separator) "$") nil t) (replace-match "" t t )) ! (unless (gnus-request-accept-article group method t) ! (gnus-message 1 "Couldn't store article in group %s: %s" ! group (gnus-status-message method)) ! (sit-for 2)) ! (kill-buffer (current-buffer)))))))))) (defun gnus-inews-insert-gcc () "Insert Gcc headers based on `gnus-outgoing-message-group'." --- 968,998 ---- (concat "^" (regexp-quote mail-header-separator) "$") nil t) (replace-match "" t t )) ! (let ((accepted (gnus-request-accept-article group method t))) ! (if accepted ! (when gnus-message-gcc-as-read ! (let ((articles (if (listp (cdr accepted)) ! (cdr accepted) ! (list (cdr accepted))))) ! (gnus-group-remove-mark group) ! ;; Bypass any previous denials from the server. ! (gnus-remove-denial method) ! (gnus-activate-group group 'scan) ! (gnus-retrieve-headers articles group) ! (gnus-summary-update-info) ! (gnus-get-unread-articles-in-group (gnus-get-info group) ! (gnus-active group) t) ! (gnus-summary-update-info) ! (gnus-mark-article-as-read (car articles)) ! (gnus-group-make-articles-read group articles) ! (gnus-summary-update-info) ! (unless (gnus-virtual-group-p group) ! (gnus-close-group group)) ! (gnus-group-update-group group))) ! (gnus-message 1 "Couldn't store article in group %s: %s" ! group (gnus-status-message method)) ! (sit-for 2)) ! (kill-buffer (current-buffer))))))))))) (defun gnus-inews-insert-gcc () "Insert Gcc headers based on `gnus-outgoing-message-group'." --- Nelson Jose dos Santos Ferreira | . . . | INESC/PT-Servicos Systems Integrator | |. / / . | Lisbon,PORTUGAL mailto:Nelson.Ferreira@inesc.pt |.||\| | / | Phone:+351 (1) 3100050 | .|<:/ \. | Fax :+351 (1) 3100008 --Multipart_Fri_Oct_30_19:09:30_1998-1--