From: kaoru <kaoru>
Date: Mon, 26 Aug 2002 12:10:06 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-insert-x-face-field): Use `goto-char'
X-Git-Tag: elmo-mark-root~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d607f2aa98d0e6683f78e487e19279b300241a49;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-insert-x-face-field): Use `goto-char'
instead of `beginning-of-buffer'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d35e576..565c24e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-draft.el (wl-draft-insert-x-face-field): Use `goto-char'
+	instead of `beginning-of-buffer'.
+
 2002-08-22  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* wl-xmas.el (wl-message-wheel-down): Fix parentheses.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 9db958a..05d6955 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -191,7 +191,7 @@
   (interactive)
   (if (not (file-exists-p wl-x-face-file))
       (error "File %s does not exist" wl-x-face-file)
-    (beginning-of-buffer)
+    (goto-char (point-min))
     (search-forward mail-header-separator nil t)
     (beginning-of-line)
     (wl-draft-insert-x-face-field-here)