From faad3e02384666cb80cfeec7942dfc7555b86205 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 24 Aug 1999 14:31:18 +0000 Subject: [PATCH] (nnmail-new-mail-numbers): New function. --- lisp/nnmail.el | 10 ++++++++++ 1 file changed, 10 insertions(+) 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." -- 1.7.10.4