Mercurial > emacs
comparison lisp/mail/uce.el @ 21918:2abd8542d6dd
(uce-reply-to-uce): Use mail-sendmail-delimit-header.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 03 May 1998 04:32:41 +0000 |
| parents | 54413501e4a9 |
| children | a517da228cb9 |
comparison
equal
deleted
inserted
replaced
| 21917:ff6a09ae9530 | 21918:2abd8542d6dd |
|---|---|
| 272 (if uce-default-headers | 272 (if uce-default-headers |
| 273 (insert uce-default-headers)) | 273 (insert uce-default-headers)) |
| 274 (if mail-default-headers | 274 (if mail-default-headers |
| 275 (insert mail-default-headers)) | 275 (insert mail-default-headers)) |
| 276 (if mail-default-reply-to | 276 (if mail-default-reply-to |
| 277 (insert "Reply-to: " mail-default-reply-to "\n")) | 277 (insert "Reply-to: " mail-default-reply-to "\n\n")) |
| 278 (insert mail-header-separator "\n") | 278 (mail-sendmail-delimit-header) |
| 279 ;; Insert all our text. Then go back to the place where we started. | 279 ;; Insert all our text. Then go back to the place where we started. |
| 280 (if to (setq to (point))) | 280 (if to (setq to (point))) |
| 281 ;; Text of ranting. | 281 ;; Text of ranting. |
| 282 (if uce-message-text | 282 (if uce-message-text |
| 283 (insert uce-message-text)) | 283 (insert uce-message-text)) |