From aa46f762c495ae11d913cc96ede96e6184fcfa68 Mon Sep 17 00:00:00 2001 From: okazaki Date: Wed, 28 Feb 2001 04:04:08 +0000 Subject: [PATCH] * wl-mime.el (wl-draft-preview-message): Use `function' instead of simple quotation to quote the anonymous function. * tm-wl.el (wl-draft-preview-message): Ditto. --- wl/tm-wl.el | 6 ++++-- wl/wl-mime.el | 8 +++++--- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/wl/tm-wl.el b/wl/tm-wl.el index cfbc754..565f823 100644 --- a/wl/tm-wl.el +++ b/wl/tm-wl.el @@ -68,7 +68,9 @@ By setting following-method as yank-content." (mime-viewer/ignored-field-regexp "^:$") (mime-editor/translate-buffer-hook (append - '((lambda () + (list + (function + (lambda () (let ((wl-draft-config-exec-flag config-exec-flag)) (run-hooks 'wl-draft-send-hook) (setq recipients-message @@ -86,7 +88,7 @@ By setting following-method as yank-content." "$") nil t) (point))) - ", ")))))) + ", "))))))) mime-editor/translate-buffer-hook))) (mime-editor/preview-message) (let ((buffer-read-only nil)) diff --git a/wl/wl-mime.el b/wl/wl-mime.el index 833954a..285fee4 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -74,10 +74,12 @@ By setting following-method as yank-content." (let* (recipients-message (config-exec-flag wl-draft-config-exec-flag) (mime-display-header-hook 'wl-highlight-headers) - mime-view-ignored-field-list ; all header. + mime-view-ignored-field-list ; all header. (mime-edit-translate-buffer-hook (append - '((lambda () + (list + (function + (lambda () (let ((wl-draft-config-exec-flag config-exec-flag)) (run-hooks 'wl-draft-send-hook) (setq recipients-message @@ -96,7 +98,7 @@ By setting following-method as yank-content." "$") nil t) (point))) - ", ")))))) + ", "))))))) mime-edit-translate-buffer-hook))) (mime-edit-preview-message) (let ((buffer-read-only nil)) -- 1.7.10.4