Synch up with main trunk and so on.

[elisp/wanderlust.git] / wl / wl-mime.el

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 8eeba59..7126d25 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))