|
0
|
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
|
