From: yoichi <yoichi>
Date: Wed, 29 Jan 2003 06:50:43 +0000 (+0000)
Subject: * elmo/elmo-util.el (elmo-object-save): Bind print-level, print-length.
X-Git-Tag: merged-trunk-to-elmo-mark-14~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=65ba135032b2614fa07c206f8cd2d8a48ba8b9e3;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 6b12cb4..5250c22 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-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* elmo-localdir.el (elmo-folder-expand-msgdb-path): Expand
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 5baa4b7..b468759 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -130,7 +130,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)))
 
@@ -415,7 +416,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 4445582..f748308 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-28  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-highlight.el (wl-highlight-summary-line-string): Use
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index c12135f..cb84a85 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)