From: okazaki <okazaki>
Date: Wed, 28 Feb 2001 04:04:08 +0000 (+0000)
Subject: * wl-mime.el (wl-draft-preview-message): Use `function' instead of
X-Git-Tag: wl-2_6-root~70
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aa46f762c495ae11d913cc96ede96e6184fcfa68;p=elisp%2Fwanderlust.git

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