From: teranisi <teranisi>
Date: Thu, 27 Dec 2001 03:38:51 +0000 (+0000)
Subject: * elmo-nmz.el (elmo-nmz-msgdb-create-entity): Use expand-file-name.
X-Git-Tag: wl-2_8_0~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a69d60c2408bf7929620f84629382eea28c7ff82;p=elisp%2Fwanderlust.git

* elmo-nmz.el (elmo-nmz-msgdb-create-entity): Use expand-file-name.
(elmo-map-message-fetch): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b42ddc8..fc5ab4a 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -3,6 +3,8 @@
 	* elmo-nmz.el (elmo-nmz-use-drive-letter): New variable.
 	(elmo-map-folder-list-message-locations): Do drive letter conversion
 	on Windows environment.
+	(elmo-nmz-msgdb-create-entity): Use expand-file-name.
+	(elmo-map-message-fetch): Ditto.
 
 2001-12-27  Kenichi OKADA  <okada@opaopa.org>
 
diff --git a/elmo/elmo-nmz.el b/elmo/elmo-nmz.el
index 1d74132..d603b0d 100644
--- a/elmo/elmo-nmz.el
+++ b/elmo/elmo-nmz.el
@@ -100,7 +100,7 @@ If the value is a list, all elements are used as index paths for namazu."
 
 (defun elmo-nmz-msgdb-create-entity (folder number)
   "Create msgdb entity for the message in the FOLDER with NUMBER."
-  (let ((location (elmo-map-message-location folder number))
+  (let ((location (expand-file-name (elmo-map-message-location folder number)))
 	entity uid)
     (setq entity (elmo-msgdb-create-overview-entity-from-file number location))
     (unless (or (> (length (elmo-msgdb-overview-entity-get-to entity)) 0)
@@ -194,14 +194,14 @@ If the value is a list, all elements are used as index paths for namazu."
 					    &optional section unseen)
   (when (file-exists-p location)
     (prog1
-	(insert-file-contents-as-binary location)
+	(insert-file-contents-as-binary (expand-file-name location))
       (unless (or (std11-field-body "To")
 		  (std11-field-body "Cc")
 		  (std11-field-body "Subject"))
 	(let (charset guess uid)
 	  (erase-buffer)
 	  (set-buffer-multibyte t)
-	  (insert-file-contents location)
+	  (insert-file-contents (expand-file-name location))
 	  (setq charset (detect-mime-charset-region (point-min)
 						    (point-max)))
 	  (goto-char (point-min))