From 91bd843dbcb4093d761d5c0118bfce7b1b13c376 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Fri, 24 Oct 2003 11:32:52 +0000 Subject: [PATCH] (spam-ham-copy-or-move-routine): do not delete if copy is t, also don't intepret the list of groups as a list of lists --- lisp/ChangeLog | 5 +++++ lisp/spam.el | 13 +++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1a57158a0..ce0e547c5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-10-24 Teodor Zlatanov + + * spam.el (spam-ham-copy-or-move-routine): do not delete if copy + is t, also don't intepret the list of groups as a list of lists + 2003-10-24 Katsumi Yamaoka * nndoc.el (nndoc-guess-type): Reverse the sort order. Suggested diff --git a/lisp/spam.el b/lisp/spam.el index a7d84ee40..efc04c6ac 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -574,7 +574,7 @@ spamoracle database." (gnus-summary-yank-process-mark)) -(defun spam-ham-copy-or-move-routine (copy &rest groups) +(defun spam-ham-copy-or-move-routine (copy groups) (gnus-summary-kill-process-mark) (let ((articles gnus-newsgroup-articles) article mark todo) @@ -592,11 +592,12 @@ spamoracle database." (gnus-summary-set-process-mark article)) (gnus-summary-copy-article nil group))) - ;; now delete the articles - (dolist (article todo) - (gnus-summary-set-process-mark article)) - (when todo - (gnus-summary-delete-article nil))) + ;; now delete the articles, unless copy is t + (unless copy + (dolist (article todo) + (gnus-summary-set-process-mark article)) + (when todo + (gnus-summary-delete-article nil)))) (gnus-summary-yank-process-mark)) -- 2.25.1