Mercurial > emacs

comparison lisp/mail/reporter.el @ 90224:2d92f5c9d6ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-78 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 514-518) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 104-105) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 26 Aug 2005 09:51:52 +0000
parents f9a65d7ebd29 74dda054615b
children c5406394f567
comparison
equal deleted inserted replaced
90223:edf295560b5a 90224:2d92f5c9d6ae
1 ;;; reporter.el --- customizable bug reporting of lisp programs 1 ;;; reporter.el --- customizable bug reporting of lisp programs
2 2
3 ;; Copyright (C) 1993,1994,1995,1996,1997,1998 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc.
4 5
5 ;; Author: 1993-1998 Barry A. Warsaw 6 ;; Author: 1993-1998 Barry A. Warsaw
6 ;; Maintainer: FSF 7 ;; Maintainer: FSF
7 ;; Created: 19-Apr-1993 8 ;; Created: 19-Apr-1993
8 ;; Keywords: maint mail tools 9 ;; Keywords: maint mail tools
261 (funcall printer varsym mailbuf) 262 (funcall printer varsym mailbuf)
262 ))) 263 )))
263 varlist) 264 varlist)
264 (lisp-indent-line) 265 (lisp-indent-line)
265 (insert ")\n")) 266 (insert ")\n"))
266 (insert-buffer elbuf)) 267 (insert-buffer-substring elbuf))
267 (error 268 (error
268 (insert "State could not be dumped due to the following error:\n\n" 269 (insert "State could not be dumped due to the following error:\n\n"
269 (format "%s" fault) 270 (format "%s" fault)
270 "\n\nYou should still send this bug report.")))) 271 "\n\nYou should still send this bug report."))))
271 (run-hooks 'post-hooks) 272 (run-hooks 'post-hooks)