Mercurial > emacs
diff lisp/mail/mailabbrev.el @ 907:48ca3bf4b5f8
*** empty log message ***
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sun, 02 Aug 1992 03:36:38 +0000 |
| parents | 20674ae6bf52 |
| children | 907639748f24 |
line wrap: on
line diff
--- a/lisp/mail/mailabbrev.el Sun Aug 02 02:34:46 1992 +0000 +++ b/lisp/mail/mailabbrev.el Sun Aug 02 03:36:38 1992 +0000 @@ -3,11 +3,12 @@ ;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. ;; Author: Jamie Zawinski <jwz@lucid.com> -;; Roland McGrath <roland@gnu.ai.mit.edu> +;; Maintainer: Jamie Zawinski <jwz@lucid.com> ;; Created: 19 Oct 90 ;; Keywords: mail ;;; ??? We must get papers for this or delete it. + ;;; This file is part of GNU Emacs. ;;; GNU Emacs is free software; you can redistribute it and/or modify @@ -220,7 +221,7 @@ (forward-char 1))) (goto-char (point-min)) (while (re-search-forward - "^\\(a\\(lias\\|\\)\\|g\\(roup\\)\\|source\\)[ \t]+" nil t) + "^\\(a\\(lias\\)?\\|g\\(roup\\)?\\|source\\)[ \t]+" nil t) (beginning-of-line) (if (looking-at "source[ \t]+\\([^ \t\n]+\\)") (progn @@ -524,7 +525,10 @@ (defun mail-interactive-insert-alias (&optional alias) "Prompt for and insert a mail alias." - (interactive (list (completing-read "Expand alias: " mail-aliases nil t))) + (interactive (progn + (if (not (vectorp mail-aliases)) (mail-aliases-setup)) + (list (completing-read "Expand alias: " mail-aliases nil t)))) + (if (not (vectorp mail-aliases)) (mail-aliases-setup)) (insert (or (and alias (symbol-value (intern-soft alias mail-aliases))) ""))) (defun abbrev-hacking-next-line (&optional arg)