* 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.

diff --git a/wl/tm-wl.el b/wl/tm-wl.el
index cfbc754..565f823 100644 (file)
--- 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 (file)
--- 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))