Commit c920f222 authored by Glenn Morris's avatar Glenn Morris
Browse files

(rmail-pop-to-buffer): New function. (Bug#2282)

(rmail-select-summary): Use rmail-pop-to-buffer.
parent 5813f6ef
2009-12-02 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-pop-to-buffer): New function. (Bug#2282)
(rmail-select-summary): Use rmail-pop-to-buffer.
* calendar/diary-lib.el (diary-list-entries): Replace superfluous
save-excursion with save-current-buffer.
Widen before searching. (Bug#5093)
......
......@@ -792,6 +792,12 @@ that knows the exact ordering of the \\( \\) subexpressions.")
. 'rmail-header-name))))
"Additional expressions to highlight in Rmail mode.")
;; Rmail does not expect horizontal splitting. (Bug#2282)
(defun rmail-pop-to-buffer (&rest args)
"Like `pop-to-buffer', but with `split-width-threshold' set to nil."
(let (split-width-threshold)
(apply 'pop-to-buffer args)))
;; Perform BODY in the summary buffer
;; in such a way that its cursor is properly updated in its own window.
(defmacro rmail-select-summary (&rest body)
......@@ -801,7 +807,7 @@ that knows the exact ordering of the \\( \\) subexpressions.")
(save-excursion
(unwind-protect
(progn
(pop-to-buffer rmail-summary-buffer)
(rmail-pop-to-buffer rmail-summary-buffer)
;; rmail-total-messages is a buffer-local var
;; in the rmail buffer.
;; This way we make it available for the body
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment