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