summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/gnus/ChangeLog5
-rw-r--r--lisp/gnus/gnus-art.el1
-rw-r--r--lisp/gnus/nnheader.el12
3 files changed, 12 insertions, 6 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f1340c6593d..93dd22ff45b 100644
--- 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 53d82cadb8b..8d8aaa0e36e 100644
--- 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 d34229a467d..cc2706eaf2a 100644
--- 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)