From 5f5cd73faa7e42d9ece1b2aaede924affb9c130d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 12 Nov 1998 23:44:28 +0000 Subject: [PATCH] (message-maybe-split-and-send-mail): Bug fix. --- lisp/message.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index 5759911..e88ea6e 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2310,12 +2310,16 @@ This sub function is for exclusive use of `message-send-mail'." (delete-region (match-end 0) (std11-field-end)) (insert " " (message-make-message-id)))) (condition-case err - (funcall message-send-mail-function) + (progn + (funcall message-send-mail-function) + nil) (error (throw 'message-sending-mail-failure err)))))) nil) (condition-case err - (funcall message-send-mail-function) + (progn + (funcall message-send-mail-function) + nil) (error err)))) (when failure (if (eq 'error (car failure)) -- 1.7.10.4