* wl-score.el (wl-score-save): Bind print-length and print-level.

(wl-score-pretty-print): Ditto.
(wl-score-edit-insert-header-entry): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index aa826ab..5a0483a 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2003-02-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+       * wl-score.el (wl-score-save): Bind print-length and print-level.
+       (wl-score-pretty-print): Ditto.
+       (wl-score-edit-insert-header-entry): Ditto.
+
        * wl-draft.el (wl-draft-send): Remove duplicate "Bcc" and add
        "From" entry to be treated with wl-draft-eword-encode-address-list.
        * wl-mime.el (wl-draft-preview-message): Ditto.

diff --git a/wl/wl-score.el b/wl/wl-score.el
index bddb74a..a3eb67b 100644 (file)
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -283,7 +283,8 @@ Set `wl-score-cache' nil."
          (setq score (setcdr entry (wl-delete-alist 'touched score)))
          (erase-buffer)
          (let (emacs-lisp-mode-hook
-               (lisp-mode-syntax-table wl-score-mode-syntax-table))
+               (lisp-mode-syntax-table wl-score-mode-syntax-table)
+               print-length print-level)
            (pp score (current-buffer)))
          (setq dir (file-name-directory file))
          (if (file-directory-p dir)
@@ -1371,7 +1372,8 @@ Entering Score mode calls the value of `wl-score-mode-hook'."
   (goto-char (point-min))
   (let ((form (read (current-buffer))))
     (erase-buffer)
-    (let ((emacs-lisp-mode-syntax-table wl-score-mode-syntax-table))
+    (let ((emacs-lisp-mode-syntax-table wl-score-mode-syntax-table)
+         print-length print-level)
       (pp form (current-buffer))))
   (goto-char (point-min)))
 
@@ -1468,7 +1470,8 @@ Entering Score mode calls the value of `wl-score-mode-hook'."
          (wl-score-update-score-entry (car entry) (nth 1 entry) form)
        (setq form (list entry)))
       (erase-buffer)
-      (let ((emacs-lisp-mode-syntax-table wl-score-mode-syntax-table))
+      (let ((emacs-lisp-mode-syntax-table wl-score-mode-syntax-table)
+           print-length print-level)
        (pp form (current-buffer)))
       (goto-char (point-min)))))