Mercurial > emacs
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.") |