Re: Gnus ignores exit value of `sendmail-program'
"Jason R. Mastaler" <jason(a)mastaler.com> writes:
Simon Josefsson <jas(a)extundo.com> writes:
> Tres weird.
Why, does it work for you?
Yes.
> Can you perhaps edebug message-send-mail-with-sendmail to see
what
> happens?
I did this, but I'm not sure what you are looking for.
I think you'll find this easier to debug yourself. It's pretty easy
to simulate.
In your .gnus:
(setq sendmail-program "/tmp/exit1")
/tmp/exit1:
#!/bin/sh
exit 1
I get "Sending...failed: 1" in the minibuffer. I tried Kai's original
patch, and I tried the following (which I suggest is applied) against
the Gnus XEmacs package. Both worked as expected.
Index: message.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/gnus/lisp/message.el,v
retrieving revision 1.25
diff -u -p -u -w -r1.25 message.el
--- message.el 2001/02/08 08:57:19 1.25
+++ message.el 2002/06/06 10:22:45
＠＠ -236,7 +236,7 ＠＠ any confusion."
:type 'string
:group 'message-various)
-(defcustom message-interactive nil
+(defcustom message-interactive t
"Non-nil means when sending a message wait for and display errors.
nil means let mailer mail back a message to report errors."
:group 'message-sending
＠＠ -2388,6 +2388,7 ＠＠ It should typically alter the sending me
(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)
＠＠ -2410,7 +2411,9 ＠＠ It should typically alter the sending me
;; 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 with exit value %d" cpr))))
(when message-interactive
(save-excursion
(set-buffer errbuf)