From: yamaoka <yamaoka>
Date: Wed, 3 Jul 2002 08:14:08 +0000 (+0000)
Subject: Applied a patch from Keiichi-san.
X-Git-Tag: t-gnus-6_15_8-00-quimby~32
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f10e5aa49788946e3fd7421a467c194b7e12f8d5;p=elisp%2Fgnus.git-

Applied a patch from Keiichi-san.
* gnus-logic.el (gnus-advanced-index): Use luna based index numbers.
---

diff --git a/ChangeLog b/ChangeLog
index cfa1c85..46ba676 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-03  Keiichi Suzuki  <keiichi@nanap.org>
+
+	* lisp/gnus-logic.el (gnus-advanced-index): Use luna based index
+	numbers.
+
 2002-06-26  Tetsuo Tsukamoto  <czkmt@remus.dti.ne.jp>
 
 	* lisp/imap.el (imap-ssl-open-2): Do away with w32-related
diff --git a/lisp/gnus-logic.el b/lisp/gnus-logic.el
index 77fc948..b9b7fbb 100644
--- a/lisp/gnus-logic.el
+++ b/lisp/gnus-logic.el
@@ -41,15 +41,33 @@
 
 (defconst gnus-advanced-index
   ;; Name to index alist.
-  '(("number" 0 gnus-advanced-integer)
-    ("subject" 1 gnus-advanced-string)
-    ("from" 2 gnus-advanced-string)
-    ("date" 3 gnus-advanced-date)
-    ("message-id" 4 gnus-advanced-string)
-    ("references" 5 gnus-advanced-string)
-    ("chars" 6 gnus-advanced-integer)
-    ("lines" 7 gnus-advanced-integer)
-    ("xref" 8 gnus-advanced-string)
+  `(("number"
+     ,(luna-class-slot-index (luna-find-class 'mime-gnus-entity) 'location)
+     gnus-advanced-integer)
+    ("subject"
+     ,(luna-class-slot-index (luna-find-class 'mime-gnus-entity) 'subject)
+     gnus-advanced-string)
+    ("from"
+     ,(luna-class-slot-index (luna-find-class 'mime-gnus-entity) 'from)
+     gnus-advanced-string)
+    ("date"
+     ,(luna-class-slot-index (luna-find-class 'mime-gnus-entity) 'date)
+     gnus-advanced-date)
+    ("message-id"
+     ,(luna-class-slot-index (luna-find-class 'mime-gnus-entity) 'id)
+     gnus-advanced-string)
+    ("references"
+     ,(luna-class-slot-index (luna-find-class 'mime-gnus-entity) 'references)
+     gnus-advanced-string)
+    ("chars"
+     ,(luna-class-slot-index (luna-find-class 'mime-gnus-entity) 'chars)
+     gnus-advanced-integer)
+    ("lines"
+     ,(luna-class-slot-index (luna-find-class 'mime-gnus-entity) 'lines)
+     gnus-advanced-integer)
+    ("xref"
+     ,(luna-class-slot-index (luna-find-class 'mime-gnus-entity) 'xref)
+     gnus-advanced-string)
     ("head" nil gnus-advanced-body)
     ("body" nil gnus-advanced-body)
     ("all" nil gnus-advanced-body)))