[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: compose-mail-other-window
From: |
Richard Stallman |
Subject: |
Re: compose-mail-other-window |
Date: |
Sun, 25 Mar 2007 13:28:17 -0400 |
Due to the recent change of `compose-mail' `compose-mail-other-window'
will fail to show the window for editing the message. Removing the
`save-window-excursion' in `compose-mail' should cure this.
This removes the `save-window-excursion'. Does this work right?
*** simple.el 19 Mar 2007 17:03:02 -0500 1.852
--- simple.el 25 Mar 2007 11:52:34 -0500
***************
*** 4729,4739 ****
(let ((function (get mail-user-agent 'composefunc))
result-buffer)
(if switch-function
! (save-window-excursion
! (prog1
! (funcall function to subject other-headers continue
! nil yank-action send-actions)
! (funcall switch-function (current-buffer))))
(funcall function to subject other-headers continue
nil yank-action send-actions))))
--- 4729,4738 ----
(let ((function (get mail-user-agent 'composefunc))
result-buffer)
(if switch-function
! (prog1
! (funcall function to subject other-headers continue
! nil yank-action send-actions)
! (funcall switch-function (current-buffer)))
(funcall function to subject other-headers continue
nil yank-action send-actions))))