X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-draft.el;h=adeb247544b7b69fe19b15ee92331d1a4a12037d;hb=11a0b35d8be2879888e135b4e00f6ca131e07d73;hp=3d16f709eb0fdb1ab598994780b3a1b393398fd6;hpb=027c8139d72c3766b9d0b20496c736bebaceb64a;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 3d16f70..adeb247 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -476,13 +476,23 @@ Reply to author if WITH-ARG is non-nil."
 		    (cons 'Mail-Followup-To mail-followup-to))
 	      nil nil nil nil parent-folder)
     (setq wl-draft-reply-buffer buf)
-    (run-hooks 'wl-reply-hook)
-    (or (and to
-	     (progn (mail-position-on-field "To")
-		    (wl-draft-beginning-of-line)))
-	(and newsgroups
-	     (progn (mail-position-on-field "Newsgroups")
-		    (wl-draft-beginning-of-line))))))
+    (run-hooks 'wl-reply-hook)))
+
+(defun wl-draft-reply-position (position)
+  (cond ((eq position 'body)
+	 (wl-draft-body-goto-top))
+	((eq position 'bottom)
+	 (wl-draft-body-goto-bottom))
+	((eq position 'top)
+	 (goto-char (point-min)))
+	((and (stringp position)
+	      (std11-field-body position))
+	 (progn (mail-position-on-field position)
+		(wl-draft-beginning-of-line)))
+	((listp position)
+	 (while (car position)
+	   (wl-draft-reply-position (car position))
+	   (setq position (cdr position))))))
 
 (defun wl-draft-add-references ()
   (wl-draft-add-in-reply-to "References"))