+2003-10-24 Teodor Zlatanov <tzz@lifelogs.com>
+
+ * 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 <yamaoka@jpl.org>
* nndoc.el (nndoc-guess-type): Reverse the sort order. Suggested
(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)
(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))