aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.2.1/contrib/gccbug.el
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.2.1/contrib/gccbug.el')
-rw-r--r--gcc-4.2.1/contrib/gccbug.el84
1 files changed, 0 insertions, 84 deletions
diff --git a/gcc-4.2.1/contrib/gccbug.el b/gcc-4.2.1/contrib/gccbug.el
deleted file mode 100644
index 55821e5e6..000000000
--- a/gcc-4.2.1/contrib/gccbug.el
+++ /dev/null
@@ -1,84 +0,0 @@
-;;; gccbug.el --- forward bug reports to gnats
-;; (C) 2000 Free Software Foundation
-;; Written by Martin v. Löwis
-;; Usage:
-;; In rmail, bind a key to rmail-gccbug-reply, e.g.
-;; (require 'rmail)
-;; (require 'gccbug)
-;; (define-key rmail-mode-map "R" 'rmail-gccbug-reply)
-;; Then, when reviewing a report, type R to create a gnats-formatted
-;; message.
-
-(provide 'gccbug)
-
-(defun gccbug-reply ()
- (interactive)
- (let ((orig-yank-prefix mail-yank-prefix))
- (insert ">Submitter-Id: net\n")
- (insert ">Originator: \n")
- (insert ">Confidential: no\n")
- (insert ">Synopsis: ")
- (save-excursion
- (mail-subject)
- (let ((stop (point)))
- (re-search-backward "Re: ")
- (copy-region-as-kill (match-end 0) stop)))
- (yank)
- (insert "\n")
- (insert ">Severity: serious\n")
- (insert ">Priority: medium\n")
- (insert ">Category: \n")
- (insert ">Class: \n")
- ;(insert ">State: analyzed\n")
- (insert ">Release: 2.95.2\n")
- (insert ">Environment:\n")
- (insert ">Description:\n")
- (set 'mail-yank-prefix nil)
- (set 'mail-yank-ignored-headers
- "^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")
- (mail-yank-original t)
- (set 'mail-yank-prefix orig-yank-prefix)
- ; Copy From: field to Originator:
- (re-search-backward "From: ")
- (let ((beg (match-end 0)))
- (end-of-line)
- (kill-region beg (point)))
- (re-search-backward ">Originator: ")
- (goto-char (match-end 0))
- (yank)
- ; Kill From: line
- (re-search-forward "From:")
- (beginning-of-line)
- (kill-line 1)
- ; Replace Message-ID: with Original-Message-ID
- (beginning-of-buffer)
- (re-search-forward "Message-ID: .*")
- (replace-match "Original-\\&")
- ; Replace To: line, adding recipient to Notify list
- (mail-to)
- (re-search-backward "To: ")
- (replace-match "To: gcc-gnats@gcc.gnu.org\nX-GNATS-Notify: ")
- ; add additional fields
- (end-of-buffer)
- (insert ">How-To-Repeat: \n>Fix: \n")
- ; See whether an Organization: is present
- (let ((org (re-search-backward "Organization:.*" nil t)))
- (if org
- (progn
- (kill-region (point) (match-end 0))
- (re-search-backward ">Confidential")
- (insert ">")
- (yank)
- (insert "\n"))))
-; This kills CC: lines, but rmail-reply below won't create any
-; (mail-cc)
-; (beginning-of-line)
-; (kill-line 1)
- ))
-
-(defun rmail-gccbug-reply ()
- (interactive)
- (rmail-toggle-header 0)
- (rmail-reply t)
- (gccbug-reply))
-