From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Fri, 26 Nov 2010 02:19:55 +0000 (+0100)
Subject: * gnus-art.el (gnus-url-mailto): Unfold URLs before using them.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=eea1f50d7d4bfe4a30e379878da8b58438830619;ds=sidebyside

* gnus-art.el (gnus-url-mailto): Unfold URLs before using them.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c99f20fc..44ebed9af 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-11-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-art.el (gnus-url-mailto): Unfold URLs before using them.
+
 	* nnimap.el (nnimap-request-set-mark): Add is "+", not "-".
 
 	* gnus-sum.el (gnus-summary-push-marks-to-backend): Use 'set instead of
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 53d82cadb..8d8aaa0e3 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -8146,6 +8146,7 @@ url is put as the `gnus-button-url' overlay property on the button."
 
 (defun gnus-url-mailto (url)
   ;; Send mail to someone
+  (setq url (replace-regexp-in-string "\n" " " url))
   (when (string-match "mailto:/*\\(.*\\)" url)
     (setq url (substring url (match-beginning 1) nil)))
   (let (to args subject func)