Mercurial > emacs
comparison lisp/mail/mailheader.el @ 66965:1bca10e9d192
* simple.el (hard-newline): New variable.
* mail/sendmail.el (mail-setup, mail-send, mail-insert-from-field)
(sendmail-send-it, mail-do-fcc, mail-cc, mail-bcc, mail-fcc)
(mail-mail-reply-to, mail-mail-followup-to)
(mail-position-on-field, mail-signature, mail-yank-original)
(mail-attach-file): Use it.
* mail/mailheader.el (mail-header-format)
(mail-header-format-function): Likewise.
* add-log.el (add-change-log-entry, change-log-merge): Likewise.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 17 Nov 2005 16:30:52 +0000 |
| parents | fafd692d1e40 |
| children | 818361523ce8 |
comparison
equal
deleted
inserted
replaced
| 66964:99b6d306113f | 66965:1bca10e9d192 |
|---|---|
| 144 (lambda (header value) | 144 (lambda (header value) |
| 145 "Function to format headers without a specified formatting function." | 145 "Function to format headers without a specified formatting function." |
| 146 (insert (capitalize (symbol-name header)) | 146 (insert (capitalize (symbol-name header)) |
| 147 ": " | 147 ": " |
| 148 (if (consp value) (car value) value) | 148 (if (consp value) (car value) value) |
| 149 "\n"))) | 149 hard-newline))) |
| 150 | 150 |
| 151 (defun mail-header-format (format-rules headers) | 151 (defun mail-header-format (format-rules headers) |
| 152 "Use FORMAT-RULES to format HEADERS and insert into current buffer. | 152 "Use FORMAT-RULES to format HEADERS and insert into current buffer. |
| 153 HEADERS should be an alist of the form (HEADER . VALUE), | 153 HEADERS should be an alist of the form (HEADER . VALUE), |
| 154 where HEADER is a header field name (a symbol or a string), | 154 where HEADER is a header field name (a symbol or a string), |
| 185 (funcall mail-header-format-function header value)))))) | 185 (funcall mail-header-format-function header value)))))) |
| 186 (value | 186 (value |
| 187 (if (cdr rule) | 187 (if (cdr rule) |
| 188 (funcall (cdr rule) header value) | 188 (funcall (cdr rule) header value) |
| 189 (funcall mail-header-format-function header value)))))) | 189 (funcall mail-header-format-function header value)))))) |
| 190 (insert "\n"))) | 190 (insert hard-newline))) |
| 191 | 191 |
| 192 (provide 'mailheader) | 192 (provide 'mailheader) |
| 193 | 193 |
| 194 ;;; arch-tag: 6e7aa221-80b5-4b3d-b46f-fd66ab567be0 | 194 ;;; arch-tag: 6e7aa221-80b5-4b3d-b46f-fd66ab567be0 |
| 195 ;;; mailheader.el ends here | 195 ;;; mailheader.el ends here |