[Emacs-diffs] /srv/bzr/emacs/trunk r102523: * mail/rfc2368.el (rfc2368-parse-mailto-url): Unfold URLs before

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 102523
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2010-11-26 03:28:03 +0100
message:
  * mail/rfc2368.el (rfc2368-parse-mailto-url): Unfold URLs before
  parsing them.  This makes mailto:...?subject=foo\nbar work.
modified:
  lisp/ChangeLog
  lisp/mail/rfc2368.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-25 04:43:56 +0000
+++ b/lisp/ChangeLog    2010-11-26 02:28:03 +0000
@@ -1,3 +1,8 @@
+2010-11-26  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * mail/rfc2368.el (rfc2368-parse-mailto-url): Unfold URLs before
+       parsing them.  This makes mailto:...?subject=foo\nbar work.
+
 2010-11-25  Stefan Monnier  <address@hidden>
 
        * vc/diff.el (diff): Fix last change.

=== modified file 'lisp/mail/rfc2368.el'
--- a/lisp/mail/rfc2368.el      2010-01-13 08:35:10 +0000
+++ b/lisp/mail/rfc2368.el      2010-11-26 02:28:03 +0000
@@ -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