Mercurial > hg > xemacs-beta

comparison lisp/gnus/messagexmas.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 4103f0995bd7
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
41 "*If nil, do not use a toolbar. 41 "*If nil, do not use a toolbar.
42 If it is non-nil, it must be a toolbar. The five legal values are 42 If it is non-nil, it must be a toolbar. The five legal values are
43 `default-toolbar', `top-toolbar', `bottom-toolbar', 43 `default-toolbar', `top-toolbar', `bottom-toolbar',
44 `right-toolbar', and `left-toolbar'.") 44 `right-toolbar', and `left-toolbar'.")
45 45
46 (defvar message-toolbar 46 (defvar message-toolbar
47 '([message-spell ispell-message t "Spell"] 47 '([message-spell ispell-message t "Spell"]
48 [message-help (Info-goto-node "(Message)Top") t "Message help"]) 48 [message-help (Info-goto-node "(Message)Top") t "Message help"])
49 "The message buffer toolbar.") 49 "The message buffer toolbar.")
50 50
51 (defun message-xmas-find-glyph-directory (&optional package) 51 (defun message-xmas-find-glyph-directory (&optional package)
97 font-lock-auto-fontify) 97 font-lock-auto-fontify)
98 (turn-on-font-lock))) 98 (turn-on-font-lock)))
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-int ?a)) 104 (a (char-to-int ?a))
105 (A (char-int ?A))) 105 (A (char-to-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)))