projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch with Gnus.
[elisp/gnus.git-]
/
lisp
/
messagexmas.el
diff --git
a/lisp/messagexmas.el
b/lisp/messagexmas.el
index
52619dd
..
cf94e54
100644
(file)
--- a/
lisp/messagexmas.el
+++ b/
lisp/messagexmas.el
@@
-1,5
+1,5
@@
;;; messagexmas.el --- XEmacs extensions to message
;;; messagexmas.el --- XEmacs extensions to message
-;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97,98,99 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: mail, news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: mail, news
@@
-25,6
+25,7
@@
;;; Code:
;;; Code:
+(eval-when-compile (require 'cl))
(require 'nnheader)
(defvar message-xmas-dont-activate-region t
(require 'nnheader)
(defvar message-xmas-dont-activate-region t
@@
-39,7
+40,7
@@
automatically.")
'default-toolbar
nil)
"*If nil, do not use a toolbar.
'default-toolbar
nil)
"*If nil, do not use a toolbar.
-If it is non-nil, it must be a toolbar. The five legal values are
+If it is non-nil, it must be a toolbar. The five valid values are
`default-toolbar', `top-toolbar', `bottom-toolbar',
`right-toolbar', and `left-toolbar'.")
`default-toolbar', `top-toolbar', `bottom-toolbar',
`right-toolbar', and `left-toolbar'.")
@@
-90,7
+91,8
@@
If it is non-nil, it must be a toolbar. The five legal values are
"Exchange point and mark, but allow for XEmacs' optional argument."
(exchange-point-and-mark message-xmas-dont-activate-region))
"Exchange point and mark, but allow for XEmacs' optional argument."
(exchange-point-and-mark message-xmas-dont-activate-region))
-(fset 'message-exchange-point-and-mark 'message-xmas-exchange-point-and-mark)
+(defalias 'message-exchange-point-and-mark
+ 'message-xmas-exchange-point-and-mark)
(defun message-xmas-maybe-fontify ()
(when (featurep 'font-lock)
(defun message-xmas-maybe-fontify ()
(when (featurep 'font-lock)
@@
-100,8
+102,8
@@
If it is non-nil, it must be a toolbar. The five legal values are
"Create a rot table with offset N."
(let ((i -1)
(table (make-string 256 0))
"Create a rot table with offset N."
(let ((i -1)
(table (make-string 256 0))
- (a (mm-char-int ?a))
- (A (mm-char-int ?A)))
+ (a (char-int ?a))
+ (A (char-int ?A)))
(while (< (incf i) 256)
(aset table i i))
(concat
(while (< (incf i) 256)
(aset table i i))
(concat
@@
-114,8
+116,8
@@
If it is non-nil, it must be a toolbar. The five legal values are
(substring table (+ a 26) 255))))
(when (>= emacs-major-version 20)
(substring table (+ a 26) 255))))
(when (>= emacs-major-version 20)
- (fset 'message-make-caesar-translation-table
- 'message-xmas-make-caesar-translation-table))
+ (defalias 'message-make-caesar-translation-table
+ 'message-xmas-make-caesar-translation-table))
(add-hook 'message-mode-hook 'message-xmas-maybe-fontify)
(add-hook 'message-mode-hook 'message-xmas-maybe-fontify)