diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-11-26 03:28:03 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-11-26 03:28:03 +0100 |
| commit | b3ea64a3eeb34a0f312dd2e33a2199a39ebe7f46 (patch) | |
| tree | a0e9e6b28bc897402e27de86be7b3ed04b4348a9 /lisp/mail | |
| parent | 57cc52bed4948a83d605ff7d50ce52da1d9f5da0 (diff) | |
| download | emacs-b3ea64a3eeb34a0f312dd2e33a2199a39ebe7f46.tar.gz | |
* mail/rfc2368.el (rfc2368-parse-mailto-url): Unfold URLs before
parsing them. This makes mailto:...?subject=foo\nbar work.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rfc2368.el | 8 |
1 files changed, 2 insertions, 6 deletions
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 |