Source

hyperbole / hmh.el

Diff from to

File hmh.el

-;;!emacs
-;;
-;; FILE:         hmh.el
-;; SUMMARY:      Support for Hyperbole buttons in mail reader: Mh.
-;; USAGE:        GNU Emacs Lisp Library
-;; KEYWORDS:     hypermedia, mail
-;;
-;; AUTHOR:       Bob Weiner
-;; ORG:          BeOpen.com
-;;
-;; ORIG-DATE:    21-May-91 at 17:06:36
-;; LAST-MOD:     13-Jun-99 at 01:15:15 by Bob Weiner
-;;
-;; Copyright (C) 1991-1996, BeOpen.com and the Free Software Foundation, Inc.
-;; See the "HY-COPY" file for license information.
-;;
-;; This file is part of Hyperbole.
-;;
-;; DESCRIPTION:  
+;;; hmh.el --- Support for Hyperbole buttons in mail reader: Mh.
+
+;; Copyright (C) 1991-1995 Free Software Foundation, Inc.
+;; Developed with support from Motorola Inc.
+
+;; Author: Bob Weiner, Brown U.
+;; Maintainer: Mats Lidell <matsl@contactor.se>
+;; Keywords: hypermedia, mail
+
+;; This file is part of GNU Hyperbole.
+
+;; GNU Hyperbole is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; GNU Hyperbole is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
 ;; 
 ;;   Automatically configured for use in "hsite.el".
 ;;   If hsite loading fails prior to initializing Hyperbole Mh support,
 ;;
-;;       {M-x Mh-init RET}
+;;       {M-x Mh-init RTN}
 ;;
 ;;   will do it.
 ;;
 ;;     Have not yet overloaded 'mh-insert-letter' to highlight buttons
 ;;   and to merge its button data.
 ;;
-;; DESCRIP-END.
 
-;;; ************************************************************************
+;;; Code:
+
+;;;
 ;;; Other required Elisp libraries
-;;; ************************************************************************
+;;;
 (require 'hmail)
 (load "hsmail")
 (require 'mh-e)
 
-;;; ************************************************************************
+;;;
 ;;; Public variables
-;;; ************************************************************************
+;;;
 
-
-;;; ************************************************************************
+;;;
 ;;; Public functions
-;;; ************************************************************************
+;;;
 
 (defun Mh-init ()
   "Initializes Hyperbole support for Mh mail reading."
   ;; Setup private abstract interface to mail reader-specific functions
   ;; used in "hmail.el".
   ;;
-  (defalias 'rmail:get-new       'mh-inc-folder)
-  (defalias 'rmail:msg-forward   'mh-redistribute)
-  (defalias 'rmail:summ-msg-to   'mh-goto-msg)
-  (defalias 'rmail:summ-new      'mh-rescan-folder)
+  (fset 'rmail:get-new       'mh-inc-folder)
+  (fset 'rmail:msg-forward   'mh-redistribute)
+  (fset 'rmail:summ-msg-to   'mh-goto-msg)
+  (fset 'rmail:summ-new      'mh-rescan-folder)
   (if (interactive-p)
       (message "Hyperbole MH mail reader support initialized."))
   )
 
 (defun Mh-Summ-delete ()        (mh-delete-msg (mh-get-msg-num t)))
 
-(defalias 'Mh-Summ-expunge          'mh-execute-commands)
+(fset 'Mh-Summ-expunge          'mh-execute-commands)
 
 (defun Mh-Summ-goto ()
   (let ((msg-num (mh-get-msg-num nil)))
   (message
    "(Mh-Summ-undelete-all: I don't think mh-e has an undelete operator."))
 
-;;; ************************************************************************
+;;;
 ;;; Private functions
-;;; ************************************************************************
+;;;
 ;;;
 ;;; Overlay version of this function from mh-e.el to run mh-show-hook at end.
 ;;; This hook may already be run, depending on the version of mh-e you are
 ;;;
 (var:append 'mh-before-send-letter-hook '(widen))
 
-;;; ************************************************************************
+;;;
 ;;; Private variables
-;;; ************************************************************************
+;;;
 
 (provide 'hmh)
 
+;;; hmh.el ends here