mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-26 20:57:58 +01:00
notmuch-emacs-mua: avoid extra separators at the end of the line
Currently the --to/--cc/--bcc options add "user@example.com, " to the message headers, with the the unnecessary ", " separator after the last address, regardless of how many addresses are being added. This used to be fine, but with recent emacs mm, trying to send the email with the trailing commas leads to prompt: Email address looks invalid; send anyway? (y or n) Fix this by only adding the commas between addresses, avoiding the trailing commas.
This commit is contained in:
parent
4f82acce17
commit
67990376b7
1 changed files with 9 additions and 3 deletions
|
@ -41,6 +41,9 @@ CREATE_FRAME=
|
|||
ELISP=
|
||||
MAILTO=
|
||||
HELLO=
|
||||
TO_SEP=
|
||||
CC_SEP=
|
||||
BCC_SEP=
|
||||
|
||||
# Short options compatible with mutt(1).
|
||||
while getopts :s:c:b:i:h opt; do
|
||||
|
@ -86,13 +89,16 @@ while getopts :s:c:b:i:h opt; do
|
|||
ELISP="${ELISP} (message-goto-subject) (insert \"${OPTARG}\")"
|
||||
;;
|
||||
--to)
|
||||
ELISP="${ELISP} (message-goto-to) (insert \"${OPTARG}, \")"
|
||||
ELISP="${ELISP} (message-goto-to) (insert \"${TO_SEP}${OPTARG}\")"
|
||||
TO_SEP=", "
|
||||
;;
|
||||
--cc|c)
|
||||
ELISP="${ELISP} (message-goto-cc) (insert \"${OPTARG}, \")"
|
||||
ELISP="${ELISP} (message-goto-cc) (insert \"${CC_SEP}${OPTARG}\")"
|
||||
CC_SEP=", "
|
||||
;;
|
||||
--bcc|b)
|
||||
ELISP="${ELISP} (message-goto-bcc) (insert \"${OPTARG}, \")"
|
||||
ELISP="${ELISP} (message-goto-bcc) (insert \"${BCC_SEP}${OPTARG}\")"
|
||||
BCC_SEP=", "
|
||||
;;
|
||||
--body|i)
|
||||
ELISP="${ELISP} (message-goto-body) (insert-file \"${OPTARG}\")"
|
||||
|
|
Loading…
Reference in a new issue