1 ;;; gnus-ems.el --- functions for making Gnus work under different Emacsen
2 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
7 ;; This file is part of GNU Emacs.
9 ;; GNU Emacs is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs; see the file COPYING. If not, write to
21 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
27 (defvar gnus-mouse-2 [mouse-2])
28 (defvar gnus-easymenu 'easymenu)
30 ;; We do not byte-compile this file, because error messages are such a
35 ((string-match "XEmacs\\|Lucid" emacs-version)
36 ;; XEmacs definitions.
38 (setq gnus-mouse-2 [button2])
39 (setq gnus-easymenu 'auc-menu)
41 (or (memq 'underline (list-faces))
42 (make-face 'underline))
43 (or (face-differs-from-default-p 'underline)
44 (set-face-underline-p 'underline t))
45 (or (fboundp 'set-text-properties)
46 (defun set-text-properties (start end props &optional buffer)
48 (put-text-property start end (car props) (cadr props) buffer)
49 (remove-text-properties start end ()))))
51 (or (fboundp 'make-overlay) (fset 'make-overlay 'make-extent))
52 (or (fboundp 'overlay-put) (fset 'overlay-put 'set-extent-property))
53 (or (fboundp 'move-overlay)
54 (defun move-overlay (extent start end &optional buffer)
55 (set-extent-endpoints extent start end)))
56 (or (boundp 'standard-display-table) (setq standard-display-table nil))
60 (setq gnus-group-mode-hook
63 (easy-menu-add gnus-group-reading-menu)
64 (easy-menu-add gnus-group-group-menu)
65 (easy-menu-add gnus-group-post-menu)
66 (easy-menu-add gnus-group-misc-menu)
67 (gnus-install-mouse-tracker))
68 gnus-group-mode-hook))
69 (setq gnus-summary-mode-hook
72 (easy-menu-add gnus-summary-mark-menu)
73 (easy-menu-add gnus-summary-move-menu)
74 (easy-menu-add gnus-summary-article-menu)
75 (easy-menu-add gnus-summary-thread-menu)
76 (easy-menu-add gnus-summary-misc-menu)
77 (easy-menu-add gnus-summary-post-menu)
78 (easy-menu-add gnus-summary-kill-menu)
79 (gnus-install-mouse-tracker))
80 gnus-summary-mode-hook))
81 (setq gnus-article-mode-hook
84 (easy-menu-add gnus-article-article-menu)
85 (easy-menu-add gnus-article-treatment-menu))
86 gnus-article-mode-hook)))
88 (defun gnus-install-mouse-tracker ()
89 (require 'mode-motion)
90 (setq mode-motion-hook 'mode-motion-highlight-line)))
92 ((and (not (string-match "28.9" emacs-version))
93 (not (string-match "29" emacs-version)))
94 (setq gnus-hidden-properties '(invisible t)))
101 (defun gnus-dummy-func (&rest args))
102 (let ((funcs '(mouse-set-point make-face set-face-foreground
103 set-face-background)))
105 (or (fboundp (car funcs))
106 (fset (car funcs) 'gnus-dummy-func))
107 (setq funcs (cdr funcs))))))
108 (or (fboundp 'file-regular-p)
109 (defun file-regular-p (file)
110 (and (not (file-directory-p file))
111 (not (file-symlink-p file))
112 (file-exists-p file))))
113 (or (fboundp 'face-list)
114 (defun face-list (&rest args)))
117 (defun gnus-ems-redefine ()
119 ((string-match "XEmacs\\|Lucid" emacs-version)
120 ;; XEmacs definitions.
121 (fset 'gnus-set-mouse-face (lambda (string) string))
123 (defun gnus-summary-make-display-table ()
124 (let* ((table (window-display-table)))
126 (setq table (make-vector 261 ())))
128 (while (>= (setq i (1- i)) 0)
129 (aset table i [??])))
132 (while (>= (setq i (1- i)) 127)
133 (aset table i [??])))
134 (setq gnus-summary-display-table table)))
143 ;; byte-compile-warnings: nil
146 ;;; gnus-ems.el ends here