[mhc:02190] ドラフト作成時のカーソル位置

[MLB33828@xxxxxxxxx]

橘と申します。

Emacs で新規スケジュール作成/スケジュール修正の際に
ヘッダセパレータの次のラインにカーソルを持ってこようとして
.emacs に以下の記述を行いましたが、
バッファの先頭にカーソルが移動してしまい期待した動作にはなりませんでした。
＃MUA は Mew を使用しています。

(add-hook 'mhc-draft-mode-hook
          (lambda ()
            (goto-char (mew-header-end))
            (forward-line 1)))

mhc-edit, mhc-modify-file 中で mhc-draft-mode をコールした直後に
(goto-char (point-min)) しているのが原因のようですが、
添付ファイルのように mhc-draft-mode の最後で (goto-char (point-min)) を行うと
何か問題がありますでしょうか?

===============================
  橘 和(Wataru Tachibana)
  E-mail : MLB33828@xxxxxxxxx
===============================

cvs diff: Diffing emacs
Index: emacs/mhc-draft.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-draft.el,v
retrieving revision 1.8
diff -u -r1.8 mhc-draft.el
--- emacs/mhc-draft.el	4 Oct 2005 08:52:44 -0000	1.8
+++ emacs/mhc-draft.el	23 Mar 2006 15:45:26 -0000
@@ -110,7 +110,8 @@
 	(concat "[ \t]*[-a-z0-9A-Z]*\\(>[ \t]*\\)+[ \t]*\\|"
 		adaptive-fill-first-line-regexp))
   (mhc-highlight-message t)
-  (set (make-local-variable 'indent-tabs-mode) nil))
+  (set (make-local-variable 'indent-tabs-mode) nil)
+  (goto-char (point-min)))
 
 (defun mhc-draft-kill (&optional no-confirm)
   "Kill current draft.
Index: emacs/mhc.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc.el,v
retrieving revision 1.90
diff -u -r1.90 mhc.el
--- emacs/mhc.el	4 Dec 2005 15:48:59 -0000	1.90
+++ emacs/mhc.el	23 Mar 2006 15:45:26 -0000
@@ -767,7 +767,6 @@
 		  "\nX-SC-Alarm: " (or alarm "")
 		  "\nX-SC-Record-Id: " (mhc-record-create-id) "\n")
 	  (mhc-draft-mode)
-	  (goto-char (point-min))
 	  succeed))))
 
 (defcustom mhc-default-import-original-article nil
@@ -885,7 +884,6 @@
 	  (set-buffer-modified-p nil)
 	  (switch-to-buffer-other-window buffer)
 	  (mhc-draft-mode)
-	  (goto-char (point-min))
 	  (set (make-local-variable 'mhc-draft-buffer-file-name) file)))
     (message "Specified file(%s) does not exist." file)))