summaryrefslogtreecommitdiff
path: root/contrib
diff options
context:
space:
mode:
authorak <ak@138bc75d-0d04-0410-961f-82ee72b054a4>2010-10-18 09:39:15 +0000
committerak <ak@138bc75d-0d04-0410-961f-82ee72b054a4>2010-10-18 09:39:15 +0000
commit210263ee13a4e0bd9513afb9d6568d21a8808ede (patch)
tree16cee18700712e464cb0cb85002ccb6b766f2c8f /contrib
parent66741d8babae57c5d8bcd6aa468283ec5d46e967 (diff)
downloadgcc-210263ee13a4e0bd9513afb9d6568d21a8808ede.tar.gz
Remove gccbug
gcc/ 2010-10-18 Andi Kleen <ak@linux.intel.com> PR other/43448 * gccbug.in: Remove. * Makefile.in (GCCBUG_INSTALL_NAME, gccbug): Remove (doc, distclean, install-common): Remove reference to gccbug. * configure: Regenerate. * configure.ac (all_outputs): Remove gccbug. * doc/configfiles.texi: Remove references to gccbug. * doc/sourcebuild.texi: Dito. contrib/ 2010-10-18 Andi Kleen <ak@linux.intel.com> * gccbug.el: Remove. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165613 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'contrib')
-rw-r--r--contrib/ChangeLog4
-rw-r--r--contrib/gccbug.el84
2 files changed, 4 insertions, 84 deletions
diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index c2c371cce9f..4d46888e6ae 100644
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-18 Andi Kleen <ak@linux.intel.com>
+
+ * gccbug.el: Remove.
+
2010-10-12 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* gcc_update: Run $GCC_HG pull and update separately.
diff --git a/contrib/gccbug.el b/contrib/gccbug.el
deleted file mode 100644
index 55821e5e6c5..00000000000
--- a/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))
-