(goto-char (point-max))
(unless (bolp)
(insert "\n"))
+ (save-restriction
+ (message-narrow-to-headers)
+ (rfc2047-encode-message-header))
+ (message-encode-message-body)
(let ((func (car (or gnus-command-method
(gnus-find-method-for-group group)))))
(funcall (intern (format "%s-request-accept-article" func))
last)))
(defun gnus-request-replace-article (article group buffer)
+ (save-restriction
+ (message-narrow-to-headers)
+ (rfc2047-encode-message-header))
+ (message-encode-message-body)
(let ((func (car (gnus-group-name-to-method group))))
(funcall (intern (format "%s-request-replace-article" func))
article (gnus-group-real-name group) buffer)))