- ;; [number subject from date id references chars lines xref]
- (insert (format "%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t\n"
- (mail-header-number headers)
- (let ((subject (mail-header-subject headers)))
- (or (get-text-property 0 'raw-text subject)
- subject))
- (let ((from (mail-header-from headers)))
- (or (get-text-property 0 'raw-text from)
- from))
- (mail-header-date headers)
- (mail-header-id headers)
- (or (mail-header-references headers) "")
- (or (mail-header-chars headers) "")
- (or (mail-header-lines headers) "")
- (or (mail-header-xref headers) "")))