Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 110015:280c8ae2476d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add "Package:" file headers to denote built-in packages.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 29 Aug 2010 12:17:13 -0400
parents ea341a06439f
children b8fde5ef9e14
comparison
equal deleted inserted replaced
110014:f576b550fb69 110015:280c8ae2476d
5 ;; Free Software Foundation, Inc. 5 ;; Free Software Foundation, Inc.
6 6
7 ;; Author: K. Shane Hartman 7 ;; Author: K. Shane Hartman
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
9 ;; Keywords: maint mail 9 ;; Keywords: maint mail
10 ;; Package: emacs
10 11
11 ;; This file is part of GNU Emacs. 12 ;; This file is part of GNU Emacs.
12 13
13 ;; GNU Emacs is free software: you can redistribute it and/or modify 14 ;; GNU Emacs is free software: you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 15 ;; it under the terms of the GNU General Public License as published by
117 "--subject" subject 118 "--subject" subject
118 "--body" body 119 "--body" body
119 (concat "mailto:" to)) 120 (concat "mailto:" to))
120 (error "Subject, To or body not found"))))) 121 (error "Subject, To or body not found")))))
121 122
122 123
123 ;;;###autoload 124 ;;;###autoload
124 (defun report-emacs-bug (topic &optional recent-keys) 125 (defun report-emacs-bug (topic &optional recent-keys)
125 "Report a bug in GNU Emacs. 126 "Report a bug in GNU Emacs.
126 Prompts for bug subject. Leaves you in a mail buffer." 127 Prompts for bug subject. Leaves you in a mail buffer."
127 ;; This strange form ensures that (recent-keys) is the value before 128 ;; This strange form ensures that (recent-keys) is the value before
272 (fill-region (line-beginning-position 0) (point)) 273 (fill-region (line-beginning-position 0) (point))
273 ;; This is so the user has to type something in order to send easily. 274 ;; This is so the user has to type something in order to send easily.
274 (use-local-map (nconc (make-sparse-keymap) (current-local-map))) 275 (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
275 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) 276 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info)
276 (if can-xdg-email 277 (if can-xdg-email
277 (define-key (current-local-map) "\C-cm" 278 (define-key (current-local-map) "\C-cm"
278 'report-emacs-bug-insert-to-mailer)) 279 'report-emacs-bug-insert-to-mailer))
279 ;; Could test major-mode instead. 280 ;; Could test major-mode instead.
280 (cond ((memq mail-user-agent '(message-user-agent gnus-user-agent)) 281 (cond ((memq mail-user-agent '(message-user-agent gnus-user-agent))
281 (setq report-emacs-bug-send-command "message-send-and-exit" 282 (setq report-emacs-bug-send-command "message-send-and-exit"
282 report-emacs-bug-send-hook 'message-send-hook)) 283 report-emacs-bug-send-hook 'message-send-hook))