Mercurial > emacs
comparison lisp/simple.el @ 66967:151367ca2353
* simple.el (sendmail-user-agent-compose): Use hard-newline.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 17 Nov 2005 18:18:33 +0000 |
| parents | 1bca10e9d192 |
| children | 7db78a409419 |
comparison
equal
deleted
inserted
replaced
| 66966:477d7ac04b7b | 66967:151367ca2353 |
|---|---|
| 4504 (rfc822-goto-eoh) | 4504 (rfc822-goto-eoh) |
| 4505 (while other-headers | 4505 (while other-headers |
| 4506 (unless (member-ignore-case (car (car other-headers)) | 4506 (unless (member-ignore-case (car (car other-headers)) |
| 4507 '("in-reply-to" "cc" "body")) | 4507 '("in-reply-to" "cc" "body")) |
| 4508 (insert (car (car other-headers)) ": " | 4508 (insert (car (car other-headers)) ": " |
| 4509 (cdr (car other-headers)) "\n")) | 4509 (cdr (car other-headers)) hard-newline)) |
| 4510 (setq other-headers (cdr other-headers))) | 4510 (setq other-headers (cdr other-headers))) |
| 4511 (when body | 4511 (when body |
| 4512 (forward-line 1) | 4512 (forward-line 1) |
| 4513 (insert body)) | 4513 (insert body)) |
| 4514 t))) | 4514 t))) |