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

[Philip Kaludercic <philipk@posteo.net>]

[-- Attachment #1: Type: text/plain, Size: 1007 bytes --]

Emanuel Berg via Users list for the GNU Emacs text editor
<help-gnu-emacs@gnu.org> writes:

> I just answered a question on gmane.emacs.gnus.general but had
> to write a lot more code than I thought.
>
> Is there really no - argh, just read the code, the questions
> are in the comments :)
>
> (require 'message)
>
> ;; is there really no function like this already?
> (defun message-set-header (hdr val)
>   (interactive "sheader: \nsvalue: ")
>   ;; check here if there _is_ such a header - how?
>   ;; also a must-have, super-simple building-block from the holster
>   ;; but can't find it either

Perhaps message-fetch-field? It returns the value or nil if not found.

>   (message-position-on-field hdr)
>   (message-beginning-of-line)
>   (delete-region (point) (point-at-eol))
>   (insert val) )
> ;; test: 
> ;; (message-set-header "Subject" "Lara loves YOU")

All I know of is message-add-header, but pass it an entire line, not a
header-value pair.

-- 
	Philip K.

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 686 bytes --]