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