(mail-attach-file): New function.

(mail-mode-map): Add mail-attach-file on C-c C-i.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 1748430e4fea1ef750435e5a0c15711799b4a54f..7444a79aa0e35ff3a9d77ab91a938f496aaae1ea 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -430,7 +430,8 @@ If within the headers, this makes the new lines into continuation lines."
   (define-key mail-mode-map "\C-c\C-w" 'mail-signature)
   (define-key mail-mode-map "\C-c\C-v" 'mail-sent-via)
   (define-key mail-mode-map "\C-c\C-c" 'mail-send-and-exit)
-  (define-key mail-mode-map "\C-c\C-s" 'mail-send))
+  (define-key mail-mode-map "\C-c\C-s" 'mail-send)
+  (define-key mail-mode-map "\C-c\C-i" 'mail-attach-file))
 
 (define-key mail-mode-map [menu-bar mail]
   (cons "Mail" (make-sparse-keymap "Mail")))
@@ -1094,6 +1095,26 @@ and don't delete any header fields."
                   (run-hooks 'mail-yank-hooks)
                 (mail-indent-citation))))))))
 \f
+(defun mail-attach-file (&optional file)
+  "Insert a file at the end of the buffer, with separator lines around it."
+  (interactive "fAttach file: ")
+  (save-excursion
+    (goto-char (point-max))
+    (or (bolp) (newline))
+    (newline)
+    (let ((start (point))
+         middle)
+      (insert (format "===File %s===" file))
+      (insert-char ?= (max 0 (- 60 (current-column))))
+      (newline)
+      (setq middle (point))
+      (insert "============================================================\n")
+      (push-mark)
+      (goto-char middle)
+      (insert-file-contents file)
+      (or (bolp) (newline))
+      (goto-char start))))
+\f
 ;; Put these last, to reduce chance of lossage from quitting in middle of loading the file.
 
 ;;;###autoload