Copy and expire

[Julien Cubizolles]

I asked a while ago about a function to copy marked articles to another
group and then expire them in the current group. Here is it what I came
up with, for those interested.

--8<---------------cut here---------------start------------->8---
(defun jc-gnus-summary-copy-and-expire-article (&optional n to-newsgroup 
select-method)
  "Copy the current article to some other group and mark it as expirable.
If TO-NEWSGROUP is string, do not prompt for a newsgroup to copy to.
When called interactively, if TO-NEWSGROUP is nil, use the value of
the variable `gnus-move-split-methods' for finding a default target."
  (interactive "P")
  (let ((articles (gnus-summary-work-articles n))
        article)
    (gnus-summary-move-article n to-newsgroup select-method 'copy)
    (save-excursion
      (while articles
        (gnus-summary-goto-subject (setq article (pop articles)))
        (let (gnus-newsgroup-processable)
          (command-execute 'gnus-summary-mark-as-expirable))
        
        (gnus-summary-remove-process-mark article)))
    )
  )
--8<---------------cut here---------------end--------------->8---