From 91c22548a36af89c2937abaf0f9254fde0ad4f32 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sat, 10 Sep 2005 23:06:58 +0000 Subject: [PATCH] Synch to No Gnus 200509101546. --- lisp/ChangeLog | 5 +++++ lisp/gnus-uu.el | 28 ++++++++++++++-------------- 2 files changed, 19 insertions(+), 14 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d6b0a41..bd31b54 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-09-10 Romain Francoise + + * gnus-uu.el (gnus-message-process-mark): Use gnus-message. + (gnus-uu-mark-series): Likewise. + 2005-09-10 Simon Josefsson * gnus-agent.el (gnus-agent-synchronize-flags): Make the default diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el index eeca6b7..da7ae84 100644 --- a/lisp/gnus-uu.el +++ b/lisp/gnus-uu.el @@ -538,19 +538,19 @@ didn't work, and overwrite existing files. Otherwise, ask each time." (defun gnus-message-process-mark (unmarkp new-marked) (let ((old (- (length gnus-newsgroup-processable) (length new-marked)))) - (message "%d mark%s %s%s" - (length new-marked) - (if (= (length new-marked) 1) "" "s") - (if unmarkp "removed" "added") - (cond - ((and (zerop old) - (not unmarkp)) - "") - (unmarkp - (format ", %d remain marked" - (length gnus-newsgroup-processable))) - (t - (format ", %d already marked" old)))))) + (gnus-message 6 "%d mark%s %s%s" + (length new-marked) + (if (= (length new-marked) 1) "" "s") + (if unmarkp "removed" "added") + (cond + ((and (zerop old) + (not unmarkp)) + "") + (unmarkp + (format ", %d remain marked" + (length gnus-newsgroup-processable))) + (t + (format ", %d already marked" old)))))) (defun gnus-new-processable (unmarkp articles) (if unmarkp @@ -586,7 +586,7 @@ When called interactively, prompt for REGEXP." (while articles (gnus-summary-set-process-mark (car articles)) (setq articles (cdr articles))) - (message "Marked %d articles" l)) + (gnus-message 6 "Marked %d articles" l)) (gnus-summary-position-point)) (defun gnus-uu-mark-region (beg end &optional unmark) -- 1.7.10.4