message-caesar-region (and gnus-summary-caesar-message) broken on XEmacs 20.0b91

message-caesar-region (and gnus-summary-caesar-message) broken on XEmacs 20.0b91

[Christopher Davis]

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)