From: yoichi <yoichi>
Date: Wed, 29 Jan 2003 07:12:40 +0000 (+0000)
Subject: * elmo/elmo-util.el (elmo-object-save): Bind print-level, print-length.
X-Git-Tag: wl-2_10_1pre~42
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7cad3414147330803454c8b77d7ffe6da6b0f2da;p=elisp%2Fwanderlust.git

* elmo/elmo-util.el (elmo-object-save): Bind print-level, print-length.
(elmo-passwd-alist-save): Ditto.
* elmo/elmo-database.el (elmo-database-msgid-put): Bind print-length.
* wl-thread.el (wl-thread-save-top-list): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ecbdbf1..931a9eb 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2003-01-29  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* elmo-util.el (elmo-object-save): Bind print-level, print-length.
+	(elmo-passwd-alist-save): Ditto.
+	* elmo-database.el (elmo-database-msgid-put): Bind print-length.
+
 2003-01-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* elmo-pipe.el (elmo-folder-pack-numbers): Disabled since msgdb of
diff --git a/elmo/elmo-database.el b/elmo/elmo-database.el
index 55bf2de..22a3912 100644
--- a/elmo/elmo-database.el
+++ b/elmo/elmo-database.el
@@ -50,7 +50,8 @@
 
 (defun elmo-database-msgid-put (msgid folder number)
   (let ((db (elmo-database-get 'elmo-database-msgid
-			       elmo-database-msgid-filename)))
+			       elmo-database-msgid-filename))
+	print-length)
     (and msgid db
 	 (progn
 	   (remove-database msgid db)
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index ce73b71..650fd1a 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -132,7 +132,8 @@ File content is encoded with MIME-CHARSET."
 Directory of the file is created if it doesn't exist.
 File content is encoded with MIME-CHARSET."
   (elmo-set-work-buf
-   (prin1 object (current-buffer))
+   (let (print-length print-level)
+     (prin1 object (current-buffer)))
 ;;;(princ "\n" (current-buffer))
    (elmo-save-buffer filename mime-charset)))
 
@@ -417,7 +418,8 @@ Return value is a cons cell of (STRUCTURE . REST)"
   (save-excursion
     (let ((filename (expand-file-name elmo-passwd-alist-file-name
 				      elmo-msgdb-directory))
-	  (tmp-buffer (get-buffer-create " *elmo-passwd-alist-tmp*")))
+	  (tmp-buffer (get-buffer-create " *elmo-passwd-alist-tmp*"))
+	  print-length print-level)
       (set-buffer tmp-buffer)
       (erase-buffer)
       (prin1 elmo-passwd-alist tmp-buffer)
diff --git a/wl/ChangeLog b/wl/ChangeLog
index faac845..737001c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-29  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-thread.el (wl-thread-save-top-list): Bind print-length.
+
 2003-01-14  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-summary.el (wl-summary-exec-subr): Unset wl-message-buffer if
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 5e5bca3..2391cae 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -119,7 +119,8 @@
 (defun wl-thread-save-top-list (dir)
   (let ((top-file (expand-file-name wl-thread-entity-list-file dir))
 	(entity wl-thread-entity-list)
-	(tmp-buffer (get-buffer-create " *wl-thread-save-top-list*")))
+	(tmp-buffer (get-buffer-create " *wl-thread-save-top-list*"))
+	print-length)
     (save-excursion
       (set-buffer tmp-buffer)
       (erase-buffer)