- (when (let ((mail-header-separator ""))
- (cond ((eq type 'news)
- (mime-edit-maybe-split-and-send
- (function
- (lambda ()
- (interactive)
- (funcall message-send-news-function method))))
- (funcall message-send-news-function method))
- ((eq type 'mail)
- (mime-edit-maybe-split-and-send
- (function
- (lambda ()
- (interactive)
- (funcall message-send-mail-function))))
- (funcall message-send-mail-function)
- t)))
+ (when (and (or (null method)
+ (gnus-server-opened method)
+ (gnus-open-server method))
+ (if type
+ (let ((message-this-is-news (eq type 'news))
+ (message-this-is-mail (eq type 'mail))
+ (gnus-post-method method)
+ (message-post-method method))
+ (message-send-and-exit))
+ (message-send-and-exit)))