Mercurial > emacs
comparison lisp/mail/reporter.el @ 15319:4dbee658e623
(reporter-submit-bug-report):
Bind same-window-regexps, same-window-buffer-names, to nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 03 Jun 1996 14:39:17 +0000 |
| parents | 577024cb8653 |
| children | 77f3cbbd5d70 |
comparison
equal
deleted
inserted
replaced
| 15318:5828249cac7d | 15319:4dbee658e623 |
|---|---|
| 1 ;;; reporter.el --- customizable bug reporting of lisp programs | 1 ;;; reporter.el --- customizable bug reporting of lisp programs |
| 2 | 2 |
| 3 ;; Copyright (C) 1993 1994 Barry A. Warsaw | 3 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. |
| 4 ;; Copyright (C) 1993 1994 Free Software Foundation, Inc. | |
| 5 | 4 |
| 6 ;; Author: 1993 Barry A. Warsaw <bwarsaw@cnri.reston.va.us> | 5 ;; Author: 1993 Barry A. Warsaw <bwarsaw@cnri.reston.va.us> |
| 7 ;; Maintainer: bwarsaw@cnri.reston.va.us | 6 ;; Maintainer: bwarsaw@cnri.reston.va.us |
| 8 ;; Created: 19-Apr-1993 | 7 ;; Created: 19-Apr-1993 |
| 9 ;; Version: 2.21 | 8 ;; Version: 2.21 |
| 332 (reporter-status-message "Formatting bug report buffer...") | 331 (reporter-status-message "Formatting bug report buffer...") |
| 333 (reporter-status-count 0) | 332 (reporter-status-count 0) |
| 334 (problem (and reporter-prompt-for-summary-p | 333 (problem (and reporter-prompt-for-summary-p |
| 335 (read-string "(Very) brief summary of problem: "))) | 334 (read-string "(Very) brief summary of problem: "))) |
| 336 (mailbuf | 335 (mailbuf |
| 337 (progn | 336 ;; Normally *mail* is directed to appear in the same window, |
| 337 ;; but we don't want that to happen here. | |
| 338 (let (same-window-buffer-names | |
| 339 same-window-regexps) | |
| 338 (call-interactively | 340 (call-interactively |
| 339 (if (nlistp reporter-mailer) | 341 (if (nlistp reporter-mailer) |
| 340 reporter-mailer | 342 reporter-mailer |
| 341 (let ((mlist reporter-mailer) | 343 (let ((mlist reporter-mailer) |
| 342 (mailer nil)) | 344 (mailer nil)) |
| 350 "Variable `%s' does not contain a command for mailing" | 352 "Variable `%s' does not contain a command for mailing" |
| 351 "reporter-mailer")) | 353 "reporter-mailer")) |
| 352 mailer))) | 354 mailer))) |
| 353 (current-buffer)))) | 355 (current-buffer)))) |
| 354 (require 'sendmail) | 356 (require 'sendmail) |
| 355 (pop-to-buffer mailbuf) | 357 ;; If mailbuf did not get made visible before, |
| 356 (display-buffer reporter-eval-buffer) | 358 ;; make it visible now. |
| 359 (let (same-window-buffer-names | |
| 360 same-window-regexps) | |
| 361 (pop-to-buffer mailbuf) | |
| 362 ;; Just in case the original buffer is not visible now, | |
| 363 ;; bring it back somewhere. | |
| 364 (display-buffer reporter-eval-buffer)) | |
| 357 (goto-char (point-min)) | 365 (goto-char (point-min)) |
| 358 ;; different mailers use different separators, some may not even | 366 ;; different mailers use different separators, some may not even |
| 359 ;; use m-h-s, but sendmail.el stuff must have m-h-s bound. | 367 ;; use m-h-s, but sendmail.el stuff must have m-h-s bound. |
| 360 (let ((mail-header-separator (reporter-calculate-separator))) | 368 (let ((mail-header-separator (reporter-calculate-separator))) |
| 361 (mail-position-on-field "to") | 369 (mail-position-on-field "to") |