* Re: Feature wish: auto-marking gcc'ed stuff read
1998-10-26 14:50 Feature wish: auto-marking gcc'ed stuff read Stefan Waldherr
1998-10-26 14:58 ` Karl Kleinpaste
@ 1998-10-30 19:11 ` Nelson Jose dos Santos Ferreira
1 sibling, 0 replies; 4+ messages in thread
From: Nelson Jose dos Santos Ferreira @ 1998-10-30 19:11 UTC (permalink / raw)
Cc: ding
[-- 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
^ permalink raw reply [flat|nested] 4+ messages in thread