diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-12-02 03:04:43 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-12-02 03:04:43 +0000 |
| commit | c920f2224517843a163dcfedcca1d548de2808b9 (patch) | |
| tree | 3b37051ac0aa1ece47851cdc7c5c474895a6a3a9 /lisp/mail/rmail.el | |
| parent | 5813f6ef75c0cb6c6575fd97b338ec9b41c33b7c (diff) | |
| download | emacs-c920f2224517843a163dcfedcca1d548de2808b9.tar.gz | |
(rmail-pop-to-buffer): New function. (Bug#2282)
(rmail-select-summary): Use rmail-pop-to-buffer.
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index fba9f1c175c..e21b3ed1efc 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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 |