|
From: | Emanuel Berg |
Subject: | Re: message, can't find basic stuff [Elisp] |
Date: | Sun, 21 Feb 2021 05:50:09 +0100 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) |
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
[Prev in Thread] | Current Thread | [Next in Thread] |