From: yoichi <yoichi>
Date: Thu, 30 Jan 2003 07:08:15 +0000 (+0000)
Subject: * wl-thread.el (wl-thread-save-entities): Bind print-length
X-Git-Tag: wl-2_10_1pre~39
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=75a19dc33dae49b83ee0cb0f9689e3043be239a2;p=elisp%2Fwanderlust.git

* wl-thread.el (wl-thread-save-entities): Bind print-length
and print-level.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 737001c..fae2eb2 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-30  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-thread.el (wl-thread-save-entities): Bind print-length
+	and print-level.
+
 2003-01-29  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-thread.el (wl-thread-save-top-list): Bind print-length.
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 2391cae..4d81e45 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -133,7 +133,8 @@
 (defun wl-thread-save-entities (dir)
   (let ((top-file (expand-file-name wl-thread-entity-file dir))
 	(entities wl-thread-entities)
-	(tmp-buffer (get-buffer-create " *wl-thread-save-entities*")))
+	(tmp-buffer (get-buffer-create " *wl-thread-save-entities*"))
+	print-length print-level)
     (save-excursion
       (set-buffer tmp-buffer)
       (erase-buffer)