projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* wl-acap.el (wl-acap-original-msgdb-directory): Renamed from
[elisp/wanderlust.git]
/
wl
/
wl-score.el
diff --git
a/wl/wl-score.el
b/wl/wl-score.el
index
e3676e8
..
1826640
100644
(file)
--- 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
(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
(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
(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
(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)
(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
(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))
(when (wl-collect-summary)
(wl-score-save))
(let ((winconf (current-window-configuration))