Mercurial > hg > xemacs-beta

comparison lisp/gnus/messagexmas.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 4be1180a9e89
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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-int ?a))
105 (A (char-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))