From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/52680 Path: main.gmane.org!not-for-mail From: Lloyd Zusman Newsgroups: gmane.emacs.gnus.general Subject: Re: Canonical list of marks with and without gnus-agent Date: Wed, 14 May 2003 17:01:17 -0400 Organization: FreeBSD/Linux Hippopotamus Preserve Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1052946117 20770 80.91.224.249 (14 May 2003 21:01:57 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 14 May 2003 21:01:57 +0000 (UTC) Original-X-From: ding-owner+M1224=ding+2Daccount=gmane.org@lists.math.uh.edu Wed May 14 23:01:55 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19G3Lt-0005H4-00 for ; Wed, 14 May 2003 22:59:53 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19G3NU-0001eW-04 for ding-account@gmane.org; Wed, 14 May 2003 16:01:32 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19G3NL-0001eM-00 for ding@lists.math.uh.edu; Wed, 14 May 2003 16:01:23 -0500 Original-Received: (qmail 15870 invoked by alias); 14 May 2003 21:01:23 -0000 Original-Received: (qmail 15865 invoked from network); 14 May 2003 21:01:23 -0000 Original-Received: from unknown (HELO asfast.net) (oe910x@216.182.10.250) by sclp3.sclp.com with SMTP; 14 May 2003 21:01:23 -0000 Original-Received: from localhost (localhost [127.0.0.1]) (uid 0) by asfast.net with local; Wed, 14 May 2003 17:01:17 -0400 Original-To: ding@gnus.org X-Face: "!ga1s|?LNLE3MeeeEYs(%LIl9q[xV9!j4#xf4!**BFW_ihlOb;:Slb>)vy>CJM (Kevin Greiner's message of "Wed, 14 May 2003 12:26:01 -0500") User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (berkeley-unix) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:52680 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:52680 Kevin Greiner writes: > Lloyd Zusman writes: > >> [ ... ] >> >> Well, it's actually a group of functions, and it's easier if I just >> explain verbally. > > No. It's easier to zip them up and either post or email them. I can't > help at all with just a verbal description. To put it simply, the > agent isn't supposed to introduce the effect that you are describing. > That means that either a) there is an obscure bug in the agent or b) > there is a bug in your functions. In either case, a verbal > description will not let me reproduce the error here. OK. Here's the function that marks the article: (defun my-gnus-summary-mark-as-killed-forward () (interactive) (save-excursion (gnus-summary-mark-article-as-read gnus-killed-mark)) ;; I forget why I had to do this, but when I wrote this ;; deletion system, it didn't work unless I made the ;; article processable. But that was eons ago ... (gnus-summary-mark-as-processable 1)) ... and here's the function that deletes all the marked articles: (defun ljz-expunge-all-killed (&optional quiet) (interactive) (let ((headers gnus-newsgroup-headers) (gnus-summary-expunge-below 1) (group gnus-newsgroup-name) (count 0) count-string plural article header data mark temp-processable) (while headers (setq header (car headers)) (setq headers (cdr headers)) (setq article (mail-header-number header)) (setq data (gnus-data-find article)) (setq mark (gnus-data-mark data)) (when (eq mark gnus-killed-mark) (setq count (1+ count)) (setq temp-processable (append temp-processable (list article))))) (if temp-processable (let ((gnus-newsgroup-processable temp-processable)) ;; Do a total and unequivocal delete (my-gnus-summary-delete-article)) (unless quiet (message "No articles have been marked as killed"))))) ... and this is the function that does the "total and unequivocal delete": (defun my-gnus-summary-delete-article (&optional N) (interactive "P") (let ((nnimap-expiry-target 'delete) ;; force a prompt (gnus-novice-user t)) (gnus-summary-delete-article N))) When I'm not running under gnus-agent, I can mark the articles with the first function and delete the ones that are marked with the second function. But when gnus-agent is set to t, the marking doesn't occur when I run the first function, and the second function therefore doesn't see anything to delete. -- Lloyd Zusman ljz@asfast.com