Mercurial > emacs
changeset 111723:2abdbb8ce6ca
* mail/rfc2368.el (rfc2368-parse-mailto-url): Unfold URLs before
parsing them. This makes mailto:...?subject=foo\nbar work.
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Fri, 26 Nov 2010 03:28:03 +0100 |
| parents | c0bbb7dd9600 |
| children | a03d962cdb9e |
| files | lisp/ChangeLog lisp/mail/rfc2368.el |
| diffstat | 2 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Nov 26 02:17:55 2010 +0000 +++ b/lisp/ChangeLog Fri Nov 26 03:28:03 2010 +0100 @@ -1,3 +1,8 @@ +2010-11-26 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * mail/rfc2368.el (rfc2368-parse-mailto-url): Unfold URLs before + parsing them. This makes mailto:...?subject=foo\nbar work. + 2010-11-25 Stefan Monnier <monnier@iro.umontreal.ca> * vc/diff.el (diff): Fix last change.
--- a/lisp/mail/rfc2368.el Fri Nov 26 02:17:55 2010 +0000 +++ b/lisp/mail/rfc2368.el Fri Nov 26 03:28:03 2010 +0100 @@ -92,13 +92,11 @@ 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 @@ 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