From a20d292f67aabe5f82597c33a70c3740d588ace0 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 1 Jan 2010 13:13:55 +0000 Subject: [PATCH] * 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/ChangeLog | 4 ++++ wl/wl-draft.el | 30 ++++++++++++++---------------- 2 files changed, 18 insertions(+), 16 deletions(-) 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 + * 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) -- 1.7.10.4