Re: compose-mail-other-window

[Richard Stallman]

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