From 1da25e193e6f3d7bbfe45a95275de5e335c70764 Mon Sep 17 00:00:00 2001
From: teranisi <teranisi>
Date: Wed, 5 May 2004 11:49:28 +0000
Subject: [PATCH] (elmo-folder-expand-msgdb-path): Changed msgdb path for the
 localdir folder with absolute path.

---
 elmo/elmo-localdir.el |   35 +++++++++++++++++++----------------
 1 file changed, 19 insertions(+), 16 deletions(-)

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 4ddf9ec..fe83718 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -86,22 +86,25 @@
 
 (luna-define-method elmo-folder-expand-msgdb-path ((folder
 						    elmo-localdir-folder))
-  (expand-file-name
-   (mapconcat
-    'identity
-    (delete ""
-	    (mapcar
-	     'elmo-replace-string-as-filename
-	     (split-string
-	      (let ((dir-name (elmo-localdir-folder-dir-name-internal folder)))
-		(if (file-name-absolute-p dir-name)
-		    (expand-file-name dir-name)
-		  dir-name))
-	      "/")))
-    "/")
-   (expand-file-name ;;"localdir"
-    (symbol-name (elmo-folder-type-internal folder))
-    elmo-msgdb-directory)))
+  (let* ((dir-name (elmo-localdir-folder-dir-name-internal folder))
+	 (path (mapconcat
+		'identity
+		(delete ""
+			(mapcar
+			 'elmo-replace-string-as-filename
+			 (split-string
+			  (if (file-name-absolute-p dir-name)
+			      (expand-file-name dir-name)
+			    dir-name)
+			  "/")))
+		"/")))
+    (expand-file-name
+     path
+     (expand-file-name ;;"localdir" or "localdir-abs"
+      (concat
+       (symbol-name (elmo-folder-type-internal folder))
+       (when (file-name-absolute-p dir-name) "-abs"))
+      elmo-msgdb-directory))))
 
 (luna-define-method elmo-message-file-name ((folder
 					     elmo-localdir-folder)
-- 
1.7.10.4