From 7cad3414147330803454c8b77d7ffe6da6b0f2da Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 29 Jan 2003 07:12:40 +0000 Subject: [PATCH] * 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. --- elmo/ChangeLog | 6 ++++++ elmo/elmo-database.el | 3 ++- elmo/elmo-util.el | 6 ++++-- wl/ChangeLog | 4 ++++ wl/wl-thread.el | 3 ++- 5 files changed, 18 insertions(+), 4 deletions(-) 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 + + * 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 * 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 + + * wl-thread.el (wl-thread-save-top-list): Bind print-length. + 2003-01-14 Yoichi NAKAYAMA * 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) -- 1.7.10.4