From: okazaki <okazaki>
Date: Sun, 21 May 2000 14:55:32 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-buffer-cur-path): Make buffer-local.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d20b580b8fd0a5a9460be418bc2f44e7e0d9c5a3;p=elisp%2Fwanderlust.git

* 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
--- 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")