add ability to change message subjects

diff --git a/.mutt/batch-subject-editor b/.mutt/batch-subject-editor
new file mode 100755 (executable)
index 0000000..ad12bef
--- /dev/null
+++ b/.mutt/batch-subject-editor
@@ -0,0 +1,25 @@
+#!/bin/sh
+#
+# batch-subject-editor - helper script to change subject lines with mutt
+#
+# Based on an idea by David Champion <dgc at uchicago.edu>
+#
+# Copyright © 2008 martin f. krafft <madduck@madduck.net>
+# Released under the terms of the Artistic Licence 2.0
+#
+set -eu
+
+printf 'Enter new subject: ' >/dev/tty
+read subj </dev/tty
+
+if [ -z "${subj:-}" ]; then
+  echo No subject specified. >&2
+  exit 1
+fi
+
+RE_REPLY='(re([[(]?[[:digit:]]+[)]]?)?|aw|antwort):[[:space:]]*'
+RE_SUBJ_PREFIX="^Subject:[[:space:]]*(${RE_REPLY})?"
+RE_SUBJ='.*'
+EDITOR="sed -i -re \"s,(${RE_SUBJ_PREFIX})${RE_SUBJ},\\\1$subj,i\""
+
+printf "set editor='${EDITOR} %s'\n"

diff --git a/.mutt/keybindings b/.mutt/keybindings
index 35a1d59dfabf52a2e48953cb64922722653f840c..758e9717fd0ab80efa650d8bdf3b8309d302b6ed 100644 (file)
--- a/.mutt/keybindings
+++ b/.mutt/keybindings
@@ -46,6 +46,8 @@ macro index           F       '<limit>~L ' "search for correspondents"
 
 #TODO this is a hack until switch-profile does not readd headers.
 macro compose  e       ':set my_editor="$editor"<enter>:set editor=sensible-editor<enter><edit-headers>:set editor="$my_editor"<enter>' "invoke normal editor to edit message"
 
 #TODO this is a hack until switch-profile does not readd headers.
 macro compose  e       ':set my_editor="$editor"<enter>:set editor=sensible-editor<enter><edit-headers>:set editor="$my_editor"<enter>' "invoke normal editor to edit message"

-macro index,pager      e       ':set my_editor="$editor"<enter>:set editor=sensible-editor<enter><edit>:set editor="$my_editor"<enter>' "invoke normal editor to edit message"
+macro index,pager      e       ':set my_editor="$editor"<enter>:set editor=sensible-editor<enter><tag-prefix><edit>:set editor="$my_editor"<enter>' "invoke normal editor to edit message"
+
+macro index,pager      \ej     ':set my_editor="$editor"<enter>:source "$my_confdir/batch-subject-editor|"<enter><tag-prefix><edit>:set editor="$my_editor"<enter>' "change message subject"

 
 # vim:sw=12:noet:sts=12:ts=12:ft=muttrc
 
 # vim:sw=12:noet:sts=12:ts=12:ft=muttrc