2004-05-18 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * message.el (message-fill-field): Return point.
+ (message-generate-headers): Go to end of field.
+
* gnus-start.el (gnus-get-unread-articles-in-group): Don't do
stuff for non-living groups.
(if formatter
(funcall formatter header value)
(insert header-string ": " value))
- (message-fill-field)
+ (goto-char (message-fill-field))
;; We check whether the value was ended by a
- ;; newline. If now, we insert one.
+ ;; newline. If not, we insert one.
(unless (bolp)
(insert "\n"))
(forward-line -1)))
(message-narrow-to-field)
(let ((field-name (message-field-name)))
(funcall (or (cadr (assq field-name message-field-fillers))
- 'message-fill-field-general))))))
+ 'message-fill-field-general)))
+ (point-max))))
(defun message-fill-field-address ()
(while (not (eobp))