* wl-folder.el (wl-folder-buffer-cur-path): Make buffer-local.

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 5614345..796fb2f 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -81,13 +81,16 @@
 (defvar wl-folder-queue-glyph nil)
 
 (defvar wl-folder-buffer-disp-summary nil)
-(make-variable-buffer-local 'wl-folder-buffer-disp-summary)
 (defvar wl-folder-buffer-cur-entity-id nil)
-(make-variable-buffer-local 'wl-folder-buffer-cur-entity-id)
 (defvar wl-folder-buffer-cur-path nil)
-(make-variable-buffer-local 'wl-folder-buffer-cur-entity-id)
 (defvar wl-folder-buffer-cur-point nil)
-(make-variable-buffer-local 'wl-folder-buffer-cur-point)
+
+(mapcar
+ (function make-variable-buffer-local)
+ (list 'wl-folder-buffer-disp-summary
+       'wl-folder-buffer-cur-entity-id
+       'wl-folder-buffer-cur-path
+       'wl-folder-buffer-cur-point))
 
 (defconst wl-folder-entity-regexp "^\\([ ]*\\)\\(\\[[\\+-]\\]\\)?\\([^\\[].+\\):[-*0-9]+/[-*0-9]+/[-*0-9]+")
 (defconst wl-folder-group-regexp  "^\\([ ]*\\)\\[\\([\\+-]\\)\\]\\(.+\\):[-0-9-]+/[0-9-]+/[0-9-]+\n")