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

[Chong Yidong]

Kenichi Handa <address@hidden> 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))))