Mercurial > emacs
changeset 111725:f861f9db770a
nnmail.el (nnmail-expiry-target-group): Protect against degenerate results from -accept-article.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 26 Nov 2010 02:37:23 +0000 |
| parents | a03d962cdb9e |
| children | b299531e6c80 |
| files | lisp/gnus/ChangeLog lisp/gnus/nnmail.el lisp/gnus/shr-color.el |
| diffstat | 3 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Nov 26 02:31:57 2010 +0000 +++ b/lisp/gnus/ChangeLog Fri Nov 26 02:37:23 2010 +0000 @@ -1,5 +1,10 @@ 2010-11-26 Lars Magne Ingebrigtsen <larsi@gnus.org> + * nnmail.el (nnmail-expiry-target-group): Protect against degenerate + results from -accept-article. + + * shr-color.el: Require cl when compiling. + * nnheader.el (nnheader-update-marks-actions): Fix typo in last checkin.
--- a/lisp/gnus/nnmail.el Fri Nov 26 02:31:57 2010 +0000 +++ b/lisp/gnus/nnmail.el Fri Nov 26 02:37:23 2010 +0000 @@ -1916,7 +1916,8 @@ (when (or (gnus-request-group target) (gnus-request-create-group target)) (let ((group-art (gnus-request-accept-article target nil t t))) - (when (consp group-art) + (when (and (consp group-art) + (cdr group-art)) (gnus-group-mark-article-read target (cdr group-art)))))))) (defun nnmail-fancy-expiry-target (group)