From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/9612
Path: main.gmane.org!not-for-mail
From: Christopher Davis <ckd@loiosh.kei.com>
Newsgroups: gmane.emacs.gnus.general
Subject: message-caesar-region (and gnus-summary-caesar-message) broken on XEmacs 20.0b91
Date: 24 Jan 1997 19:57:45 -0500
Message-ID: <w4rajatvue.fsf@loiosh.kei.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.100)
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: main.gmane.org 1035149609 19464 80.91.224.250 (20 Oct 2002 21:33:29 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:33:29 +0000 (UTC)
Return-Path: <ding-request@ifi.uio.no>
Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2])
	by deanna.miranova.com (8.8.5/8.8.5) with SMTP id RAA18976
	for <steve@miranova.com>; Fri, 24 Jan 1997 17:13:05 -0800
Original-Received: from loiosh.kei.com (ckd@loiosh.kei.com [192.88.144.32]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <BAA03555@ifi.uio.no> for <ding@ifi.uio.no> ; Sat, 25 Jan 1997 01:58:54 +0100
Original-Received: (from ckd@localhost)
	by loiosh.kei.com (8.8.5/8.8.5) id TAA14252;
	Fri, 24 Jan 1997 19:57:45 -0500 (EST)
Original-To: xemacs-beta@xemacs.org, ding@ifi.uio.no
X-Attribution: ckd
Original-Lines: 28
Xref: main.gmane.org gmane.emacs.gnus.general:9612
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:9612

Characters aren't integers any more in XEmacs 20.0; the supplied
message.el in Gnus 5.2.40 fails to recognize this.  I actually noticed the
problem when trying to de-rot13 a message in rec.arts.sf.written with
gnus-summary-caesar-message, but it was easier to generate the backtrace
using message-caesar-region.

tm:caesar-region works fine, though.  Steal the code from that! :)

Signaling: (wrong-type-argument integerp ?A)
  substring("
  (concat (substring table 0 ?A) (substring table (+ ?A n) (+ ?A n ...)) (substring table ?A (+ ?A n)) (substring table (+ ?A 26) ?a) (substring table (+ ?a n) (+ ?a n ...)) (substring table ?a (+ ?a n)) (substring table (+ ?a 26) 255))
)
  (setq table (concat (substring table 0 ?A) (substring table ... ...) (substring table ?A ...) (substring table ... ?a) (substring table ... ...) (substring table ?a ...) (substring table ... 255)))
)
  (let ((i -1) (table ...)) (while (< ... 256) (aset table i i)) (setq table (concat ... ... ... ... ... ... ...)) (setq message-caesar-translation-table table))
)
  (progn (let (... ...) (while ... ...) (setq table ...) (setq message-caesar-translation-table table)))
)
  (if (or (not message-caesar-translation-table) (/= ... ...)) (progn (let ... ... ... ...)))
)
  (when (or (not message-caesar-translation-table) (/= ... ...)) (let (... ...) (while ... ...) (setq table ...) (setq message-caesar-translation-table table)))
)
  (if (or (zerop n) (= b e)) nil (when (or ... ...) (let ... ... ... ...)) (while (< b e) (subst-char-in-region b ... ... ...) (incf b)))
)
  (unless (or (zerop n) (= b e)) (when (or ... ...) (let ... ... ... ...)) (while (< b e) (subst-char-in-region b ... ... ...) (incf b)))
)
  (lambda (b e &optional n) "Caesar rotation of region by N, default 13, for decrypting netnews." (interactive (list ... ... ...)) (setq n (if ... ... 13)) (unless (or ... ...) (when ... ...) (while ... ... ...)))(120 134 nil)
  call-interactively(message-caesar-region)