procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(rmail-select-summary): Use rmail-pop-to-buffer.
This commit is contained in:
Glenn Morris 2009-12-02 03:04:43 +00:00
parent 5813f6ef75
commit c920f22245
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
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)

8
lisp/mail/rmail.el
View file

@ -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