Feature wish: auto-marking gcc'ed stuff read

Feature wish: auto-marking gcc'ed stuff read

[Stefan Waldherr]

Hi,

It would really be kewl, if gnus could automatically mark gcc'ed messages
read. It's really annoying to do this manually. Since I'm an elisp novice, has
anyone developed a strategy/function? Is this, by any chance, already on the
todo list?

-S
-- 
Stefan Waldherr                   fax +49 431 8058 136
                               e-Mail stefan@waldherr.org
                                  www http://www.waldherr.org/

Re: Feature wish: auto-marking gcc'ed stuff read

[Karl Kleinpaste]

Just score yourself down in your mail groups by one point.

Re: Feature wish: auto-marking gcc'ed stuff read

[Stefan Waldherr]

>>>>> "Karl" == Karl Kleinpaste <karl@jprc.com> writes:

  Karl> Just score yourself down in your mail groups by one point.  

But that would require to enter the groups manually, right?

cu
Stefan.
--
Stefan Waldherr                   fax +49 431 8058 136
                               e-Mail stefan@waldherr.org
                                  www http://www.waldherr.org/

Re: Feature wish: auto-marking gcc'ed stuff read

[Nelson Jose dos Santos Ferreira]

[-- Attachment #1: Type: text/plain, Size: 978 bytes --]


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


[-- Attachment #2: as-read.patch --]
[-- Type: application/octet-stream, Size: 2392 bytes --]

*** 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