From 468129524f307581af6fc4aa312de94524e86854 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 8 Feb 2003 06:55:24 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 10 ++++++++++ wl/wl-draft.el | 2 +- wl/wl-mime.el | 2 +- wl/wl-score.el | 9 ++++++--- 4 files changed, 18 insertions(+), 5 deletions(-) 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 + + * 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 * 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))))) -- 1.7.10.4