* wl-draft.el (wl-draft-config-body-goto-header)

(wl-draft-body-goto-top, wl-draft-body-goto-bottom): Change from macro to function.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0b54d3f..d5672ed 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2010-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * wl-draft.el (wl-draft-config-body-goto-header)
+       (wl-draft-body-goto-top, wl-draft-body-goto-bottom): Change from
+       macro to function.
+
        * wl-score.el (wl-score-get-alike, wl-score-put-alike): Change
        from macro to inline-function.
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 37d8f63..4ebc129 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1998,22 +1998,20 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
     (goto-char (point-max))
     buffer))
 
-(defmacro wl-draft-body-goto-top ()
-  `(progn
-     (goto-char (point-min))
-     (if (re-search-forward mail-header-separator nil t)
-        (forward-char 1)
-       (goto-char (point-max)))))
-
-(defmacro wl-draft-body-goto-bottom ()
-  `(goto-char (point-max)))
-
-(defmacro wl-draft-config-body-goto-header ()
-  `(progn
-     (goto-char (point-min))
-     (if (re-search-forward mail-header-separator nil t)
-        (beginning-of-line)
-       (goto-char (point-max)))))
+(defun wl-draft-body-goto-top ()
+  (goto-char (point-min))
+  (if (re-search-forward mail-header-separator nil t)
+      (forward-char 1)
+    (goto-char (point-max))))
+
+(defun wl-draft-body-goto-bottom ()
+  (goto-char (point-max)))
+
+(defun wl-draft-config-body-goto-header ()
+  (goto-char (point-min))
+  (if (re-search-forward mail-header-separator nil t)
+      (beginning-of-line)
+    (goto-char (point-max))))
 
 (defsubst wl-draft-config-sub-eval-insert (content &optional newline)
   (let (content-value)