Mercurial > emacs
comparison lisp/mail/sendmail.el @ 604:63a8e7b3c547
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 01 Apr 1992 11:14:15 +0000 |
| parents | 4cd7543be581 |
| children | 7cbd4fcd8b0f |
comparison
equal
deleted
inserted
replaced
| 603:470f556a9453 | 604:63a8e7b3c547 |
|---|---|
| 445 | 445 |
| 446 (defun mail-position-on-field (field &optional soft) | 446 (defun mail-position-on-field (field &optional soft) |
| 447 (let (end | 447 (let (end |
| 448 (case-fold-search t)) | 448 (case-fold-search t)) |
| 449 (goto-char (point-min)) | 449 (goto-char (point-min)) |
| 450 (search-forward (concat "^" mail-header-separator "\n")) | 450 (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) |
| 451 (setq end (match-beginning 0)) | 451 (setq end (match-beginning 0)) |
| 452 (goto-char (point-min)) | 452 (goto-char (point-min)) |
| 453 (if (re-search-forward (concat "^" (regexp-quote field) ":") end t) | 453 (if (re-search-forward (concat "^" (regexp-quote field) ":") end t) |
| 454 (progn | 454 (progn |
| 455 (re-search-forward "^[^ \t]" nil 'move) | 455 (re-search-forward "^[^ \t]" nil 'move) |
| 457 (skip-chars-backward "\n") | 457 (skip-chars-backward "\n") |
| 458 t) | 458 t) |
| 459 (or soft | 459 (or soft |
| 460 (progn (goto-char end) | 460 (progn (goto-char end) |
| 461 (skip-chars-backward "\n") | 461 (skip-chars-backward "\n") |
| 462 (insert "\n" field ": "))) | 462 (insert field ": \n") |
| 463 (skip-chars-backward "\n"))) | |
| 463 nil))) | 464 nil))) |
| 464 | 465 |
| 465 (defun mail-text () | 466 (defun mail-text () |
| 466 "Move point to beginning of text field." | 467 "Move point to beginning of text field." |
| 467 (interactive) | 468 (interactive) |