X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-sendlog.el;h=87885fbb7633edf555b967f9ee26ea769d134fa4;hb=9e39553b80115a949a7f04ddced4459a7797f8bd;hp=79be0271330a9e18d8981b5168754268f967af86;hpb=fd44e582ccc0cb3d87ac3ddfe83f49203326c534;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-sendlog.el b/elmo/elmo-sendlog.el
index 79be027..87885fb 100644
--- a/elmo/elmo-sendlog.el
+++ b/elmo/elmo-sendlog.el
@@ -47,7 +47,7 @@
 (luna-define-method elmo-folder-expand-msgdb-path ((folder elmo-sendlog-folder))
   (expand-file-name "sendlog"
 		    (expand-file-name "internal"
-				      elmo-msgdb-dir)))
+				      elmo-msgdb-directory)))
 
 (luna-define-method elmo-map-folder-list-message-locations
   ((folder elmo-sendlog-folder))
@@ -55,13 +55,13 @@
 
 (defun elmo-sendlog-folder-list-message-locations (folder)
   (let ((filename (expand-file-name elmo-sendlog-filename
-				    elmo-msgdb-dir))
+				    elmo-msgdb-directory))
 	result)
     (if (not (file-readable-p filename))
-        nil
+	nil
       (elmo-set-work-buf
        (as-binary-input-file
-        (insert-file-contents filename))
+	(insert-file-contents filename))
        (goto-char (point-min))
        (catch 'done
 	 (while t
@@ -205,4 +205,4 @@
 (require 'product)
 (product-provide (provide 'elmo-sendlog) (require 'elmo-version))
 
-;;; elmo-sendlog.el ends here
\ No newline at end of file
+;;; elmo-sendlog.el ends here