* 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 (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-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 (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 5baa4b7..b468759 100644 (file)
--- 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 (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-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 (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)