Re: Gnus ignores exit value of `sendmail-program'

"Jason R. Mastaler" <jason(a)mastaler.com&gt; writes: Kai applied the following to Oort Gnus. AFAIK nothing is committed to XEmacs yet, but I may be wrong. Does this work? If not, does it work when setting `message-interactive' to non-nil? Index: message.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v retrieving revision 6.228 retrieving revision 6.231 diff -u -p -u -w -r6.228 -r6.231 --- message.el 2002/04/21 02:42:45 6.228 +++ message.el 2002/06/05 11:51:09 6.231 ＠＠ -2993,6 +2993,7 ＠＠ If you always want Gnus to send messages (erase-buffer)))) (let ((default-directory "/") (coding-system-for-write message-send-coding-system)) + (let ((cpr (apply 'call-process-region (append (list (point-min) (point-max) (if (boundp 'sendmail-program) ＠＠ -3015,7 +3016,9 ＠＠ If you always want Gnus to send messages ;; For a resend, include the specific addresses. (if resend-to-addresses (list resend-to-addresses) - '("-t"))))) + '("-t")))))) + (unless (or (null cpr) (zerop cpr)) + (error "Sending...failed: %s" cpr)))) (when message-interactive (save-excursion (set-buffer errbuf)