From: yoichi <yoichi>
Date: Sat, 8 Feb 2003 06:55:24 +0000 (+0000)
Subject: * wl-score.el (wl-score-save): Bind print-length and print-level.
X-Git-Tag: wl-2_10_1pre~31
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=468129524f307581af6fc4aa312de94524e86854;p=elisp%2Fwanderlust.git

* 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/ChangeLog b/wl/ChangeLog
index 73f01a2..f68c372 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,13 @@
+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.
+
 2003-02-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-folder.el (wl-folder-get-prev-folder): Ignore Nemacs; Use `eq'
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 5eba4a1..9e3c9dd 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1286,7 +1286,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 	    (let ((mime-header-encode-method-alist
 		   (append
 		    '((wl-draft-eword-encode-address-list
-		       .  (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc)))
+		       .  (To Cc Bcc Resent-To Resent-Cc Resent-Bcc From)))
 		    (if (boundp 'mime-header-encode-method-alist)
 			(symbol-value 'mime-header-encode-method-alist)))))
 	      (run-hooks 'mail-send-hook) ; translate buffer
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 19e2fc0..bcd10d9 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -147,7 +147,7 @@ It calls following-method selected from variable
 	 (mime-header-encode-method-alist
 	  (append
 	   '((wl-draft-eword-encode-address-list
-	      .  (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc)))
+	      .  (To Cc Bcc Resent-To Resent-Cc Resent-Bcc From)))
 	   (if (boundp 'mime-header-encode-method-alist)
 	       (symbol-value 'mime-header-encode-method-alist))))
 	 mime-view-ignored-field-list	; all header.
diff --git a/wl/wl-score.el b/wl/wl-score.el
index bddb74a..a3eb67b 100644
--- 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)))))