Mercurial > emacs
annotate lisp/mail/reporter.el @ 17096:4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
(rmail-summary-line-decoder): New variable.
(rmail-make-summary-line-1): Use a function set in
rmail-summary-line-decoder.
(rmail-summary-next-msg): Display rmail-view-buffer.
(rmail-summary-mode): Make rmail-view-buffer buffer local.
(rmail-summary-rmail-update, rmail-summary-scroll-msg-up): Use
rmail-view-buffer instead of rmail-buffer.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 26 Feb 1997 13:05:13 +0000 |
parents | 86922cff9d87 |
children | 720d1f98ae42 |
rev | line source |
---|---|
3421 | 1 ;;; reporter.el --- customizable bug reporting of lisp programs |
2 | |
15590 | 3 ;; Copyright (C) 1993 1994 1995 1996 Free Software Foundation, Inc. |
14169 | 4 |
15590 | 5 ;; Author: 1993-1996 Barry A. Warsaw |
3421 | 6 ;; Created: 19-Apr-1993 |
15590 | 7 ;; Version: 3.3 |
8 ;; Last Modified: 1996/07/02 00:39:09 | |
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 |
4855
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
15 ;; 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
|
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 |
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
26 ;; Boston, MA 02111-1307, 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 | |
34 ;; mail. See that variable for details. | |
35 | |
36 ;; Lisp Package Authors | |
37 ;; ==================== | |
38 ;; Reporter was written primarily for Emacs Lisp package authors so | |
39 ;; that their users can easily report bugs. When invoked, | |
40 ;; reporter-submit-bug-report will set up an outgoing mail buffer with | |
41 ;; the appropriate bug report address, including a lisp expression the | |
42 ;; maintainer of the package can eval to completely reproduce the | |
43 ;; environment in which the bug was observed (e.g. by using | |
44 ;; eval-last-sexp). This package proved especially useful during my | |
45 ;; development of cc-mode, which is highly dependent on its | |
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) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
56 ;; (reporter-submit-bug-report |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
57 ;; mypkg-maintainer-address |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
58 ;; (concat "mypkg.el " mypkg-version) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
59 ;; (list 'mypkg-variable-1 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
60 ;; 'mypkg-variable-2 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
61 ;; ;; ... |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
62 ;; 'mypkg-variable-last))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
63 |
3421 | 64 ;; Mailing List |
65 ;; ============ | |
15590 | 66 ;; I've set up a Majordomo mailing list to report bugs or suggest |
67 ;; enhancements, etc. This list's intended audience is elisp package | |
68 ;; authors who are using reporter and want to stay current with | |
69 ;; releases. Here are the relevant addresses: | |
3421 | 70 ;; |
15590 | 71 ;; Administrivia: reporter-request@python.org |
72 ;; Submissions: reporter@python.org | |
3421 | 73 |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
74 ;; Packages that currently use reporter are: cc-mode, supercite, elp, |
15590 | 75 ;; tcl, ediff, crypt++ (crypt), dired-x, rmailgen, mode-line, vm, |
76 ;; mh-e, edebug, archie, viper, w3-mode, framepop, hl319, hilit19, | |
77 ;; pgp, eos, hm--html, efs. | |
78 ;; | |
79 ;; If you know of others, please email me! | |
15978
86922cff9d87
(reporter-compose-outgoing): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents:
15590
diff
changeset
|
80 |
3421 | 81 ;;; Code: |
82 | |
15530 | 83 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv |
84 ;; Package author interface variables | |
85 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
86 (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
|
87 "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
|
88 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
|
89 brief summary of the problem, and puts this summary on the Subject: |
15590 | 90 line. If this variable is a string, that string is used as the prompt |
91 string. | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
92 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
93 Default behavior is to not prompt (i.e. nil). If you want reporter to |
15590 | 94 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
|
95 `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
|
96 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
|
97 |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
98 (defvar reporter-dont-compact-list nil |
14004
7709c74b3188
(reporter-dont-compact-list): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
11422
diff
changeset
|
99 "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
|
100 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
|
101 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
|
102 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
|
103 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
|
104 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
|
105 sexp per line. |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
106 |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
107 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
|
108 `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
|
109 bind it.") |
3421 | 110 |
15590 | 111 ;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
15530 | 112 ;; End of editable variables |
113 | |
15590 | 114 |
3903 | 115 (defvar reporter-eval-buffer nil |
116 "Buffer to retrieve variable's value from. | |
117 This is necessary to properly support the printing of buffer-local | |
118 variables. Current buffer will always be the mail buffer being | |
119 composed.") | |
4855
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
120 |
15590 | 121 (defconst reporter-version "3.2" |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
122 "Reporter version number.") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
123 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
124 (defvar reporter-initial-text nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
125 "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
|
126 (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
|
127 |
15590 | 128 |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
129 |
15590 | 130 ;; 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
|
131 (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
|
132 (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
|
133 |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
134 (defun reporter-update-status () |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
135 ;; periodically output a status message |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
136 (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
|
137 (progn |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
138 (message reporter-status-message) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
139 (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
|
140 (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
|
141 |
3421 | 142 |
15590 | 143 ;; 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
|
144 (defun 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
|
145 ;; pretty print a list |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
146 (reporter-update-status) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
147 (let (linebreak indent-enclosing-p indent-p here) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
148 (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
|
149 (progn |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
150 (down-list 1) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
151 (setq indent-enclosing-p t) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
152 (while t |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
153 (setq here (point)) |
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 (<= maxwidth (current-column)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
156 (if linebreak |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
157 (progn |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
158 (goto-char linebreak) |
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 (setq linebreak nil)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
161 (goto-char here) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
162 (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
|
163 (goto-char here) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
164 (forward-sexp 1) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
165 (if indent-p |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
166 (newline-and-indent)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
167 t) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
168 (if compact-p |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
169 (setq linebreak (point)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
170 (newline-and-indent)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
171 )) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
172 t) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
173 (error indent-enclosing-p)))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
174 |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
175 (defun reporter-lisp-indent (indent-point state) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
176 ;; a better lisp indentation style for bug reporting |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
177 (save-excursion |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
178 (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
|
179 (current-column))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
180 |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
181 (defun reporter-dump-variable (varsym mailbuf) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
182 ;; Pretty-print the value of the variable in symbol VARSYM. MAILBUF |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
183 ;; 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
|
184 (reporter-update-status) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
185 (condition-case nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
186 (let ((val (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
187 (set-buffer reporter-eval-buffer) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
188 (symbol-value varsym))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
189 (sym (symbol-name varsym)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
190 (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
|
191 (maxwidth (1- (window-width))) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
192 (here (point))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
193 (insert " " sym " " |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
194 (cond |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
195 ((memq val '(t nil)) "") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
196 ((listp val) "'") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
197 ((symbolp val) "'") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
198 (t "")) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
199 (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
|
200 (lisp-indent-line) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
201 ;; 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
|
202 ;; enough to wrap |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
203 (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
|
204 (listp val) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
205 (<= maxwidth (current-column))) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
206 (save-excursion |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
207 (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
|
208 (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
|
209 (goto-char here) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
210 (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
|
211 (insert "\n")) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
212 (void-variable |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
213 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
214 (set-buffer mailbuf) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
215 (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
|
216 (end-of-line) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
217 (insert (symbol-name varsym) " "))) |
15590 | 218 (error |
219 (error "")))) | |
3421 | 220 |
221 (defun reporter-dump-state (pkgname varlist pre-hooks post-hooks) | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
222 ;; Dump the state of the mode specific variables. |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
223 ;; PKGNAME contains the name of the mode as it will appear in the bug |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
224 ;; report (you must explicitly concat any version numbers). |
3421 | 225 |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
226 ;; VARLIST is the list of variables to dump. Each element in |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
227 ;; VARLIST can be a variable symbol, or a cons cell. If a symbol, |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
228 ;; this will be passed to `reporter-dump-variable' for insertion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
229 ;; into the mail buffer. If a cons cell, the car must be a variable |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
230 ;; symbol and the cdr must be a function which will be `funcall'd |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
231 ;; with arguments the symbol and the mail buffer being composed. Use |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
232 ;; this to write your own custom variable value printers for |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
233 ;; specific variables. |
3903 | 234 |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
235 ;; Note that the global variable `reporter-eval-buffer' will be bound to |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
236 ;; the buffer in which `reporter-submit-bug-report' was invoked. If you |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
237 ;; want to print the value of a buffer local variable, you should wrap |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
238 ;; the `eval' call in your custom printer inside a `set-buffer' (and |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
239 ;; probably a `save-excursion'). `reporter-dump-variable' handles this |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
240 ;; properly. |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
241 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
242 ;; PRE-HOOKS is run after the emacs-version and PKGNAME are inserted, but |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
243 ;; before the VARLIST is dumped. POST-HOOKS is run after the VARLIST is |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
244 ;; dumped. |
3421 | 245 (let ((buffer (current-buffer))) |
246 (set-buffer buffer) | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
247 (insert "Emacs : " (emacs-version) "\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
248 (and pkgname |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
249 (insert "Package: " pkgname "\n")) |
3421 | 250 (run-hooks 'pre-hooks) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
251 (if (not varlist) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
252 nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
253 (insert "\ncurrent state:\n==============\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
254 ;; 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
|
255 ;; 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
|
256 (condition-case fault |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
257 (let ((mailbuf (current-buffer)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
258 (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
|
259 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
260 (set-buffer elbuf) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
261 (emacs-lisp-mode) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
262 (erase-buffer) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
263 (insert "(setq\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
264 (lisp-indent-line) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
265 (mapcar |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
266 (function |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
267 (lambda (varsym-or-cons-cell) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
268 (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
|
269 varsym-or-cons-cell)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
270 (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
|
271 'reporter-dump-variable))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
272 (funcall printer varsym mailbuf) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
273 ))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
274 varlist) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
275 (lisp-indent-line) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
276 (insert ")\n")) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
277 (insert-buffer elbuf)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
278 (error |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
279 (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
|
280 (format "%s" fault) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
281 "\n\nYou should still send this bug report.")))) |
3421 | 282 (run-hooks 'post-hooks) |
283 )) | |
284 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
285 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
286 (defun reporter-calculate-separator () |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
287 ;; returns the string regexp matching the mail separator |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
288 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
289 (re-search-forward |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
290 (concat |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
291 "^\\(" ;beginning of line |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
292 (mapconcat |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
293 'identity |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
294 (list "[\t ]*" ;simple SMTP form |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
295 "-+" ;mh-e form |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
296 (regexp-quote |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
297 mail-header-separator)) ;sendmail.el form |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
298 "\\|") ;or them together |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
299 "\\)$") ;end of line |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
300 nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
301 'move) ;search for and move |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
302 (buffer-substring (match-beginning 0) (match-end 0)))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
303 |
15590 | 304 |
305 (defun reporter-compose-outgoing () | |
306 ;; compose the outgoing mail buffer, and return the selected | |
307 ;; paradigm, with the current-buffer tacked onto the beginning of | |
308 ;; the list. | |
309 (let* ((agent mail-user-agent) | |
310 (compose (get mail-user-agent 'composefunc))) | |
311 ;; Sanity check. If this fails then we'll try to use the SENDMAIL | |
312 ;; protocol, otherwise we must signal an error. | |
313 (if (not (and compose (fboundp compose))) | |
314 (progn | |
315 (setq agent 'sendmail-user-agent | |
316 compose (get agent 'composefunc)) | |
317 (if (not (and compose (fboundp compose))) | |
15978
86922cff9d87
(reporter-compose-outgoing): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents:
15590
diff
changeset
|
318 (error "Could not find a valid `mail-user-agent'") |
15590 | 319 (ding) |
15978
86922cff9d87
(reporter-compose-outgoing): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents:
15590
diff
changeset
|
320 (message "`%s' is an invalid `mail-user-agent'; using `sendmail-user-agent'" |
15590 | 321 mail-user-agent) |
322 ))) | |
323 (funcall compose) | |
324 agent)) | |
325 | |
326 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
327 ;;;###autoload |
3421 | 328 (defun reporter-submit-bug-report |
329 (address pkgname varlist &optional pre-hooks post-hooks salutation) | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
330 ;; Submit a bug report via mail. |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
331 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
332 ;; ADDRESS is the email address for the package's maintainer. PKGNAME is |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
333 ;; the name of the mode (you must explicitly concat any version numbers). |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
334 ;; VARLIST is the list of variables to dump (see `reporter-dump-state' |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
335 ;; for details). Optional PRE-HOOKS and POST-HOOKS are passed to |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
336 ;; `reporter-dump-state'. Optional SALUTATION is inserted at the top of the |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
337 ;; mail buffer, and point is left after the salutation. |
3421 | 338 |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
339 ;; This function will prompt for a summary if |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
340 ;; reporter-prompt-for-summary-p is non-nil. |
3421 | 341 |
15590 | 342 ;; The mailer used is described in by the variable `mail-user-agent'. |
3903 | 343 (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
|
344 final-resting-place |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
345 after-sep-pos |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
346 (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
|
347 (reporter-status-count 0) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
348 (problem (and reporter-prompt-for-summary-p |
15590 | 349 (read-string (if (stringp reporter-prompt-for-summary-p) |
350 reporter-prompt-for-summary-p | |
351 "(Very) brief summary of problem: ")))) | |
352 (agent (reporter-compose-outgoing)) | |
353 (mailbuf (current-buffer)) | |
354 hookvar) | |
355 ;; do the work | |
3421 | 356 (require 'sendmail) |
15590 | 357 ;; If mailbuf did not get made visible before, make it visible now. |
358 (let (same-window-buffer-names same-window-regexps) | |
15319
4dbee658e623
(reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
15309
diff
changeset
|
359 (pop-to-buffer mailbuf) |
15590 | 360 ;; Just in case the original buffer is not visible now, bring it |
361 ;; back somewhere | |
15319
4dbee658e623
(reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
15309
diff
changeset
|
362 (display-buffer reporter-eval-buffer)) |
3421 | 363 (goto-char (point-min)) |
364 ;; different mailers use different separators, some may not even | |
15590 | 365 ;; use mail-header-separator, but sendmail.el stuff must have this |
366 ;; variable bound. | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
367 (let ((mail-header-separator (reporter-calculate-separator))) |
3421 | 368 (mail-position-on-field "to") |
369 (insert address) | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
370 ;; insert problem summary if available |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
371 (if (and reporter-prompt-for-summary-p problem pkgname) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
372 (progn |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
373 (mail-position-on-field "subject") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
374 (insert pkgname "; " problem))) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
375 ;; move point to the body of the message |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
376 (mail-text) |
3421 | 377 (forward-line 1) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
378 (setq after-sep-pos (point)) |
3421 | 379 (and salutation (insert "\n" salutation "\n\n")) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
380 (unwind-protect |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
381 (progn |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
382 (setq final-resting-place (point-marker)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
383 (insert "\n\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
384 (reporter-dump-state pkgname varlist pre-hooks post-hooks) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
385 (goto-char final-resting-place)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
386 (set-marker final-resting-place nil))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
387 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
388 ;; save initial text and set up the `no-empty-submission' hook. |
15590 | 389 ;; This only works for mailers that support a pre-send hook, and |
390 ;; for which the paradigm has a non-nil value for the `hookvar' | |
391 ;; key in its agent (i.e. sendmail.el's mail-send-hook). | |
392 (save-excursion | |
393 (goto-char (point-max)) | |
394 (skip-chars-backward " \t\n") | |
395 (setq reporter-initial-text (buffer-substring after-sep-pos (point)))) | |
396 (if (setq hookvar (get agent 'hookvar)) | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
397 (progn |
15590 | 398 (make-variable-buffer-local hookvar) |
399 (add-hook hookvar 'reporter-bug-hook))) | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
400 |
15590 | 401 ;; compose the minibuf message and display this. |
402 (let* ((sendkey-whereis (where-is-internal | |
403 (get agent 'sendfunc) nil t)) | |
404 (abortkey-whereis (where-is-internal | |
405 (get agent 'abortfunc) nil t)) | |
406 (sendkey (if sendkey-whereis | |
407 (key-description sendkey-whereis) | |
408 "C-c C-c")) ; TBD: BOGUS hardcode | |
409 (abortkey (if abortkey-whereis | |
410 (key-description abortkey-whereis) | |
411 "M-x kill-buffer")) ; TBD: BOGUS hardcode | |
412 ) | |
413 (message "Please enter your report. Type %s to send, %s to abort." | |
414 sendkey abortkey)) | |
3421 | 415 )) |
416 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
417 (defun reporter-bug-hook () |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
418 ;; prohibit sending mail if empty bug report |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
419 (let ((after-sep-pos |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
420 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
421 (beginning-of-buffer) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
422 (re-search-forward (reporter-calculate-separator) (point-max) 'move) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
423 (forward-line 1) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
424 (point)))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
425 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
426 (goto-char (point-max)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
427 (skip-chars-backward " \t\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
428 (if (and (= (- (point) after-sep-pos) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
429 (length reporter-initial-text)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
430 (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
|
431 reporter-initial-text)) |
15978
86922cff9d87
(reporter-compose-outgoing): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents:
15590
diff
changeset
|
432 (error "Bug report was empty--not sent")) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
433 ))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
434 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
435 |
15590 | 436 (provide 'reporter) |
3421 | 437 ;;; reporter.el ends here |