From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/4746
Path: news.gmane.org!not-for-mail
From: "Bruno Hertz" <spammer.go.home@gmail.com>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: Emacs CVS, question regarding ticked, dormant, \Flagged with
 nnimap.
Date: Mon, 28 Mar 2005 18:55:19 +0200
Organization: Arcor
Message-ID: <m3zmwnsoaw.fsf@caruso.quasi.local>
References: <m33buhnl9a.fsf@caruso.quasi.local> <m3zmwpyo3m.fsf@caruso.quasi.local>
 <m3sm2g6ccc.fsf@caruso.quasi.local>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138670653 24715 80.91.229.2 (31 Jan 2006 01:24:13 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 01:24:13 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:34:15 2006
Original-Path: quimby.gnus.org!uio.no!feed.news.tiscali.de!news.belwue.de!newsfeed.arcor.de!news.arcor.de!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux)
Cancel-Lock: sha1:ufhX7INonuA1u6nMz2wV53Vkyag=
Original-NNTP-Posting-Date: 28 Mar 2005 18:54:48 MEST
Original-NNTP-Posting-Host: fe39143f.newsread2.arcor-online.net
Original-X-Trace: DXC=U<>U@FXnGK8E][lTbkER26Q5U85hF6f;4jW\KbG]kaM8]kI_X=5Kea6TJ4XI\P>kB;OWb^5_We]P<G8R:R3H<L35[WdCmTe:795
Original-X-Complaints-To: abuse@arcor.de
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:4887
Original-Lines: 16
X-Gnus-Article-Number: 4887   Tue Jan 17 17:34:15 2006
Xref: news.gmane.org gmane.emacs.gnus.user:4746
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/4746>

"Bruno Hertz" <spammer.go.home@gmail.com> writes:

> Two solutions come to mind: redefine gnus-article-mark-lists, which
> would be somewhat arbitrary and maybe invite for future mistakes, or
> sort the actions in nnimap-request-set-mark to do deletes first.

OK, for the records, as a quick fix I put the following into my .gnus:

 (defun nnimap-mark-action-is-less-p (a b)
   (if (and (eq (nth 1 a) 'del) (eq (nth 1 b) 'add)) t nil))
 (defadvice nnimap-request-set-mark
   (before nnimap-request-set-mark-sort-actions
           (group actions &optional server) activate compile)
   (setq actions (sort actions 'nnimap-mark-action-is-less-p)))

Regards, Bruno.