Commit 1e91d0eb authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

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.
parent b3ea64a3
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
......
......@@ -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)
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment