Mercurial > emacs

changeset 5210:4db0922992a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Roland McGrath <roland@gnu.org>
date Thu, 02 Dec 1993 21:04:45 +0000
parents 7fdef355cdc2
children 7124a811b67b
files lisp/mail/sendmail.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Thu Dec 02 07:47:48 1993 +0000
+++ b/lisp/mail/sendmail.el	Thu Dec 02 21:04:45 1993 +0000
@@ -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 @@
       (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