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

[Emanuel Berg]

Better versions:

(defun message-set-header (hdr val)
  (interactive "sheader: \nsvalue: ")
  (message-position-on-field hdr)
  (message-beginning-of-header nil)
  (delete-region (point) (point-at-eol))
  (insert val) )
;; test:
;; (message-set-header "Subject" "Lara loves YOU")

(defun message-transpose-headers (hdr1 hdr2)
  (interactive "sheader 1: \nsheader 2: ")
  (save-excursion
    (let ((v1 (or (message-field-value hdr1) ""))
          (v2 (or (message-field-value hdr2) "")) )
      (message-set-header hdr1 v2)
      (message-set-header hdr2 v1) )))
;; test:
;; (message-transpose-headers "To" "Subject")

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