projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0134fd8
)
(message-maybe-split-and-send-mail): Bug fix.
author
yamaoka
<yamaoka>
Thu, 12 Nov 1998 23:44:28 +0000
(23:44 +0000)
committer
yamaoka
<yamaoka>
Thu, 12 Nov 1998 23:44:28 +0000
(23:44 +0000)
lisp/message.el
patch
|
blob
|
history
diff --git
a/lisp/message.el
b/lisp/message.el
index
5759911
..
e88ea6e
100644
(file)
--- 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
(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
(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))
(error err))))
(when failure
(if (eq 'error (car failure))