Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 20:37:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

(mail-attach-file): New function.

Browse source 
(mail-mode-map): Add mail-attach-file on C-c C-i.
This commit is contained in:
Richard M. Stallman 1997-04-20 01:20:58 +00:00
parent cc3e64653b
commit f0aef6bf09
1 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/mail/sendmail.el
View file

@ -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))))))))
(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