(actions message-exit-actions))
(when (and (message-send arg)
(buffer-name buf))
- (message-bury buf)
+ (message-bury)
(if message-kill-buffer-on-exit
(kill-buffer buf))
(message-do-actions actions)
(message-disassociate-draft)))
(message-do-actions actions))))
-(defun message-bury (buffer)
+(defun message-bury (&optional buffer)
"Bury this mail BUFFER."
(if message-return-action
(progn