comparison lisp/mail/mailabbrev.el @ 791:203c23c9f22c

*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 16 Jul 1992 04:23:17 +0000
parents 950a63133bc4
children e694e0879463
comparison
equal deleted inserted replaced
790:47ec7c4c42bc 791:203c23c9f22c
1 ;;; mailabbrev.el --- abbrev-expansion of mail aliases.
2
3 ;; Author: Jamie Zawinski <jwz@lucid.com>
4 ;; Roland McGrath <roland@gnu.ai.mit.edu>
5 ;; Created: 19 Oct 90
6 ;; Last-Modified: 13 Jun 92
7
1 ;;; ??? We must get papers for this or delete it. 8 ;;; ??? We must get papers for this or delete it.
2 ;;; Abbrev-expansion of mail aliases.
3 ;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. 9 ;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
4 ;;; Created: 19 oct 90, Jamie Zawinski <jwz@lucid.com>
5 ;;; Modified: 5 apr 92, Roland McGrath <roland@gnu.ai.mit.edu>
6 ;;; Last change 13-jun-92. jwz
7 10
8 ;;; This file is part of GNU Emacs. 11 ;;; This file is part of GNU Emacs.
9 12
10 ;;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;;; it under the terms of the GNU General Public License as published by 14 ;;; it under the terms of the GNU General Public License as published by
18 ;;; GNU General Public License for more details. 21 ;;; GNU General Public License for more details.
19 22
20 ;;; You should have received a copy of the GNU General Public License 23 ;;; You should have received a copy of the GNU General Public License
21 ;;; along with GNU Emacs; see the file COPYING. If not, write to 24 ;;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 25 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
26
27 ;;; Commentary:
23 28
24 ;;; This file ensures that, when the point is in a To:, CC:, BCC:, or From: 29 ;;; This file ensures that, when the point is in a To:, CC:, BCC:, or From:
25 ;;; field, word-abbrevs are defined for each of your mail aliases. These 30 ;;; field, word-abbrevs are defined for each of your mail aliases. These
26 ;;; aliases will be defined from your .mailrc file (or the file specified by 31 ;;; aliases will be defined from your .mailrc file (or the file specified by
27 ;;; the MAILRC environment variable) if it exists. Your mail aliases will 32 ;;; the MAILRC environment variable) if it exists. Your mail aliases will
137 ;;; - Remove the call to expand-mail-aliases from the function 142 ;;; - Remove the call to expand-mail-aliases from the function
138 ;;; sendmail-send-it in the file sendmail.el; 143 ;;; sendmail-send-it in the file sendmail.el;
139 ;;; - Remove the autoload of expand-mail-aliases from the file sendmail.el; 144 ;;; - Remove the autoload of expand-mail-aliases from the file sendmail.el;
140 ;;; - Remove the autoload of build-mail-aliases from the file sendmail.el; 145 ;;; - Remove the autoload of build-mail-aliases from the file sendmail.el;
141 ;;; - Add an autoload of define-mail-alias to loaddefs.el. 146 ;;; - Add an autoload of define-mail-alias to loaddefs.el.
147
148 ;;; Code:
142 149
143 (require 'sendmail) 150 (require 'sendmail)
144 151
145 (defvar mail-abbrev-mailrc-file nil 152 (defvar mail-abbrev-mailrc-file nil
146 "Name of file with mail aliases. If nil, ~/.mailrc is used.") 153 "Name of file with mail aliases. If nil, ~/.mailrc is used.")