From: yamaoka <yamaoka>
Date: Sat, 10 Sep 2005 23:06:58 +0000 (+0000)
Subject: Synch to No Gnus 200509101546.
X-Git-Tag: t-gnus-6_17_4-quimby-~379
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=91c22548a36af89c2937abaf0f9254fde0ad4f32;p=elisp%2Fgnus.git-

Synch to No Gnus 200509101546.
---

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  <romain@orebokech.com>
+
+	* gnus-uu.el (gnus-message-process-mark): Use gnus-message.
+	(gnus-uu-mark-series): Likewise.
+
 2005-09-10  Simon Josefsson  <jas@extundo.com>
 
 	* 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)