From: tsuchiya <tsuchiya>
Date: Sun, 2 May 2004 01:47:27 +0000 (+0000)
Subject: Fix the last change.
X-Git-Tag: t-gnus-6_17_4-quimby-~949
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=548dfeabe3efde797e5afdbe2a800d8d48f8bbbf;p=elisp%2Fgnus.git-

Fix the last change.
---

diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index f6ab885..7542cac 100644
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -239,7 +239,7 @@ This means that the group \"nnimap+server:INBOX.group\" is placed in
 		(string :tag "Base path of groups")))
   :set (lambda (symbol value)
 	 (prog1 (set-default symbol value)
-	   (gnus-namazu/make-directory-table))))
+	   (gnus-namazu/make-directory-table t))))
 
 ;;; Internal Variable:
 (defconst gnus-namazu/group-name-regexp "\\`nnvirtual:namazu-search\\?")
@@ -367,7 +367,7 @@ This means that the group \"nnimap+server:INBOX.group\" is placed in
 	       (setq dir (nnmail-group-pathname
 			  (substring group (match-end 0))
 			  "/"))
-	       (push (cons (concat (cdr dir) (substring dir 1)) group)
+	       (push (cons (concat (cdr pair) (substring dir 1)) group)
 		     alist)))))
        gnus-newsrc-hashtb)
       (dolist (pair (nconc agent cache alist))