146 |
(insert (capitalize (symbol-name header)) |
(insert (capitalize (symbol-name header)) |
147 |
": " |
": " |
148 |
(if (consp value) (car value) value) |
(if (consp value) (car value) value) |
149 |
"\n"))) |
hard-newline))) |
150 |
|
|
151 |
(defun mail-header-format (format-rules headers) |
(defun mail-header-format (format-rules headers) |
152 |
"Use FORMAT-RULES to format HEADERS and insert into current buffer. |
"Use FORMAT-RULES to format HEADERS and insert into current buffer. |
187 |
(if (cdr rule) |
(if (cdr rule) |
188 |
(funcall (cdr rule) header value) |
(funcall (cdr rule) header value) |
189 |
(funcall mail-header-format-function header value)))))) |
(funcall mail-header-format-function header value)))))) |
190 |
(insert "\n"))) |
(insert hard-newline))) |
191 |
|
|
192 |
(provide 'mailheader) |
(provide 'mailheader) |
193 |
|
|