Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hgnus.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
4 ;; SUMMARY: Support Hyperbole buttons in news reader/poster: GNUS. 4 ;; SUMMARY: Support Hyperbole buttons in news reader/poster: GNUS.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: hypermedia, news 6 ;; KEYWORDS: hypermedia, news
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: Brown U. 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 24-Dec-91 at 22:29:28 by Bob Weiner 11 ;; ORIG-DATE: 24-Dec-91 at 22:29:28 by Bob Weiner
12 ;; LAST-MOD: 8-Aug-95 at 10:53:53 by Bob Weiner 12 ;; LAST-MOD: 26-Jan-97 at 14:43:54 by Bob Weiner
13 ;; 13 ;;
14 ;; This file is part of Hyperbole. 14 ;; This file is part of Hyperbole.
15 ;; Available for use and distribution under the same terms as GNU Emacs. 15 ;; Available for use and distribution under the same terms as GNU Emacs.
16 ;; 16 ;;
17 ;; Copyright (C) 1991-1995, Free Software Foundation, Inc. 17 ;; Copyright (C) 1991-1996, Free Software Foundation, Inc.
18 ;; Developed with support from Motorola Inc. 18 ;; Developed with support from Motorola Inc.
19 ;; 19 ;;
20 ;; DESCRIPTION: 20 ;; DESCRIPTION:
21 ;; 21 ;;
22 ;; This only works with GNUS 3.15 or above, so be sure to check your 22 ;; This only works with GNUS 3.15 or above, so be sure to check your
24 ;; problems. 24 ;; problems.
25 ;; 25 ;;
26 ;; Automatically configured for use in "hyperbole.el". 26 ;; Automatically configured for use in "hyperbole.el".
27 ;; If hsite loading fails prior to initializing Hyperbole Gnus support, 27 ;; If hsite loading fails prior to initializing Hyperbole Gnus support,
28 ;; 28 ;;
29 ;; {M-x Gnus-init RTN} 29 ;; {M-x Gnus-init RET}
30 ;; 30 ;;
31 ;; will do it. 31 ;; will do it.
32 ;; 32 ;;
33 ;; 33 ;;
34 ;; Have not yet overloaded 'news-reply-yank-original' 34 ;; Have not yet overloaded 'news-reply-yank-original'
40 ;;; Other required Elisp libraries 40 ;;; Other required Elisp libraries
41 ;;; ************************************************************************ 41 ;;; ************************************************************************
42 42
43 (require 'hmail) 43 (require 'hmail)
44 (require 'hsmail) 44 (require 'hsmail)
45 ;; This is not in Gnus 5.x 45 (cond ((or (featurep 'gnus-msg)
46 ;(require 'gnuspost) 46 (featurep 'gnuspost)))
47 ((load "gnus-msg" t))
48 (t (load "gnuspost" t)))
47 49
48 ;;; ************************************************************************ 50 ;;; ************************************************************************
49 ;;; Public variables 51 ;;; Public variables
50 ;;; ************************************************************************ 52 ;;; ************************************************************************
51 53