Mercurial > emacs
changeset 111724:a03d962cdb9e
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.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 26 Nov 2010 02:31:57 +0000 |
| parents | 2abdbb8ce6ca |
| children | f861f9db770a |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el lisp/gnus/nnheader.el |
| diffstat | 3 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)
--- 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)