Mercurial > emacs
annotate lisp/mail/reporter.el @ 92068:dd458038bf78
New file.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 22 Feb 2008 01:51:04 +0000 |
parents | 107ccd98fa12 |
children | 606f2d163a64 1e3a407766b9 |
rev | line source |
---|---|
3421 | 1 ;;; reporter.el --- customizable bug reporting of lisp programs |
2 | |
74509 | 3 ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003, |
79712 | 4 ;; 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
14169 | 5 |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
6 ;; Author: 1993-1998 Barry A. Warsaw |
29246 | 7 ;; Maintainer: FSF |
3421 | 8 ;; Created: 19-Apr-1993 |
15590 | 9 ;; Keywords: maint mail tools |
3421 | 10 |
4839 | 11 ;; This file is part of GNU Emacs. |
4855
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
12 |
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
3421 | 14 ;; it under the terms of the GNU General Public License as published by |
78232
8e27d63c45eb
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
15 ;; the Free Software Foundation; either version 3, or (at your option) |
4855
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
16 ;; any later version. |
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
17 |
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
18 ;; GNU Emacs is distributed in the hope that it will be useful, |
3421 | 19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
4855
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
22 |
3421 | 23 ;; You should have received a copy of the GNU General Public License |
14169 | 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
26 ;; Boston, MA 02110-1301, USA. | |
3421 | 27 |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
28 ;;; Commentary: |
14169 | 29 |
15590 | 30 ;; End User Interface |
31 ;; ================== | |
32 ;; The variable `mail-user-agent' contains a symbol indicating which | |
33 ;; Emacs mail package end users would like to use to compose outgoing | |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
34 ;; mail. See that variable for details (it is no longer defined in |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
35 ;; this file). |
15590 | 36 |
37 ;; Lisp Package Authors | |
38 ;; ==================== | |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
39 ;; reporter.el was written primarily for Emacs Lisp package authors so |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
40 ;; that their users can more easily report bugs. When invoked, |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
41 ;; `reporter-submit-bug-report' will set up an outgoing mail buffer |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
42 ;; with the appropriate bug report address, including a lisp |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
43 ;; expression the maintainer of the package can evaluate to completely |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
44 ;; reproduce the environment in which the bug was observed (e.g. by |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
45 ;; using `eval-last-sexp'). This package proved especially useful |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
46 ;; during my development of CC Mode, which is highly dependent on its |
15590 | 47 ;; configuration variables. |
3421 | 48 ;; |
49 ;; Do a "C-h f reporter-submit-bug-report" for more information. | |
50 ;; Here's an example usage: | |
51 ;; | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
52 ;;(defconst mypkg-version "9.801") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
53 ;;(defconst mypkg-maintainer-address "mypkg-help@foo.com") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
54 ;;(defun mypkg-submit-bug-report () |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
55 ;; "Submit via mail a bug report on mypkg" |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
56 ;; (interactive) |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
57 ;; (require 'reporter) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
58 ;; (reporter-submit-bug-report |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
59 ;; mypkg-maintainer-address |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
60 ;; (concat "mypkg.el " mypkg-version) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
61 ;; (list 'mypkg-variable-1 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
62 ;; 'mypkg-variable-2 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
63 ;; ;; ... |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
64 ;; 'mypkg-variable-last))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
65 |
3421 | 66 ;;; Code: |
67 | |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
68 |
15530 | 69 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv |
70 ;; Package author interface variables | |
71 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
72 (defvar reporter-prompt-for-summary-p nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
73 "Interface variable controlling prompting for problem summary. |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
74 When non-nil, `reporter-submit-bug-report' prompts the user for a |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
75 brief summary of the problem, and puts this summary on the Subject: |
15590 | 76 line. If this variable is a string, that string is used as the prompt |
77 string. | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
78 |
29246 | 79 Default behavior is to not prompt (i.e. nil). If you want reporter to |
15590 | 80 prompt, you should `let' bind this variable before calling |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
81 `reporter-submit-bug-report'. Note that this variable is not |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
82 buffer-local so you should never just `setq' it.") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
83 |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
84 (defvar reporter-dont-compact-list nil |
14004
7709c74b3188
(reporter-dont-compact-list): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
11422
diff
changeset
|
85 "Interface variable controlling compacting of list values. |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
86 When non-nil, this must be a list of variable symbols. When a |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
87 variable containing a list value is formatted in the bug report mail |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
88 buffer, it normally is compacted so that its value fits one the fewest |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
89 number of lines. If the variable's symbol appears in this list, its |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
90 value is printed in a more verbose style, specifically, one elemental |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
91 sexp per line. |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
92 |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
93 Note that this variable is not buffer-local so you should never just |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
94 `setq' it. If you want to changes its default value, you should `let' |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
95 bind it.") |
3421 | 96 |
15590 | 97 ;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
15530 | 98 ;; End of editable variables |
99 | |
15590 | 100 |
3903 | 101 (defvar reporter-eval-buffer nil |
102 "Buffer to retrieve variable's value from. | |
103 This is necessary to properly support the printing of buffer-local | |
104 variables. Current buffer will always be the mail buffer being | |
105 composed.") | |
4855
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
106 |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
107 (defvar reporter-initial-text nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
108 "The automatically created initial text of a bug report.") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
109 (make-variable-buffer-local 'reporter-initial-text) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
110 |
15590 | 111 |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
112 |
15590 | 113 ;; status feedback to the user |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
114 (defvar reporter-status-message nil) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
115 (defvar reporter-status-count nil) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
116 |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
117 (defun reporter-update-status () |
29246 | 118 "Periodically output a status message." |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
119 (if (zerop (% reporter-status-count 10)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
120 (progn |
87170
e50a2e215441
* erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents:
86440
diff
changeset
|
121 (message "%s" reporter-status-message) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
122 (setq reporter-status-message (concat reporter-status-message ".")))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
123 (setq reporter-status-count (1+ reporter-status-count))) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
124 |
3421 | 125 |
15590 | 126 ;; dumping/pretty printing of values |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
127 (defun reporter-beautify-list (maxwidth compact-p) |
29246 | 128 "Pretty print a list." |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
129 (reporter-update-status) |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
130 (let ((move t) |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
131 linebreak indent-enclosing-p indent-p here) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
132 (condition-case nil ;loop exit |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
133 (progn |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
134 (down-list 1) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
135 (setq indent-enclosing-p t) |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
136 (while move |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
137 (setq here (point)) |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
138 ;; The following line is how we break out of the while |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
139 ;; loop, in one of two ways. Either we've hit the end of |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
140 ;; the buffer, in which case scan-sexps returns nil, or |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
141 ;; we've crossed unbalanced parens and it will raise an |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
142 ;; error we're expecting to catch. |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
143 (setq move (scan-sexps (point) 1)) |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
144 (goto-char move) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
145 (if (<= maxwidth (current-column)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
146 (if linebreak |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
147 (progn |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
148 (goto-char linebreak) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
149 (newline-and-indent) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
150 (setq linebreak nil)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
151 (goto-char here) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
152 (setq indent-p (reporter-beautify-list maxwidth compact-p)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
153 (goto-char here) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
154 (forward-sexp 1) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
155 (if indent-p |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
156 (newline-and-indent)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
157 t) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
158 (if compact-p |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
159 (setq linebreak (point)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
160 (newline-and-indent)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
161 )) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
162 t) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
163 (error indent-enclosing-p)))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
164 |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
165 (defun reporter-lisp-indent (indent-point state) |
29246 | 166 "A better lisp indentation style for bug reporting." |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
167 (save-excursion |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
168 (goto-char (1+ (nth 1 state))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
169 (current-column))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
170 |
86440
4aedd218aad1
* mail/mspools.el (rmail-get-new-mail):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85231
diff
changeset
|
171 (declare-function mail-position-on-field "sendmail" (field &optional soft)) |
4aedd218aad1
* mail/mspools.el (rmail-get-new-mail):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85231
diff
changeset
|
172 (declare-function mail-text "sendmail" ()) |
4aedd218aad1
* mail/mspools.el (rmail-get-new-mail):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85231
diff
changeset
|
173 |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
174 (defun reporter-dump-variable (varsym mailbuf) |
29246 | 175 "Pretty-print the value of the variable in symbol VARSYM. |
176 MAILBUF is the mail buffer being composed." | |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
177 (reporter-update-status) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
178 (condition-case nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
179 (let ((val (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
180 (set-buffer reporter-eval-buffer) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
181 (symbol-value varsym))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
182 (sym (symbol-name varsym)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
183 (print-escape-newlines t) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
184 (maxwidth (1- (window-width))) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
185 (here (point))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
186 (insert " " sym " " |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
187 (cond |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
188 ((memq val '(t nil)) "") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
189 ((listp val) "'") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
190 ((symbolp val) "'") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
191 (t "")) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
192 (prin1-to-string val)) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
193 (lisp-indent-line) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
194 ;; clean up lists, but only if the line as printed was long |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
195 ;; enough to wrap |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
196 (if (and val ;nil is a list, but short |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
197 (listp val) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
198 (<= maxwidth (current-column))) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
199 (save-excursion |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
200 (let ((compact-p (not (memq varsym reporter-dont-compact-list))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
201 (lisp-indent-function 'reporter-lisp-indent)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
202 (goto-char here) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
203 (reporter-beautify-list maxwidth compact-p)))) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
204 (insert "\n")) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
205 (void-variable |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
206 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
207 (set-buffer mailbuf) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
208 (mail-position-on-field "X-Reporter-Void-Vars-Found") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
209 (end-of-line) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
210 (insert (symbol-name varsym) " "))) |
15590 | 211 (error |
212 (error "")))) | |
3421 | 213 |
214 (defun reporter-dump-state (pkgname varlist pre-hooks post-hooks) | |
29246 | 215 "Dump the state of the mode specific variables. |
216 PKGNAME contains the name of the mode as it will appear in the bug | |
217 report (you must explicitly concat any version numbers). | |
3421 | 218 |
29246 | 219 VARLIST is the list of variables to dump. Each element in |
220 VARLIST can be a variable symbol, or a cons cell. If a symbol, | |
221 this will be passed to `reporter-dump-variable' for insertion | |
222 into the mail buffer. If a cons cell, the car must be a variable | |
223 symbol and the cdr must be a function which will be `funcall'd | |
224 with arguments the symbol and the mail buffer being composed. Use | |
225 this to write your own custom variable value printers for | |
226 specific variables. | |
3903 | 227 |
29246 | 228 Note that the global variable `reporter-eval-buffer' will be bound to |
229 the buffer in which `reporter-submit-bug-report' was invoked. If you | |
230 want to print the value of a buffer local variable, you should wrap | |
231 the `eval' call in your custom printer inside a `set-buffer' (and | |
232 probably a `save-excursion'). `reporter-dump-variable' handles this | |
233 properly. | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
234 |
29246 | 235 PRE-HOOKS is run after the Emacs version and PKGNAME are inserted, but |
236 before the VARLIST is dumped. POST-HOOKS is run after the VARLIST is | |
237 dumped." | |
3421 | 238 (let ((buffer (current-buffer))) |
239 (set-buffer buffer) | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
240 (insert "Emacs : " (emacs-version) "\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
241 (and pkgname |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
242 (insert "Package: " pkgname "\n")) |
3421 | 243 (run-hooks 'pre-hooks) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
244 (if (not varlist) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
245 nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
246 (insert "\ncurrent state:\n==============\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
247 ;; create an emacs-lisp-mode buffer to contain the output, which |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
248 ;; we'll later insert into the mail buffer |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
249 (condition-case fault |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
250 (let ((mailbuf (current-buffer)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
251 (elbuf (get-buffer-create " *tmp-reporter-buffer*"))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
252 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
253 (set-buffer elbuf) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
254 (emacs-lisp-mode) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
255 (erase-buffer) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
256 (insert "(setq\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
257 (lisp-indent-line) |
85231
054956601c9e
(reporter-dump-state): Use mapc rather than mapcar.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
258 (mapc |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
259 (function |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
260 (lambda (varsym-or-cons-cell) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
261 (let ((varsym (or (car-safe varsym-or-cons-cell) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
262 varsym-or-cons-cell)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
263 (printer (or (cdr-safe varsym-or-cons-cell) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
264 'reporter-dump-variable))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
265 (funcall printer varsym mailbuf) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
266 ))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
267 varlist) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
268 (lisp-indent-line) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
269 (insert ")\n")) |
64806
74dda054615b
(reporter-dump-state): Use insert-buffer-substring.
Richard M. Stallman <rms@gnu.org>
parents:
64754
diff
changeset
|
270 (insert-buffer-substring elbuf)) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
271 (error |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
272 (insert "State could not be dumped due to the following error:\n\n" |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
273 (format "%s" fault) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
274 "\n\nYou should still send this bug report.")))) |
3421 | 275 (run-hooks 'post-hooks) |
276 )) | |
277 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
278 |
15590 | 279 (defun reporter-compose-outgoing () |
29246 | 280 "Compose the outgoing mail buffer. |
281 | |
282 Return the selected paradigm, with the current buffer tacked onto the | |
283 beginning of the list." | |
15590 | 284 (let* ((agent mail-user-agent) |
285 (compose (get mail-user-agent 'composefunc))) | |
286 ;; Sanity check. If this fails then we'll try to use the SENDMAIL | |
287 ;; protocol, otherwise we must signal an error. | |
21312
b5b8f2545eae
(reporter-bug-hook): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
21230
diff
changeset
|
288 (if (not (and compose (functionp compose))) |
15590 | 289 (progn |
290 (setq agent 'sendmail-user-agent | |
291 compose (get agent 'composefunc)) | |
21312
b5b8f2545eae
(reporter-bug-hook): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
21230
diff
changeset
|
292 (if (not (and compose (functionp compose))) |
15978
86922cff9d87
(reporter-compose-outgoing): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents:
15590
diff
changeset
|
293 (error "Could not find a valid `mail-user-agent'") |
15590 | 294 (ding) |
15978
86922cff9d87
(reporter-compose-outgoing): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents:
15590
diff
changeset
|
295 (message "`%s' is an invalid `mail-user-agent'; using `sendmail-user-agent'" |
15590 | 296 mail-user-agent) |
297 ))) | |
298 (funcall compose) | |
299 agent)) | |
300 | |
301 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
302 ;;;###autoload |
3421 | 303 (defun reporter-submit-bug-report |
304 (address pkgname varlist &optional pre-hooks post-hooks salutation) | |
26176 | 305 "Begin submitting a bug report via email. |
306 | |
307 ADDRESS is the email address for the package's maintainer. PKGNAME is | |
308 the name of the package (if you want to include version numbers, | |
309 you must put them into PKGNAME before calling this function). | |
29246 | 310 Optional PRE-HOOKS and POST-HOOKS are passed to `reporter-dump-state'. |
311 Optional SALUTATION is inserted at the top of the mail buffer, | |
312 and point is left after the salutation. | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
313 |
26176 | 314 VARLIST is the list of variables to dump (see `reporter-dump-state' |
315 for details). The optional argument PRE-HOOKS and POST-HOOKS are | |
316 passed to `reporter-dump-state'. Optional argument SALUTATION is text | |
317 to be inserted at the top of the mail buffer; in that case, point is | |
318 left after that text. | |
3421 | 319 |
26176 | 320 This function prompts for a summary if `reporter-prompt-for-summary-p' |
321 is non-nil. | |
3421 | 322 |
26176 | 323 This function does not send a message; it uses the given information |
41362
73c81f0d57f2
(reporter-submit-bug-report): Doc fixes.
Colin Walters <walters@gnu.org>
parents:
38416
diff
changeset
|
324 to initialize a message, which the user can then edit and finally send |
38416
ac6b0bba8fcc
(reporter-submit-bug-report):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29246
diff
changeset
|
325 \(or decline to send). The variable `mail-user-agent' controls which |
26176 | 326 mail-sending package is used for editing and sending the message." |
3903 | 327 (let ((reporter-eval-buffer (current-buffer)) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
328 final-resting-place |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
329 after-sep-pos |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
330 (reporter-status-message "Formatting bug report buffer...") |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
331 (reporter-status-count 0) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
332 (problem (and reporter-prompt-for-summary-p |
15590 | 333 (read-string (if (stringp reporter-prompt-for-summary-p) |
334 reporter-prompt-for-summary-p | |
335 "(Very) brief summary of problem: ")))) | |
336 (agent (reporter-compose-outgoing)) | |
337 (mailbuf (current-buffer)) | |
338 hookvar) | |
339 ;; do the work | |
3421 | 340 (require 'sendmail) |
15590 | 341 ;; If mailbuf did not get made visible before, make it visible now. |
342 (let (same-window-buffer-names same-window-regexps) | |
15319
4dbee658e623
(reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
15309
diff
changeset
|
343 (pop-to-buffer mailbuf) |
15590 | 344 ;; Just in case the original buffer is not visible now, bring it |
345 ;; back somewhere | |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
346 (and pop-up-windows (display-buffer reporter-eval-buffer))) |
3421 | 347 (goto-char (point-min)) |
21865
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
348 (mail-position-on-field "to") |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
349 (insert address) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
350 ;; insert problem summary if available |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
351 (if (and reporter-prompt-for-summary-p problem pkgname) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
352 (progn |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
353 (mail-position-on-field "subject") |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
354 (insert pkgname "; " problem))) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
355 ;; move point to the body of the message |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
356 (mail-text) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
357 (forward-line 1) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
358 (setq after-sep-pos (point)) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
359 (and salutation (insert "\n" salutation "\n\n")) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
360 (unwind-protect |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
361 (progn |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
362 (setq final-resting-place (point-marker)) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
363 (insert "\n\n") |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
364 (reporter-dump-state pkgname varlist pre-hooks post-hooks) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
365 (goto-char final-resting-place)) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
366 (set-marker final-resting-place nil)) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
367 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
368 ;; save initial text and set up the `no-empty-submission' hook. |
15590 | 369 ;; This only works for mailers that support a pre-send hook, and |
370 ;; for which the paradigm has a non-nil value for the `hookvar' | |
371 ;; key in its agent (i.e. sendmail.el's mail-send-hook). | |
372 (save-excursion | |
373 (goto-char (point-max)) | |
374 (skip-chars-backward " \t\n") | |
375 (setq reporter-initial-text (buffer-substring after-sep-pos (point)))) | |
376 (if (setq hookvar (get agent 'hookvar)) | |
38416
ac6b0bba8fcc
(reporter-submit-bug-report):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29246
diff
changeset
|
377 (add-hook hookvar 'reporter-bug-hook nil t)) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
378 |
15590 | 379 ;; compose the minibuf message and display this. |
380 (let* ((sendkey-whereis (where-is-internal | |
381 (get agent 'sendfunc) nil t)) | |
382 (abortkey-whereis (where-is-internal | |
383 (get agent 'abortfunc) nil t)) | |
384 (sendkey (if sendkey-whereis | |
385 (key-description sendkey-whereis) | |
386 "C-c C-c")) ; TBD: BOGUS hardcode | |
387 (abortkey (if abortkey-whereis | |
388 (key-description abortkey-whereis) | |
389 "M-x kill-buffer")) ; TBD: BOGUS hardcode | |
390 ) | |
391 (message "Please enter your report. Type %s to send, %s to abort." | |
392 sendkey abortkey)) | |
3421 | 393 )) |
394 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
395 (defun reporter-bug-hook () |
29246 | 396 "Prohibit sending mail if empty bug report." |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
397 (let ((after-sep-pos |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
398 (save-excursion |
21998
ccda0e3ab1b6
(reporter-bug-hook): Use rfc822-goto-eoh.
Richard M. Stallman <rms@gnu.org>
parents:
21865
diff
changeset
|
399 (rfc822-goto-eoh) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
400 (forward-line 1) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
401 (point)))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
402 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
403 (goto-char (point-max)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
404 (skip-chars-backward " \t\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
405 (if (and (= (- (point) after-sep-pos) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
406 (length reporter-initial-text)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
407 (string= (buffer-substring after-sep-pos (point)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
408 reporter-initial-text)) |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
409 (error "Empty bug report cannot be sent")) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
410 ))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
411 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
412 |
15590 | 413 (provide 'reporter) |
52401 | 414 |
415 ;;; arch-tag: 33612ff4-fbbc-4be2-b183-560ce9e0199b | |
3421 | 416 ;;; reporter.el ends here |