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 --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f1340c6593dd5dd0c43a00080c7b4763d91c6fc7..93dd22ff45b02d8cac866d927c54627c1b4f9dee 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 53d82cadb8b0e2af54576405d6c9b28852883bf7..8d8aaa0e36e0ac7780bbb7f1127646d4c8d5a4f0 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/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)

diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el
index d34229a467d386c67ea75581673937d95af55e71..cc2706eaf2a0c2eeb13a6f38b9d6fa36c390c71e 100644 (file)
--- a/lisp/gnus/nnheader.el
+++ b/lisp/gnus/nnheader.el
@@ -1089,12 +1089,12 @@ See `find-file-noselect' for the arguments."
               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)