From 39004ffcf6c58b6d4f1843358d296d93f6d55589 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 11 Sep 2005 13:32:17 +0000 Subject: [PATCH] Synch to No Gnus 200509111104. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-uu.el | 16 ++++++++++------ 2 files changed, 16 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bd31b54..16e46e6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-09-11 Romain Francoise + + * gnus-uu.el (gnus-uu-mark-series): Return number of marked + articles. New argument `silent'. + (gnus-uu-mark-all): Report the total number of marked articles. + 2005-09-10 Romain Francoise * gnus-uu.el (gnus-message-process-mark): Use gnus-message. diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el index da7ae84..a283ab4 100644 --- a/lisp/gnus-uu.el +++ b/lisp/gnus-uu.el @@ -578,16 +578,18 @@ When called interactively, prompt for REGEXP." (interactive "sUnmark (regexp): ") (gnus-uu-mark-by-regexp regexp t)) -(defun gnus-uu-mark-series () +(defun gnus-uu-mark-series (&optional silent) "Mark the current series with the process mark." (interactive) (let* ((articles (gnus-uu-find-articles-matching)) - (l (length articles))) + (l (length articles))) (while articles (gnus-summary-set-process-mark (car articles)) (setq articles (cdr articles))) - (gnus-message 6 "Marked %d articles" l)) - (gnus-summary-position-point)) + (unless silent + (gnus-message 6 "Marked %d articles" l)) + (gnus-summary-position-point) + l)) (defun gnus-uu-mark-region (beg end &optional unmark) "Set the process mark on all articles between point and mark." @@ -695,14 +697,16 @@ When called interactively, prompt for REGEXP." (setq gnus-newsgroup-processable nil) (save-excursion (let ((data gnus-newsgroup-data) + (count 0) number) (while data (when (and (not (memq (setq number (gnus-data-number (car data))) gnus-newsgroup-processable)) (vectorp (gnus-data-header (car data)))) (gnus-summary-goto-subject number) - (gnus-uu-mark-series)) - (setq data (cdr data))))) + (setq count (+ count (gnus-uu-mark-series t)))) + (setq data (cdr data))) + (gnus-message 6 "Marked %d articles" count))) (gnus-summary-position-point)) ;; All PostScript functions written by Erik Selberg . -- 1.7.10.4