From xemacs-m  Mon Jun 16 14:18:29 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 OAA25065
	for <xemacs-beta@xemacs.org>; Mon, 16 Jun 1997 14:18:26 -0500 (CDT)
Received: from Corp.Sun.COM ([129.145.35.78]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id MAA20097 for <xemacs-beta@xemacs.org>; Mon, 16 Jun 1997 12:39:14 -0700
Received: from legba.Corp.Sun.COM by Corp.Sun.COM (SMI-8.6/SMI-5.3)
	id MAA18544; Mon, 16 Jun 1997 12:17:53 -0700
Received: by legba.Corp.Sun.COM (SMI-8.6/SMI-SVR4)
	id MAA15982; Mon, 16 Jun 1997 12:17:53 -0700
To: Hrvoje Niksic <hniksic@srce.hr>
Cc: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Re: BS/DEL code changes [PATCH]
References: <m2pvtnno0m.fsf@altair.xemacs.org> <bcisoyis8w4.fsf@corp.Sun.COM> <kigafkqmltm.fsf@jagor.srce.hr>
X-Attribution: GDF
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Jun_16_12:17:53_1997-1"
Content-Transfer-Encoding: 7bit
From: Gary.Foster@Corp.Sun.COM (Gary D. Foster)
Date: 16 Jun 1997 12:17:53 -0700
In-Reply-To: Hrvoje Niksic's message of "16 Jun 1997 20:42:13 +0200"
Message-ID: <bcihgeys6fy.fsf_-_@corp.Sun.COM>
Lines: 114
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta6) - "Moscow"

--Multipart_Mon_Jun_16_12:17:53_1997-1
Content-Type: text/plain; charset=US-ASCII

>>>>> "Hrv" == Hrvoje Niksic <hniksic@srce.hr> writes:

    Hrv> Try entering a group.  `B DEL' deletes an article in mail
    Hrv> groups.

Ahh...  more "\177" stuff.  I need a cool name like "ebola" for
these... there's sure more of them than I originally realized.

Patch attached.

-- Gary F.


--Multipart_Mon_Jun_16_12:17:53_1997-1
Content-Type: text/plain; name="gnus.patch"; charset=US-ASCII

--- lisp/gnus/gnus-art.el.orig	Mon Jun 16 12:06:59 1997
+++ lisp/gnus/gnus-art.el	Mon Jun 16 12:08:12 1997
@@ -1745,7 +1745,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	Mon Jun 16 12:07:10 1997
+++ lisp/gnus/gnus-group.el	Mon Jun 16 12:13:25 1997
@@ -422,7 +422,7 @@
     "j" gnus-group-jump-to-group
     "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
@@ -504,7 +504,7 @@
     "w" gnus-group-make-web-group
     "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	Mon Jun 16 12:07:23 1997
+++ lisp/gnus/gnus-srvr.el	Mon Jun 16 12:09:44 1997
@@ -502,7 +502,8 @@
    "=" gnus-browse-select-group
    "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	Mon Jun 16 12:07:32 1997
+++ lisp/gnus/gnus-sum.el	Mon Jun 16 12:11:37 1997
@@ -1035,7 +1035,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
@@ -1234,7 +1234,7 @@
   (gnus-define-keys (gnus-summary-article-map "A" gnus-summary-mode-map)
     " " 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
@@ -1306,7 +1306,7 @@
   (gnus-define-keys (gnus-summary-backend-map "B" gnus-summary-mode-map)
     "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 +4997,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" '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	Mon Jun 16 12:07:40 1997
+++ lisp/gnus/gnus-topic.el	Mon Jun 16 12:12:57 1997
@@ -893,7 +893,8 @@
     "\C-i" gnus-topic-indent
     [tab] gnus-topic-indent
     "r" gnus-topic-rename
-    "\177" gnus-topic-delete
+    [backspace] 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_Mon_Jun_16_12:17:53_1997-1--

