From: yoichi <yoichi>
Date: Wed, 29 Jan 2003 08:49:42 +0000 (+0000)
Subject: * wl-news.el.in (wl-news-previous-version-save): Bind
X-Git-Tag: merged-trunk-to-elmo-mark-14~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e8f7c4764d01e2d3e71e6351ac3684ea7a7e1257;p=elisp%2Fwanderlust.git

* wl-news.el.in (wl-news-previous-version-save): Bind
print-length and print-level.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f748308..b989ed3 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2003-01-29  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+	* 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.
 
 2003-01-28  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
diff --git a/wl/wl-news.el.in b/wl/wl-news.el.in
index b76046e..dee1fbd 100644
--- a/wl/wl-news.el.in
+++ b/wl/wl-news.el.in
@@ -93,7 +93,8 @@
     (let ((filename (expand-file-name
 		     wl-news-version-file-name
 		     elmo-msgdb-directory))
-	  (tmp-buffer (get-buffer-create " *wl-news-version-tmp*")))
+	  (tmp-buffer (get-buffer-create " *wl-news-version-tmp*"))
+	  print-length print-level)
       (set-buffer tmp-buffer)
       (erase-buffer)
       (prin1 (cons current-version previous-version) tmp-buffer)