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