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