X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/4bcb5a9e5d12ea3650978c57c679d51c9c1cf4d5..ac84042c630254697a5244b11bef4375579bbf3f:/lisp/mail/rfc2368.el diff --git a/lisp/mail/rfc2368.el b/lisp/mail/rfc2368.el index b0d2a23b90..4bfeb91106 100644 --- a/lisp/mail/rfc2368.el +++ b/lisp/mail/rfc2368.el @@ -125,7 +125,7 @@ calling this function." (setq prequery (match-string rfc2368-mailto-prequery-index mailto-url)) - + (setq query (match-string rfc2368-mailto-query-index mailto-url)) @@ -154,12 +154,13 @@ calling this function." (setcdr our-cons-cell (concat our-cdr ", " prequery))) (setq headers-alist (cons (cons "To" prequery) headers-alist))))) - + headers-alist) - + (error "Failed to match a mailto: url")) )) (provide 'rfc2368) +;;; arch-tag: ea804934-ad96-4f69-957b-857a76e4fd95 ;;; rfc2368.el ends here