From: Christopher Davis <ckd@loiosh.kei.com>
Subject: message-caesar-region (and gnus-summary-caesar-message) broken on XEmacs 20.0b91
Date: 24 Jan 1997 19:57:45 -0500 [thread overview]
Message-ID: <w4rajatvue.fsf@loiosh.kei.com> (raw)
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)
reply other threads:[~1997-01-25 0:57 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=w4rajatvue.fsf@loiosh.kei.com \
--to=ckd@loiosh.kei.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).