From: yoichi <yoichi>
Date: Wed, 29 Jan 2003 08:58:38 +0000 (+0000)
Subject: * wl-thread.el (wl-thread-save-entities): Bind print-length,print-level.
X-Git-Tag: merged-trunk-to-elmo-mark-14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5c49b43664090da0f90f5a74e41388ac8b2b4f7b;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b989ed3..054dd81 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -2,7 +2,8 @@
 
 	* wl-news.el.in (wl-news-previous-version-save): Bind
 	print-length and print-level.
-	* wl-thread.el (wl-thread-save-top-list): Bind print-length.
+	* wl-thread.el (wl-thread-save-entities): Ditto.
+	(wl-thread-save-top-list): Bind print-length.
 
 2003-01-28  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index cb84a85..9edf4a7 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)