From xemacs-m  Wed Jun 18 12:24:57 1997
Received: from mercury.Sun.COM (mercury.Sun.COM [192.9.25.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id MAA24303
	for <xemacs-beta@xemacs.org>; Wed, 18 Jun 1997 12:24:56 -0500 (CDT)
Received: from Corp.Sun.COM ([129.145.35.78]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id KAA28116 for <xemacs-beta@xemacs.org>; Wed, 18 Jun 1997 10:46:13 -0700
Received: from legba.Corp.Sun.COM by Corp.Sun.COM (SMI-8.6/SMI-5.3)
	id KAA28235; Wed, 18 Jun 1997 10:24:27 -0700
Received: by legba.Corp.Sun.COM (SMI-8.6/SMI-SVR4)
	id KAA23582; Wed, 18 Jun 1997 10:24:24 -0700
To: xemacs-beta@xemacs.org
Subject: new gnus "\177" [PATCH]
X-Attribution: GDF
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Jun_18_10:24:23_1997-1"
Content-Transfer-Encoding: 7bit
From: Gary.Foster@Corp.Sun.COM (Gary D. Foster)
Date: 18 Jun 1997 10:24:23 -0700
Message-ID: <bcisoyfvn7c.fsf@corp.Sun.COM>
Lines: 103
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta7) - "Oslo"

--Multipart_Wed_Jun_18_10:24:23_1997-1
Content-Type: text/plain; charset=US-ASCII

Back out the last two gnus patches I posted... or just restore and
apply this one to the virgin (beta 7 versions) gnus files.

Thanks to Per for finding my inadvertant goof... I guess I don't need
to be quite so zealous in _removing_ all the "\177" entries... just
_supplementing_ them.

-- Gary F.


--Multipart_Wed_Jun_18_10:24:23_1997-1
Content-Type: text/plain; name="newgnus.patch"; charset=US-ASCII

--- lisp/gnus/gnus-art.el.orig	Wed Jun 18 10:07:34 1997
+++ lisp/gnus/gnus-art.el	Wed Jun 18 10:08:26 1997
@@ -1746,6 +1746,7 @@
 (gnus-define-keys gnus-article-mode-map
   " " gnus-article-goto-next-page
   "\177" gnus-article-goto-prev-page
+  [backspace] gnus-article-goto-prev-page
   [delete] gnus-article-goto-prev-page
   "\C-c^" gnus-article-refer-article
   "h" gnus-article-show-summary
--- lisp/gnus/gnus-group.el.orig	Wed Jun 18 10:07:35 1997
+++ lisp/gnus/gnus-group.el	Wed Jun 18 10:09:17 1997
@@ -423,6 +423,7 @@
     "n" gnus-group-next-unread-group
     "p" gnus-group-prev-unread-group
     "\177" gnus-group-prev-unread-group
+    [backspace] gnus-group-prev-unread-group
     [delete] gnus-group-prev-unread-group
     "N" gnus-group-next-group
     "P" gnus-group-prev-group
@@ -505,6 +506,7 @@
     "r" gnus-group-rename-group
     "c" gnus-group-customize
     "\177" gnus-group-delete-group
+    [backspace] gnus-group-delete-group
     [delete] gnus-group-delete-group)
 
   (gnus-define-keys (gnus-group-soup-map "s" gnus-group-group-map)
--- lisp/gnus/gnus-srvr.el.orig	Wed Jun 18 10:07:35 1997
+++ lisp/gnus/gnus-srvr.el	Wed Jun 18 10:13:43 1997
@@ -503,6 +503,8 @@
    "n" gnus-browse-next-group
    "p" gnus-browse-prev-group
    "\177" gnus-browse-prev-group
+   [backspace] gnus-browse-prev-group
+   [delete] gnus-browse-prev-group
    "N" gnus-browse-next-group
    "P" gnus-browse-prev-group
    "\M-n" gnus-browse-next-group
--- lisp/gnus/gnus-sum.el.orig	Wed Jun 18 10:07:35 1997
+++ lisp/gnus/gnus-sum.el	Wed Jun 18 10:17:20 1997
@@ -1036,6 +1036,7 @@
   (gnus-define-keys gnus-summary-mode-map
     " " gnus-summary-next-page
     "\177" gnus-summary-prev-page
+    [backspace] gnus-summary-prev-page
     [delete] gnus-summary-prev-page
     "\r" gnus-summary-scroll-up
     "n" gnus-summary-next-unread-article
@@ -1235,6 +1236,7 @@
     " " gnus-summary-next-page
     "n" gnus-summary-next-page
     "\177" gnus-summary-prev-page
+    [backspace] gnus-summary-prev-page
     [delete] gnus-summary-prev-page
     "p" gnus-summary-prev-page
     "\r" gnus-summary-scroll-up
@@ -1307,6 +1309,7 @@
     "e" gnus-summary-expire-articles
     "\M-\C-e" gnus-summary-expire-articles-now
     "\177" gnus-summary-delete-article
+    [backspace] gnus-summary-delete-article
     [delete] gnus-summary-delete-article
     "m" gnus-summary-move-article
     "r" gnus-summary-respool-article
@@ -4997,7 +5000,7 @@
   (suppress-keymap gnus-dead-summary-mode-map)
   (substitute-key-definition
    'undefined 'gnus-summary-wake-up-the-dead gnus-dead-summary-mode-map)
-  (let ((keys '("\C-d" "\r" "\177")))
+  (let ((keys '("\C-d" "\r" "\177" [backspace] [delete])))
     (while keys
       (define-key gnus-dead-summary-mode-map
 	(pop keys) 'gnus-summary-wake-up-the-dead))))
--- lisp/gnus/gnus-topic.el.orig	Wed Jun 18 10:07:36 1997
+++ lisp/gnus/gnus-topic.el	Wed Jun 18 10:17:56 1997
@@ -894,6 +894,8 @@
     [tab] gnus-topic-indent
     "r" gnus-topic-rename
     "\177" gnus-topic-delete
+    [backpace] gnus-topic-delete
+    [delete] gnus-topic-delete
     "h" gnus-topic-toggle-display-empty-topics)
 
   (gnus-define-keys (gnus-topic-sort-map "S" gnus-group-topic-map)

--Multipart_Wed_Jun_18_10:24:23_1997-1--

