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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b989ed3..054dd81 100644 (file)
--- 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 (file)
--- 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)