| [2] | 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")
|
|---|
| |
|---|
