diff options
| -rw-r--r-- | lisp/mail/rmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index e11d40a7097..6658185005d 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1788,7 +1788,7 @@ the body of the original message; otherwise copy the current message." (if (rmail-summary-exists) (let (window) (while (setq window (get-buffer-window rmail-summary-buffer)) - (set-window-buffer (other-buffer rmail-summary-buffer))) + (set-window-buffer window (other-buffer rmail-summary-buffer))) (bury-buffer rmail-summary-buffer))) (switch-to-buffer (other-buffer (current-buffer))) (bury-buffer rmail-buffer))) |