From: tsuchiya <tsuchiya>
Date: Wed, 30 Jul 2003 04:44:01 +0000 (+0000)
Subject: (gnus-namazu/make-directory-table): Slightliy simplified.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=49dcc5062306840c39efc78cd0b61812123a0e02;p=elisp%2Fgnus.git-

(gnus-namazu/make-directory-table): Slightliy simplified.
(gnus-namazu/search): Follow the above change.
---

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))