Re: [libvirt] Emacs tip for easily adding Reviewed-by tags & friends

On Thu, Mar 15, 2018 at 11:36:28AM +0000, Daniel P. Berrangé wrote: Since we're sharing O:-) I had a script that extracted the mail from the 'From' mail header, so that you can reply from any address and don't need to change it. It also jumps to a newline in case you are not in start of the line. It'd be trivial to modify for arbitrary tags, of course. #+begin_src emacs-lisp (defun npx/message-get-from () "Get the address from the 'From' field of the current message" (save-excursion (goto-char (point-min)) (let ((beg (search-forward "From: ")) (end (line-end-position))) (buffer-substring-no-properties beg end)))) (defun npx/insert-tag-reviewed-by () "Inserts 'Reviewed-by: Real Name <email>' in the current position in buffer" (interactive) (let ((from (npx/message-get-from))) (when (not (equalp (point) (line-beginning-position))) (move-end-of-line nil) (newline 2)) (insert "Reviewed-by: " from) (newline))) (global-set-key (kbd "C-c r") 'npx/insert-tag-reviewed-by) #+end_src HTH, Martin