Mercurial > emacs
comparison lisp/mail/sendmail.el @ 679:046f1a6867e7
*** empty log message ***
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Wed, 03 Jun 1992 17:50:56 +0000 |
| parents | 7cbd4fcd8b0f |
| children | c7d478752305 |
comparison
equal
deleted
inserted
replaced
| 678:8cff3b3bd089 | 679:046f1a6867e7 |
|---|---|
| 468 "Move point to beginning of text field." | 468 "Move point to beginning of text field." |
| 469 (interactive) | 469 (interactive) |
| 470 (goto-char (point-min)) | 470 (goto-char (point-min)) |
| 471 (search-forward (concat "\n" mail-header-separator "\n"))) | 471 (search-forward (concat "\n" mail-header-separator "\n"))) |
| 472 | 472 |
| 473 (defun mail-signature () | 473 (defun mail-signature (atpoint) |
| 474 "Sign letter with contents of ~/.signature file." | 474 "Sign letter with contents of ~/.signature file." |
| 475 (interactive) | 475 (interactive "P") |
| 476 (save-excursion | 476 (save-excursion |
| 477 (goto-char (point-max)) | 477 (or atpoint |
| 478 (goto-char (point-max))) | |
| 478 (skip-chars-backward " \t\n") | 479 (skip-chars-backward " \t\n") |
| 479 (end-of-line) | 480 (end-of-line) |
| 480 (delete-region (point) (point-max)) | 481 (or atpoint |
| 482 (delete-region (point) (point-max))) | |
| 481 (insert "\n\n--\n") | 483 (insert "\n\n--\n") |
| 482 (insert-file-contents (expand-file-name "~/.signature")))) | 484 (insert-file-contents (expand-file-name "~/.signature")))) |
| 483 | 485 |
| 484 (defun mail-fill-yanked-message (&optional justifyp) | 486 (defun mail-fill-yanked-message (&optional justifyp) |
| 485 "Fill the paragraphs of a message yanked into this one. | 487 "Fill the paragraphs of a message yanked into this one. |