Mercurial > emacs
changeset 1147:907639748f24
*** empty log message ***
| author | Joseph Arceneaux <jla@gnu.org> |
|---|---|
| date | Tue, 15 Sep 1992 19:28:41 +0000 |
| parents | 02b2f761f9df |
| children | b32ae4969b78 |
| files | lisp/mail/mailabbrev.el |
| diffstat | 1 files changed, 6 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- 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 <jwz@lucid.com> -;; Maintainer: Jamie Zawinski <jwz@lucid.com> -;; Created: 19 Oct 90 -;; Keywords: mail - -;;; ??? We must get papers for this or delete it. +;;; Created: 19 oct 90, Jamie Zawinski <jwz@lucid.com> +;;; Modified: 5 apr 92, Roland McGrath <roland@gnu.ai.mit.edu> +;;; 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