+2011-02-10 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * message.el (message-bury): Don't pop up a new window when selected
+ window is dedicated.
+
2011-02-10 Antoine Levitt <antoine.levitt@gmail.com> (tiny change)
* gnus-sum.el (gnus-summary-save-parts): Use read-directory-name.
(defun message-bury (buffer)
"Bury this mail BUFFER."
- (let ((newbuf (other-buffer buffer)))
- (bury-buffer buffer)
- (if message-return-action
- (apply (car message-return-action) (cdr message-return-action))
- (switch-to-buffer newbuf))))
+ (if message-return-action
+ (progn
+ (bury-buffer buffer)
+ (apply (car message-return-action) (cdr message-return-action)))
+ (with-current-buffer buffer (bury-buffer))))
(defun message-send (&optional arg)
"Send the message in the current buffer.