* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)