# HG changeset patch # User Joseph Arceneaux # Date 716585321 0 # Node ID 907639748f2489d224cd77c0d9ea3cb5b09257e1 # Parent 02b2f761f9dff9e1175570f2f88178bf7b16e022 *** empty log message *** diff -r 02b2f761f9df -r 907639748f24 lisp/mail/mailabbrev.el --- a/lisp/mail/mailabbrev.el Tue Sep 15 10:00:34 1992 +0000 +++ b/lisp/mail/mailabbrev.el Tue Sep 15 19:28:41 1992 +0000 @@ -1,13 +1,8 @@ -;;; mailabbrev.el --- abbrev-expansion of mail aliases. - +;;; Abbrev-expansion of mail aliases. ;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. - -;; Author: Jamie Zawinski -;; Maintainer: Jamie Zawinski -;; Created: 19 Oct 90 -;; Keywords: mail - -;;; ??? We must get papers for this or delete it. +;;; Created: 19 oct 90, Jamie Zawinski +;;; Modified: 5 apr 92, Roland McGrath +;;; Last change 27-aug-92. jwz ;;; This file is part of GNU Emacs. @@ -25,8 +20,6 @@ ;;; along with GNU Emacs; see the file COPYING. If not, write to ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; Commentary: - ;;; This file ensures that, when the point is in a To:, CC:, BCC:, or From: ;;; field, word-abbrevs are defined for each of your mail aliases. These ;;; aliases will be defined from your .mailrc file (or the file specified by @@ -146,8 +139,6 @@ ;;; - Remove the autoload of build-mail-aliases from the file sendmail.el; ;;; - Add an autoload of define-mail-alias to loaddefs.el. -;;; Code: - (require 'sendmail) (defvar mail-abbrev-mailrc-file nil @@ -679,8 +670,8 @@ (symbol-function 'vm-mail-internal))) (fset 'vm-mail-internal (function (lambda (&rest args) - (mail-aliases-setup-v18) - (apply 'vm-mail-internal-v18 args)))))) + (apply 'vm-mail-internal-v18 args) + (mail-aliases-setup-v18)))))) ;; If we're being loaded from mail-setup-hook or mail-mode-hook ;; as run from inside mail-setup or vm-mail-internal, then install