[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/12/02 03:04:46

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmail.el 

Log message:
        (rmail-pop-to-buffer): New function.  (Bug#2282)
        (rmail-select-summary): Use rmail-pop-to-buffer.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16795&r2=1.16796
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.560&r2=1.561

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16795
retrieving revision 1.16796
diff -u -b -r1.16795 -r1.16796
--- ChangeLog   2 Dec 2009 03:03:48 -0000       1.16795
+++ ChangeLog   2 Dec 2009 03:04:43 -0000       1.16796
@@ -1,5 +1,8 @@
 2009-12-02  Glenn Morris  <address@hidden>
 
+       * 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)

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.560
retrieving revision 1.561
diff -u -b -r1.560 -r1.561
--- mail/rmail.el       21 Nov 2009 20:19:15 -0000      1.560
+++ mail/rmail.el       2 Dec 2009 03:04:46 -0000       1.561
@@ -792,6 +792,12 @@
              . '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 @@
           (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