OSDN Git Service

* config/sol2.c (solaris_assemble_visibility): Declare decl, vis
[pf3gnuchains/gcc-fork.git] / contrib / gccbug.el
1 ;;; gccbug.el --- forward bug reports to gnats
2 ;; (C) 2000 Free Software Foundation
3 ;; Written by Martin v. Löwis
4 ;; Usage:
5 ;; In rmail, bind a key to rmail-gccbug-reply, e.g.
6 ;;   (require 'rmail)
7 ;;   (require 'gccbug)
8 ;;   (define-key rmail-mode-map "R" 'rmail-gccbug-reply)
9 ;; Then, when reviewing a report, type R to create a gnats-formatted
10 ;; message.
11
12 (provide 'gccbug)
13
14 (defun gccbug-reply ()
15   (interactive)
16   (let ((orig-yank-prefix mail-yank-prefix))
17     (insert ">Submitter-Id: net\n")
18     (insert ">Originator: \n")
19     (insert ">Confidential: no\n")
20     (insert ">Synopsis: ")
21     (save-excursion
22       (mail-subject)
23       (let ((stop (point)))
24         (re-search-backward "Re: ")
25         (copy-region-as-kill (match-end 0) stop)))
26     (yank)
27     (insert "\n")
28     (insert ">Severity: serious\n")
29     (insert ">Priority: medium\n")
30     (insert ">Category: \n")
31     (insert ">Class: \n")
32     ;(insert ">State: analyzed\n")
33     (insert ">Release: 2.95.2\n")
34     (insert ">Environment:\n")
35     (insert ">Description:\n")
36     (set 'mail-yank-prefix nil)
37     (set 'mail-yank-ignored-headers 
38          "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^remailed\\|^received:\\|^summary-line:\\|^to:\\|^subject:\\|^in-reply-to:\\|^return-path:\\|^X-.*:\\|^User-Agent:\\|^MIME-Version:\\|^Content-.*:\\|^List-.*:\\|C[Cc]:\\|^Precedence:\\|^Sender:\\|^Mailing-List:\\|^Delivered-To:\\|^>From")
39     (mail-yank-original t)
40     (set 'mail-yank-prefix orig-yank-prefix)
41     ; Copy From: field to Originator:
42     (re-search-backward "From: ")
43     (let ((beg (match-end 0)))
44       (end-of-line)
45       (kill-region beg (point)))
46     (re-search-backward ">Originator: ")
47     (goto-char (match-end 0))
48     (yank)
49     ; Kill From: line
50     (re-search-forward "From:")
51     (beginning-of-line)
52     (kill-line 1)
53     ; Replace Message-ID: with Original-Message-ID
54     (beginning-of-buffer)
55     (re-search-forward "Message-ID: .*")
56     (replace-match "Original-\\&")
57     ; Replace To: line, adding recipient to Notify list
58     (mail-to)
59     (re-search-backward "To: ")
60     (replace-match "To: gcc-gnats@gcc.gnu.org\nX-GNATS-Notify: ")
61     ; add additional fields
62     (end-of-buffer)
63     (insert ">How-To-Repeat: \n>Fix: \n")
64     ; See whether an Organization: is present
65     (let ((org (re-search-backward "Organization:.*" nil t)))
66       (if org
67           (progn 
68             (kill-region (point) (match-end 0))
69             (re-search-backward ">Confidential")
70             (insert ">")
71             (yank)
72             (insert "\n"))))
73 ;     This kills CC: lines, but rmail-reply below won't create any
74 ;     (mail-cc)
75 ;     (beginning-of-line)
76 ;     (kill-line 1)
77     ))
78
79 (defun rmail-gccbug-reply ()
80   (interactive)
81   (rmail-toggle-header 0)
82   (rmail-reply t)
83   (gccbug-reply))
84