From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 13:13:55 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-config-body-goto-header)
X-Git-Tag: elmo-imap4-compliance-root~62
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a20d292f67aabe5f82597c33a70c3740d588ace0;p=elisp%2Fwanderlust.git

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