Gnus development mailing list
 help / color / mirror / Atom feed
From: dsg@mitre.org (David S. Goldberg)
Subject: Re: Moving articles destroys all marks
Date: 05 Oct 1999 13:30:58 -0400	[thread overview]
Message-ID: <m1bn1tx1zql.fsf@blackbird.mitre.org> (raw)
In-Reply-To: Kai.Grossjohann@CS.Uni-Dortmund.DE's message of "05 Oct 1999 18:40:21 +0200"

This is untested and almost certainly needs tweaking.

(defadvice gnus-summary-move-article (around clear-marks-first activate)
  (let ((articles (gnus-summary-work-articles (ad-get-arg 0))))
    (mapcar 'gnus-summary-clear-mark-forward articles)
    ad-do-it))

should do the right thing.  Btw, I've suggested that the clearing of
the marks be done after the move.  That was based on an assumption
that the article would be marked as read due to selection before the
move.  However a look at the source shows gnus-mark-article-hook being 
let to nil before that selection so there shouldn't be a problem.
-- 
Dave Goldberg
Post: The Mitre Corporation\MS B325\202 Burlington Rd.\Bedford, MA 01730
Phone: 781-271-3887
Email: dsg@mitre.org


  reply	other threads:[~1999-10-05 17:30 UTC|newest]

Thread overview: 17+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1999-10-01 11:04 Toni Drabik
1999-10-01 13:11 ` Robert Epprecht
1999-10-01 15:00   ` Toni Drabik
1999-10-01 20:52     ` Kai Großjohann
1999-10-03 14:57       ` Toni Drabik
1999-11-06  2:38     ` Lars Magne Ingebrigtsen
1999-11-06 16:02       ` Hrvoje Niksic
1999-10-04 20:23 ` François Pinard
1999-10-04 21:38   ` David S. Goldberg
1999-10-05 11:39     ` Kai Großjohann
1999-10-05 12:12       ` David S. Goldberg
1999-10-05 14:41         ` François Pinard
1999-10-05 16:40           ` Kai Großjohann
1999-10-05 17:30             ` David S. Goldberg [this message]
1999-10-05 17:48             ` François Pinard
1999-10-05  8:28   ` Kai Großjohann
1999-10-06 18:10   ` Toni Drabik

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=m1bn1tx1zql.fsf@blackbird.mitre.org \
    --to=dsg@mitre.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).