Re: Canonical list of marks with and without gnus-agent

[Lloyd Zusman <ljz@asfast.com>]

Kevin Greiner <kgreiner@xpediantsolutions.com> writes:

> Lloyd Zusman <ljz@asfast.com> 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