# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 861499258 0
# Node ID 50ada9a65e3df1bce0a08e4428bd7677f42e8480
# Parent  10ead0052174485205ae3eb8a51968687519542a
(mail-attach-file): New function.
(mail-mode-map): Add mail-attach-file on C-c C-i.

diff -r 10ead0052174 -r 50ada9a65e3d lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sat Apr 19 22:59:20 1997 +0000
+++ b/lisp/mail/sendmail.el	Sun Apr 20 01:20:58 1997 +0000
@@ -430,7 +430,8 @@
   (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 @@
 		   (run-hooks 'mail-yank-hooks)
 		 (mail-indent-citation))))))))
 
+(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))))
+
 ;; Put these last, to reduce chance of lossage from quitting in middle of loading the file.
 
 ;;;###autoload