Re: rmail-reply creates *mail* and *mail*<2>

[Chong Yidong <cyd@stupidchicken.com>]

Kenichi Handa <handa@m17n.org> writes:

> With the latest CVS code, when I type r in RMAIL buffer,
> buffer *mail* and *mail*<2> are created and the latter is
> selected.

This patch fixes the problem.  Could you try it?


*** emacs/lisp/simple.el.~1.749.~	2005-09-13 06:28:14.000000000 -0400
--- emacs/lisp/simple.el	2005-09-15 10:49:43.000000000 -0400
***************
*** 4440,4446 ****
  	    (special-display-regexps nil)
  	    (same-window-buffer-names nil)
  	    (same-window-regexps nil))
! 	(funcall switch-function "*mail*")))
    (let ((cc (cdr (assoc-string "cc" other-headers t)))
  	(in-reply-to (cdr (assoc-string "in-reply-to" other-headers t)))
  	(body (cdr (assoc-string "body" other-headers t))))
--- 4440,4446 ----
  	    (special-display-regexps nil)
  	    (same-window-buffer-names nil)
  	    (same-window-regexps nil))
! 	(funcall switch-function nil)))
    (let ((cc (cdr (assoc-string "cc" other-headers t)))
  	(in-reply-to (cdr (assoc-string "in-reply-to" other-headers t)))
  	(body (cdr (assoc-string "body" other-headers t))))