Having run a number of lists over a couple of decades I find that thinking antithetical to the basic purpose of an email list.
We've asked numerous times over damn near 20 years to have proper Reply-To header for the Applescript Users List.
We finally stopped asking.
I used to hijack the Reply keyboard shortcut in Eudora and do all kinds of good stuff with AppleScript and a RegEx osax.
That level of sophistication is not possible with Mail, but you can still do quite a bit if you're willing to use System Events.
I have the appended script bound to Cmd-Shift-R with Keyboard Maestro.
In this case I'm using Keyboard Maestro instead of FastScripts, because KM is driving the UI to do even more stuff for a couple more addresses.
I have QuoteFix installed, so I use Cmd-Opt-Shift for Reply-All.
Getting into the habit of using Cmd-Shift-R when replying to one of my lists didn't take all that long.
-------------------------------------------------------------------------------------------
# Auth: Christopher Stone
# dCre: 2015/10/03 06:00
# dMod: 2015/11/22 21:10
# Appl: Mail & System Events
# Task: Reply to Selected Message using Specified Rule.
# Libs: None
# Osax: None
# Tags: @Applescript, @Script, @Mail, @System_Events
-------------------------------------------------------------------------------------------
tell application "Mail"
set messageSelectionList to selection
if length of messageSelectionList = 1 then
set selectedMessage to item 1 of messageSelectionList
tell selectedMessage
--» Message ⇢ Sender
set msgSender to sender
--» Message ⇢ List_ID_Header
set list_ID_Header to content of headers whose name is "List-Id"
if list_ID_Header ≠ {} then set list_ID_Header to item 1 of list_ID_Header
reply
end tell
set bounds of front window to {407, 23, 1312, 1196}
else
return
end if
end tell
repeat 1 times
tell application "System Events"
if quit delay ≠ 0 then set quit delay to 0
tell application process "Mail"
set frontmost to true
tell (first window whose subrole is "AXStandardWindow")
--» Applescript Users List
delay 0.05
keystroke "l" using {command down, control down} -- keyboard shortcut for my listmeister email address from in sys-prefs.
tell text field "To:"
set value to ""
set focused to true
end tell
tell scroll area 1 to tell UI element 1 to set focused to true
return "Applescript Users List"
end if
--» BBEdit-Talk Google Group
delay 0.05
keystroke "l" using {shift down, command down, control down} -- keyboard shortcut for my listmeister-suddenlink email address from in sys-prefs.
tell text field "To:"
set value to ""
set focused to true
end tell
tell scroll area 1 to tell UI element 1 to set focused to true
return "BBEdit-Talk"
end if
--» TextWrangler-Talk Google Group
delay 0.05
keystroke "l" using {shift down, command down, control down} -- keyboard shortcut for my listmeister-suddenlink email address from in sys-prefs.
tell text field "To:"
set value to ""
set focused to true
end tell
tell scroll area 1 to tell UI element 1 to set focused to true
return "TextWrangler-Talk"
end if
return "NULL"
end tell
end tell
end tell
end repeat
-------------------------------------------------------------------------------------------