From xemacs-m  Tue Sep  9 05:32:58 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id FAA06469
	for <xemacs-beta@xemacs.org>; Tue, 9 Sep 1997 05:32:50 -0500 (CDT)
Received: (from hniksic@localhost)
	by jagor.srce.hr (8.8.7/8.8.6) id MAA15909;
	Tue, 9 Sep 1997 12:32:38 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Re: gnus-summary-caesar-message [PATCH]
References: <bciwwkrfl98.fsf@corp.Sun.COM>
X-Attribution: Hrvoje
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 09 Sep 1997 12:32:38 +0200
In-Reply-To: Gary.Foster@Corp.Sun.COM's message of "08 Sep 1997 16:17:55 -0700"
Message-ID: <kigk9gqixq1.fsf@jagor.srce.hr>
Lines: 56
X-Mailer: Gnus v5.4.65/XEmacs 20.3(beta19) - "Kyiv"

Gary.Foster@Corp.Sun.COM (Gary D. Foster) writes:

> --- 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))))

Hmm.  Have you checked what effects this has in GNU Emacs 19.34?  I
don't think it has a `char-int' function.  The same goes for 19.15, I
believe.  Furthermore, I was under the expression that the
function that does the translation for XEmacs is in messagexmas.el,
and looks like this:

(defun message-xmas-make-caesar-translation-table (n)
  "Create a rot table with offset N."
  (let ((i -1)
	(table (make-string 256 0))
	(a (char-int ?a))
	(A (char-int ?A)))
    (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))))

Looks correct to me...


P.S.
`W r' works for me in the Summary buffer.

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Speak softly and carry a +6 two-handed sword.

