Mercurial > emacs

comparison lisp/mail/rmail.el @ 3083:59b8b6ac30e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-bury): Fix call to set-window-buffer.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 May 1993 16:56:15 +0000
parents 9de57e00caf7
children 2624c18df764
comparison
equal deleted inserted replaced
3082:950a86899def 3083:59b8b6ac30e0
1786 (interactive) 1786 (interactive)
1787 (let ((rmail-buffer (current-buffer))) 1787 (let ((rmail-buffer (current-buffer)))
1788 (if (rmail-summary-exists) 1788 (if (rmail-summary-exists)
1789 (let (window) 1789 (let (window)
1790 (while (setq window (get-buffer-window rmail-summary-buffer)) 1790 (while (setq window (get-buffer-window rmail-summary-buffer))
1791 (set-window-buffer (other-buffer rmail-summary-buffer))) 1791 (set-window-buffer window (other-buffer rmail-summary-buffer)))
1792 (bury-buffer rmail-summary-buffer))) 1792 (bury-buffer rmail-summary-buffer)))
1793 (switch-to-buffer (other-buffer (current-buffer))) 1793 (switch-to-buffer (other-buffer (current-buffer)))
1794 (bury-buffer rmail-buffer))) 1794 (bury-buffer rmail-buffer)))
1795 1795
1796 (defun rmail-summary-exists () 1796 (defun rmail-summary-exists ()