mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00
Code Issues Releases Activity

* mail/rfc2368.el (rfc2368-parse-mailto-url): Unfold URLs before

Browse Source 
parsing them.  This makes mailto:...?subject=foo\nbar work.
This commit is contained in:
Lars Magne Ingebrigtsen 2010-11-26 03:28:03 +01:00
parent 57cc52bed4
commit b3ea64a3ee
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

8
lisp/mail/rfc2368.el
View File

@ -92,13 +92,11 @@ Note: make sure MAILTO-URL has been 'unhtmlized' (e.g. &amp; -> &), 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