;;; Code:
+(eval-when-compile (require 'cl))
(require 'nnoo)
(require 'message)
(insert mail-header-separator "\n")
(widen)
(let (message-required-mail-headers)
- (funcall message-send-mail-function))))))
+ (funcall message-send-mail-function))
+ t))))
;;; Internal functions
(message-remove-header "to")
(message-remove-header "cc")
(goto-char (point-min))
- (insert "To: mail2news@" gateway "\n"))
+ (insert "To: " gateway "\n"))
(nnoo-define-skeleton nngateway)