# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1290738717 0
# Node ID a03d962cdb9e65924a513b9c0db00e10ab70108e
# Parent  2abdbb8ce6ca62b64940a91c8bb0c185954f6dd1
gnus-art.el (gnus-url-mailto): Unfold URLs before using them.
nnheader.el (nnheader-update-marks-actions): Fix typo in last checkin.
shr-color.el: Require cl when compiling.

diff -r 2abdbb8ce6ca -r a03d962cdb9e lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Fri Nov 26 03:28:03 2010 +0100
+++ b/lisp/gnus/ChangeLog	Fri Nov 26 02:31:57 2010 +0000
@@ -1,5 +1,10 @@
 2010-11-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* nnheader.el (nnheader-update-marks-actions): Fix typo in last
+	checkin.
+
+	* 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 -r 2abdbb8ce6ca -r a03d962cdb9e lisp/gnus/gnus-art.el
--- a/lisp/gnus/gnus-art.el	Fri Nov 26 03:28:03 2010 +0100
+++ b/lisp/gnus/gnus-art.el	Fri Nov 26 02:31:57 2010 +0000
@@ -8146,6 +8146,7 @@
 
 (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)
diff -r 2abdbb8ce6ca -r a03d962cdb9e lisp/gnus/nnheader.el
--- a/lisp/gnus/nnheader.el	Fri Nov 26 03:28:03 2010 +0100
+++ b/lisp/gnus/nnheader.el	Fri Nov 26 02:31:57 2010 +0000
@@ -1089,12 +1089,12 @@
 	       mark
 	       (cond
 		((eq what 'add)
-		 (gnus-range-add (cdr (assoc mark backend-marks)) range)
-		 ((eq what 'del)
-		  (gnus-remove-from-range
-		   (cdr (assoc mark backend-marks)) range))
-		 ((eq what 'set)
-		  range)))
+		 (gnus-range-add (cdr (assoc mark backend-marks)) range))
+		((eq what 'del)
+		 (gnus-remove-from-range
+		  (cdr (assoc mark backend-marks)) range))
+		((eq what 'set)
+		 range))
 	       backend-marks)))))
   backend-marks)