X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=wl%2Fwl-score.el;h=18266406c39e1657dc65ccf13893da038d1d3461;hb=9e39553b80115a949a7f04ddced4459a7797f8bd;hp=e3676e8e632918fb3540e6f87dfcec156b4bc9e6;hpb=fd44e582ccc0cb3d87ac3ddfe83f49203326c534;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-score.el b/wl/wl-score.el
index e3676e8..1826640 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -310,12 +310,12 @@ Set `wl-score-cache' nil."
 		(or (and (string-match
 			  (concat "^" (regexp-quote
 				       (expand-file-name
-					wl-score-files-dir)))
+					wl-score-files-directory)))
 			  (expand-file-name file))
 			 file)
 		    (expand-file-name
 		     file
-		     (file-name-as-directory wl-score-files-dir)))))
+		     (file-name-as-directory wl-score-files-directory)))))
 	 (cached (assoc file wl-score-cache))
 	 alist)
     (if cached
@@ -859,7 +859,7 @@ Set `wl-score-cache' nil."
 (defun wl-score-change-score-file (file)
   "Change current score alist."
   (interactive
-   (list (read-file-name "Change to score file: " wl-score-files-dir)))
+   (list (read-file-name "Change to score file: " wl-score-files-directory)))
   (wl-score-load-file file))
 
 (defun wl-score-default (level)
@@ -1287,7 +1287,7 @@ Set `wl-score-cache' nil."
 (defun wl-score-edit-file (file)
   "Edit a score FILE."
   (interactive
-   (list (read-file-name "Edit score file: " wl-score-files-dir)))
+   (list (read-file-name "Edit score file: " wl-score-files-directory)))
   (when (wl-collect-summary)
     (wl-score-save))
   (let ((winconf (current-window-configuration))