Re: message, can't find basic stuff [Elisp]

[Emanuel Berg]

A yet better version, with a little help from my friends at
gmane.emacs.gnus.general

No need for that other function - I guess that's why it isn't
in Emacs LOL

(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")

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal