mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-24 15:22:26 -07:00
Code Issues Projects Releases Wiki Activity

* message.el (message-bury): Add special-case handling for Rmail.

Browse source 
This should not be merged into the trunk.
This commit is contained in:
Chong Yidong 2011-01-12 23:24:31 -05:00
parent 07ee935146
commit 5399653b53
2 changed files with 28 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
2011-01-13 Chong Yidong <cyd@stupidchicken.com>
* message.el (message-bury): Add special-case handling for Rmail.
2011-01-12 Glenn Morris <rgm@gnu.org>
* message.el (message-mail): A compose-mail function should

28
lisp/gnus/message.el
View file

@ -4023,12 +4023,32 @@ Instead, just auto-save the buffer and then bury it."
(defun message-bury (buffer)
"Bury this mail BUFFER."
(let ((newbuf (other-buffer buffer)))
(bury-buffer buffer)
(if (and (window-dedicated-p (selected-window))
(let ((newbuf (other-buffer (current-buffer))))
(bury-buffer (current-buffer))
(if (and (window-dedicated-p (frame-selected-window))
(not (null (delq (selected-frame) (visible-frame-list)))))
(delete-frame (selected-frame))
(switch-to-buffer newbuf))))
;; Temporary hack to make this behave like `mail-bury', when
;; used with Rmail. Replaced in Emacs 24 with
(let (rmail-flag summary-buffer)
(and (not (one-window-p))
(with-current-buffer
(window-buffer (next-window (selected-window) 'not))
(setq rmail-flag (eq major-mode 'rmail-mode))
(setq summary-buffer
(and (if (boundp 'mail-bury-selects-summary)
mail-bury-selects-summary
t)
(boundp 'rmail-summary-buffer)
rmail-summary-buffer
(buffer-name rmail-summary-buffer)
(not (get-buffer-window rmail-summary-buffer))
rmail-summary-buffer))))
(if rmail-flag
;; If the Rmail buffer has a summary, show that.
(if summary-buffer (switch-to-buffer summary-buffer)
(delete-window))
(switch-to-buffer newbuf))))))
(defun message-send (&optional arg)
"Send the message in the current buffer.