From 65ba135032b2614fa07c206f8cd2d8a48ba8b9e3 Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 29 Jan 2003 06:50:43 +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 6b12cb4..5250c22 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-17 Yoichi NAKAYAMA * 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 + + * wl-thread.el (wl-thread-save-top-list): Bind print-length. + 2003-01-28 Yoichi NAKAYAMA * 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) -- 1.7.10.4