From xemacs-m  Mon Sep  8 18:18:25 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 SAA03700
	for <xemacs-beta@xemacs.org>; Mon, 8 Sep 1997 18:18:25 -0500 (CDT)
Received: from Corp.Sun.COM ([129.145.35.78]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id QAA28694 for <xemacs-beta@xemacs.org>; Mon, 8 Sep 1997 16:17:56 -0700
Received: from legba.Corp.Sun.COM by Corp.Sun.COM (SMI-8.6/SMI-5.3)
	id QAA17487; Mon, 8 Sep 1997 16:17:53 -0700
Received: by legba.Corp.Sun.COM (SMI-8.6/SMI-SVR4)
	id QAA14629; Mon, 8 Sep 1997 16:17:55 -0700
To: xemacs-beta@xemacs.org
Subject: gnus-summary-caesar-message [PATCH]
X-Attribution: GDF
Mail-Copies-To: never
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Sep__8_16:17:55_1997-1"
Content-Transfer-Encoding: 7bit
From: Gary.Foster@Corp.Sun.COM (Gary D. Foster)
Date: 08 Sep 1997 16:17:55 -0700
Message-ID: <bciwwkrfl98.fsf@corp.Sun.COM>
Lines: 41
X-Mailer: Gnus v5.4.65/XEmacs 20.3(beta19) - "Kyiv"

--Multipart_Mon_Sep__8_16:17:55_1997-1
Content-Type: text/plain; charset=US-ASCII

The function `message-make-caesar-translation-table' (in message.el)
is called from `gnus-summary-caesar-message', and it plays naughty
with integer comparisons now (try a W r in the summary buffer).

Here's a patch to message.el to fix it.

-- Gary F.

--Multipart_Mon_Sep__8_16:17:55_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="message.el.patch"
Content-Transfer-Encoding: 7bit

--- lisp/gnus/message.el.orig	Mon Sep  8 16:10:57 1997
+++ lisp/gnus/message.el	Mon Sep  8 16:12:46 1997
@@ -1459,13 +1459,13 @@
     (while (< (incf i) 256)
       (aset table i i))
     (concat
-     (substring table 0 ?A)
-     (substring table (+ ?A n) (+ ?A n (- 26 n)))
-     (substring table ?A (+ ?A n))
-     (substring table (+ ?A 26) ?a)
-     (substring table (+ ?a n) (+ ?a n (- 26 n)))
-     (substring table ?a (+ ?a n))
-     (substring table (+ ?a 26) 255))))
+     (substring table 0 (char-int ?A))
+     (substring table (+ (char-int ?A) n) (+ (char-int ?A) n (- 26 n)))
+     (substring table (char-int ?A) (+ (char-int ?A) n))
+     (substring table (+ (char-int ?A) 26) (char-int ?a))
+     (substring table (+ (char-int ?a) n) (+ (char-int ?a) n (- 26 n)))
+     (substring table (char-int ?a) (+ (char-int ?a) n))
+     (substring table (+ (char-int ?a) 26) 255))))
 
 (defun message-caesar-buffer-body (&optional rotnum)
   "Caesar rotates all letters in the current buffer by 13 places.

--Multipart_Mon_Sep__8_16:17:55_1997-1--

