diff options
| author | Roland McGrath <roland@gnu.org> | 1993-12-02 21:04:45 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-12-02 21:04:45 +0000 |
| commit | 5a31c2d2c13b8ec1799d38937ed183c94eb1954a (patch) | |
| tree | 8475223e9723292e08ffbcfd94db8f530dfb046b /lisp | |
| parent | 73960ffd67cfa0bac6cb0e67112e42a81f48a607 (diff) | |
| download | emacs-5a31c2d2c13b8ec1799d38937ed183c94eb1954a.tar.gz | |
(mail-fcc): Take argument and use interactive spec to prompt, rather than
calling read-file-name explicitly. This function is useful to call from
programs with a computed argument.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/sendmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index e90d46bb949..b09f09c9698 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1,6 +1,6 @@ ;;; sendmail.el --- mail sending commands for Emacs. -;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1992, 1993 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -584,13 +584,13 @@ the user from the mailer." (progn (mail-position-on-field "to") (insert "\nBCC: ")))) -(defun mail-fcc () +(defun mail-fcc (folder) "Add a new FCC field, with file name completion." - (interactive) + (interactive "FFolder carbon copy: ") (expand-abbrev) (or (mail-position-on-field "fcc" t) ;Put new field after exiting FCC. (mail-position-on-field "to")) - (insert "\nFCC: " (read-file-name "Folder carbon copy: "))) + (insert "\nFCC: " folder)) (defun mail-position-on-field (field &optional soft) (let (end |