From b3ea64a3eeb34a0f312dd2e33a2199a39ebe7f46 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 26 Nov 2010 03:28:03 +0100 Subject: [PATCH] * mail/rfc2368.el (rfc2368-parse-mailto-url): Unfold URLs before parsing them. This makes mailto:...?subject=foo\nbar work. --- lisp/ChangeLog | 5 +++++ lisp/mail/rfc2368.el | 8 ++------ 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bbe0b7c865c..3e322800b8f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-11-26 Lars Magne Ingebrigtsen + + * mail/rfc2368.el (rfc2368-parse-mailto-url): Unfold URLs before + parsing them. This makes mailto:...?subject=foo\nbar work. + 2010-11-25 Stefan Monnier * vc/diff.el (diff): Fix last change. diff --git a/lisp/mail/rfc2368.el b/lisp/mail/rfc2368.el index f04cf3fc466..0c91fcd8394 100644 --- a/lisp/mail/rfc2368.el +++ b/lisp/mail/rfc2368.el @@ -92,13 +92,11 @@ Note: make sure MAILTO-URL has been 'unhtmlized' (e.g. & -> &), before calling this function." (let ((case-fold-search t) prequery query headers-alist) - + (setq mailto-url (replace-regexp-in-string "\n" " " mailto-url)) (if (string-match rfc2368-mailto-regexp mailto-url) (progn - (setq prequery (match-string rfc2368-mailto-prequery-index mailto-url)) - (setq query (match-string rfc2368-mailto-query-index mailto-url)) @@ -131,10 +129,8 @@ calling this function." headers-alist) - (error "Failed to match a mailto: url")) - )) + (error "Failed to match a mailto: url")))) (provide 'rfc2368) -;; arch-tag: ea804934-ad96-4f69-957b-857a76e4fd95 ;;; rfc2368.el ends here -- 2.39.5