diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-03 14:39:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-03 14:39:17 +0000 |
| commit | 4302ef50105ec50802937d1a0154b27260cfffda (patch) | |
| tree | ef608c561c367b509398f3d157d8b88dd9b8fcad /lisp/mail/reporter.el | |
| parent | 8c72e56bc2d21db9bf808bbb642cb35194f20c1c (diff) | |
| download | emacs-4302ef50105ec50802937d1a0154b27260cfffda.tar.gz | |
(reporter-submit-bug-report):
Bind same-window-regexps, same-window-buffer-names, to nil.
Diffstat (limited to 'lisp/mail/reporter.el')
| -rw-r--r-- | lisp/mail/reporter.el | 18 |
1 files 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 <bwarsaw@cnri.reston.va.us> ;; 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. |