> dick.r.chiang wrote: > Great! I rewrote it a bit to do make it generic. > Works for all edgy cases so far, that is missing header, empty > header and multiline value. > (require 'message) > (defun message-transpose-headers (hdr1 hdr2) > (interactive "sheader 1: \nsheader 2: ") > (save-excursion > (message-position-on-field hdr1) > (message-position-on-field hdr2) > (let ((v1 (or (message-field-value hdr1) "")) > (v2 (or (message-field-value hdr2) "")) ) > (message-replace-header hdr1 v2 "From" t) > (message-replace-header hdr2 v1 "To" t)) )) > ;; test: > ;; (message-transpose-headers "To" "Subject") well that was a bit of discussion I missed. But thanks That works nice for my use case "To" to "Cc" Don't you want to send a patch to the dev list?