From f10e5aa49788946e3fd7421a467c194b7e12f8d5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 3 Jul 2002 08:14:08 +0000 Subject: [PATCH] Applied a patch from Keiichi-san. * gnus-logic.el (gnus-advanced-index): Use luna based index numbers. --- ChangeLog | 5 +++++ lisp/gnus-logic.el | 36 +++++++++++++++++++++++++++--------- 2 files changed, 32 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index cfa1c85..46ba676 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-07-03 Keiichi Suzuki + + * lisp/gnus-logic.el (gnus-advanced-index): Use luna based index + numbers. + 2002-06-26 Tetsuo Tsukamoto * 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))) -- 1.7.10.4