From 4302ef50105ec50802937d1a0154b27260cfffda Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 3 Jun 1996 14:39:17 +0000 Subject: [PATCH] (reporter-submit-bug-report): Bind same-window-regexps, same-window-buffer-names, to nil. --- lisp/mail/reporter.el | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el index 53b9b1b7b6f..f941a29afde 100644 --- a/lisp/mail/reporter.el +++ b/lisp/mail/reporter.el @@ -1,7 +1,6 @@ ;;; reporter.el --- customizable bug reporting of lisp programs -;; Copyright (C) 1993 1994 Barry A. Warsaw -;; Copyright (C) 1993 1994 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. ;; Author: 1993 Barry A. Warsaw ;; Maintainer: bwarsaw@cnri.reston.va.us @@ -334,7 +333,10 @@ composed.") (problem (and reporter-prompt-for-summary-p (read-string "(Very) brief summary of problem: "))) (mailbuf - (progn + ;; Normally *mail* is directed to appear in the same window, + ;; but we don't want that to happen here. + (let (same-window-buffer-names + same-window-regexps) (call-interactively (if (nlistp reporter-mailer) reporter-mailer @@ -352,8 +354,14 @@ composed.") mailer))) (current-buffer)))) (require 'sendmail) - (pop-to-buffer mailbuf) - (display-buffer reporter-eval-buffer) + ;; If mailbuf did not get made visible before, + ;; make it visible now. + (let (same-window-buffer-names + same-window-regexps) + (pop-to-buffer mailbuf) + ;; Just in case the original buffer is not visible now, + ;; bring it back somewhere. + (display-buffer reporter-eval-buffer)) (goto-char (point-min)) ;; different mailers use different separators, some may not even ;; use m-h-s, but sendmail.el stuff must have m-h-s bound. -- 2.39.2