From 49dcc5062306840c39efc78cd0b61812123a0e02 Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Wed, 30 Jul 2003 04:44:01 +0000 Subject: [PATCH] (gnus-namazu/make-directory-table): Slightliy simplified. (gnus-namazu/search): Follow the above change. --- lisp/gnus-namazu.el | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el index 75d3d3e..6341d6e 100644 --- a/lisp/gnus-namazu.el +++ b/lisp/gnus-namazu.el @@ -319,14 +319,11 @@ options make any sense in this context." (defun gnus-namazu/make-directory-table (&optional force) (interactive (list t)) (unless (and (not force) - (vectorp gnus-namazu/directory-table) + gnus-namazu/directory-table (eq gnus-namazu-case-sensitive-filesystem - (symbol-value - (intern "case-sensitive" gnus-namazu/directory-table)))) + (car gnus-namazu/directory-table))) (let ((table (make-vector (length gnus-newsrc-hashtb) 0)) cache agent alist dir method) - (set (intern "case-sensitive" table) - gnus-namazu-case-sensitive-filesystem) (mapatoms (lambda (group) (unless (gnus-ephemeral-group-p (setq group (symbol-name group))) @@ -337,8 +334,7 @@ options make any sense in this context." (when (file-directory-p (setq dir (gnus-agent-group-pathname group))) (push (cons dir group) agent)) - (when (memq (car (setq method - (gnus-find-method-for-group group))) + (when (memq (car (setq method (gnus-find-method-for-group group))) '(nnml nnmh)) (when (file-directory-p (setq dir (nnmail-group-pathname @@ -352,7 +348,8 @@ options make any sense in this context." (downcase (car pair))) table) (cdr pair))) - (setq gnus-namazu/directory-table table)))) + (setq gnus-namazu/directory-table + (cons gnus-namazu-case-sensitive-filesystem table))))) (defun gnus-namazu/search (groups query) (gnus-namazu/make-directory-table) @@ -373,7 +370,7 @@ options make any sense in this context." (intern-soft (if gnus-namazu-case-sensitive-filesystem group (downcase group)) - gnus-namazu/directory-table))) + (cdr gnus-namazu/directory-table)))) (or (not groups) (member group groups)) (push (gnus-namazu/make-article group (string-to-number file)) -- 1.7.10.4