From 96df606cbcfbc104d8b92416b94eeefffe1db9ef Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 27 Dec 2001 03:38:27 +0000 Subject: [PATCH] * elmo-nmz.el (elmo-nmz-msgdb-create-entity): Use expand-file-name. (elmo-map-message-fetch): Ditto. --- elmo/ChangeLog | 2 ++ elmo/elmo-nmz.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index d63e337..1bc6413 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 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)) -- 1.7.10.4