From: Nelson Jose dos Santos Ferreira <Nelson.Ferreira@inesc.pt>
Cc: ding@gnus.org
Subject: Re: Feature wish: auto-marking gcc'ed stuff read
Date: 30 Oct 1998 19:11:35 +0000 [thread overview]
Message-ID: <2xn26d3lw8.fsf@ccae-sv.inesc.pt> (raw)
In-Reply-To: Stefan Waldherr's message of "26 Oct 1998 15:50:14 +0100"
[-- 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
prev parent reply other threads:[~1998-10-30 19:11 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-10-26 14:50 Stefan Waldherr
1998-10-26 14:58 ` Karl Kleinpaste
1998-10-30 9:35 ` Stefan Waldherr
1998-10-30 19:11 ` Nelson Jose dos Santos Ferreira [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=2xn26d3lw8.fsf@ccae-sv.inesc.pt \
--to=nelson.ferreira@inesc.pt \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).