Commit 5a31c2d2 authored by Roland McGrath's avatar Roland McGrath
Browse files

(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.
parent 73960ffd
;;; 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 "FFolder carbon copy: ")
(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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment