Mercurial > hg > xemacs-beta

comparison lisp/gnus/messagexmas.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children 4be1180a9e89
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; messagexmas.el --- XEmacs extensions to message 1 ;;; messagexmas.el --- XEmacs extensions to message
2 ;; Copyright (C) 1996 Free Software Foundation, Inc. 2 ;; Copyright (C) 1996,97 Free Software Foundation, Inc.
3 3
4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
5 ;; Keywords: mail, news 5 ;; Keywords: mail, news
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
25 25
26 ;;; Code: 26 ;;; Code:
27 27
28 (require 'nnheader) 28 (require 'nnheader)
29 29
30 (defvar message-xmas-dont-activate-region nil 30 (defvar message-xmas-dont-activate-region t
31 "If t, don't activate region after yanking.") 31 "If t, don't activate region after yanking.")
32 32
33 (defvar message-xmas-glyph-directory nil 33 (defvar message-xmas-glyph-directory nil
34 "*Directory where Message logos and icons are located. 34 "*Directory where Message logos and icons are located.
35 If this variable is nil, Message will try to locate the directory 35 If this variable is nil, Message will try to locate the directory
90 "Exchange point and mark, but allow for XEmacs' optional argument." 90 "Exchange point and mark, but allow for XEmacs' optional argument."
91 (exchange-point-and-mark message-xmas-dont-activate-region)) 91 (exchange-point-and-mark message-xmas-dont-activate-region))
92 92
93 (fset 'message-exchange-point-and-mark 'message-xmas-exchange-point-and-mark) 93 (fset 'message-exchange-point-and-mark 'message-xmas-exchange-point-and-mark)
94 94
95 (defun message-xmas-maybe-fontify ()
96 (when (and (featurep 'font-lock)
97 font-lock-auto-fontify)
98 (turn-on-font-lock)))
99
100 (add-hook 'message-mode-hook 'message-xmas-maybe-fontify)
101
95 (provide 'messagexmas) 102 (provide 'messagexmas)
96 103
97 ;;; messagexmas.el ends here 104 ;;; messagexmas.el ends here