From: yamaoka <yamaoka>
Date: Wed, 12 Oct 2005 22:13:21 +0000 (+0000)
Subject: Synch to No Gnus 200510121250.
X-Git-Tag: t-gnus-6_17_4-quimby-~308
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fb787514a264319501dd5b55f9c0429cdaea514f;p=elisp%2Fgnus.git-

Synch to No Gnus 200510121250.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 67ecb04..a8a5c07 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-10-12  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* gnus-art.el (gnus-treat-predicate): Add `first'.
+
 2005-10-11  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* mm-util.el (mm-charset-synonym-alist): Improve doc string.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index e2ebd6b..ba8b7af 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -7752,6 +7752,8 @@ For example:
     t)
    ((eq val 'head)
     nil)
+   ((eq val 'first)
+    (eq part-number 1))
    ((eq val 'last)
     (eq part-number total-parts))
    ((numberp val)