From: ueno <ueno>
Date: Tue, 24 Aug 1999 14:31:18 +0000 (+0000)
Subject: (nnmail-new-mail-numbers): New function.
X-Git-Tag: t-gnus-6_13_0-11~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=faad3e02384666cb80cfeec7942dfc7555b86205;p=elisp%2Fgnus.git-

(nnmail-new-mail-numbers): New function.
---

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 92a9191..1fd24cf 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1593,6 +1593,16 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
 	      his nil)))
     found))
 
+(defun nnmail-new-mail-numbers (group)
+  "Say how many articles has been incorporated to GROUP."
+  (let ((his (apply 'append nnmail-split-history))
+	numbers)
+    (while his
+      (when (string= group (caar his))
+	(push (cdar his) numbers))
+      (setq his (cdr his)))
+    numbers))
+
 (defun nnmail-within-headers-p ()
   "Check to see if point is within the headers of a unix mail message.
 Doesn't change point."