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 85