Mercurial > hg > xemacs-beta

comparison lisp/gnus/messagexmas.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
99 99
100 (defun message-xmas-make-caesar-translation-table (n) 100 (defun message-xmas-make-caesar-translation-table (n)
101 "Create a rot table with offset N." 101 "Create a rot table with offset N."
102 (let ((i -1) 102 (let ((i -1)
103 (table (make-string 256 0)) 103 (table (make-string 256 0))
104 (a (char-to-int ?a)) 104 (a (char-int ?a))
105 (A (char-to-int ?A))) 105 (A (char-int ?A)))
106 (while (< (incf i) 256) 106 (while (< (incf i) 256)
107 (aset table i i)) 107 (aset table i i))
108 (concat 108 (concat
109 (substring table 0 A) 109 (substring table 0 A)
110 (substring table (+ A n) (+ A n (- 26 n))) 110 (substring table (+ A n) (+ A n (- 26 n)))