diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-12-13 20:42:59 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-12-13 20:42:59 -0800 |
| commit | 53aff12a2f57ca0830b425a6097d93bb8da637ca (patch) | |
| tree | 30827aa7ecfd0eb9a142d02838a111d2e46f23ae /lisp/mail/mailalias.el | |
| parent | aae4b48c36b85f4af4fceaeb9091cf567065649e (diff) | |
| download | emacs-53aff12a2f57ca0830b425a6097d93bb8da637ca.tar.gz emacs-53aff12a2f57ca0830b425a6097d93bb8da637ca.tar.bz2 emacs-53aff12a2f57ca0830b425a6097d93bb8da637ca.zip | |
Make build-mail-aliases an interactive command.
* lisp/mail/mailalias.el (build-mail-aliases): Make it interactive.
* lisp/mail/sendmail.el (build-mail-aliases): Update autoload.
* doc/misc/faq.texi (Expanding aliases when sending mail):
Now build-mail-aliases is interactive.
Diffstat (limited to 'lisp/mail/mailalias.el')
| -rw-r--r-- | lisp/mail/mailalias.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 8bf53058950..fbf60bbe36b 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -1,7 +1,8 @@ ;;; mailalias.el --- expand and complete mailing address aliases -;; Copyright (C) 1985, 1987, 1995, 1996, 1997, 2001, 2002, 2003, -;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1987, 1995, 1996, 1997, 2001, 2002, 2003, 2004, +;; 2005, 2006, 2007, 2008, 2009, 2010 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -240,6 +241,11 @@ removed from alias expansions." (defun build-mail-aliases (&optional file) "Read mail aliases from personal aliases file and set `mail-aliases'. By default, this is the file specified by `mail-personal-alias-file'." + (interactive + (list + (read-file-name (format "Read mail alias file (default %s): " + mail-personal-alias-file) + nil mail-personal-alias-file t))) (setq file (expand-file-name (or file mail-personal-alias-file))) ;; In case mail-aliases is t, make sure define-mail-alias ;; does not recursively call build-mail-aliases. @@ -562,5 +568,4 @@ See `mail-directory-stream'." (provide 'mailalias) -;; arch-tag: 1d6a0f87-eb34-4d45-8816-60c1b952cf46 ;;; mailalias.el ends here |