From: teranisi <teranisi>
Date: Thu, 17 Jul 2003 11:47:53 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-normal-send-func): Fixed last change.
X-Git-Tag: elmo-mark-restart~39
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c564e8a794d7585299d33e75cbe38c8b2af966af;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-normal-send-func): Fixed last change.

* wl-action.el (wl-summary-define-mark-action): Fixed region function.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f86443e..7bc3961 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2003-07-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-draft.el (wl-draft-normal-send-func): Fixed last change.
+
+	* wl-action.el (wl-summary-define-mark-action): Fixed region function.
+
 	* wl-summary.el (wl-summary-set-message-modified): 
 	Call wl-summary-set-mark-modified.
 	(wl-summary-delete-messages-on-buffer): Call
diff --git a/wl/wl-action.el b/wl/wl-action.el
index 232d4da..2923b79 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -358,9 +358,10 @@ Return number if put mark succeed"
 	      (quote ,(intern (format "wl-summary-%s"
 				      (wl-summary-action-symbol action))))
 	      beg end
-	      (if ,(wl-summary-action-argument-function action)
-		  (funcall ,(wl-summary-action-argument-function action)
-			   ,(wl-summary-action-symbol action)
+	      (if (quote ,(wl-summary-action-argument-function action))
+		  (funcall (function 
+			    ,(wl-summary-action-argument-function action))
+			   (quote ,(wl-summary-action-symbol action))
 			   (wl-summary-message-number))))))
     (fset (intern (format "wl-summary-target-mark-%s"
 			  (wl-summary-action-symbol action)))
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 7bcd3a6..c9aded1 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1157,6 +1157,7 @@ If FORCE-MSGID, insert message-id regardless of `wl-insert-message-id'."
 			   nil t)
 			  (match-beginning 0)
 			(point-max)))
+    (wl-draft-insert-required-fields)
     ;; ignore any blank lines in the header
     (while (progn (goto-char (point-min))
 		  (re-search-forward "\n[ \t]*\n\n*" nil t))