From ad047d8199958b02778e7aa8e239ef99d64472f9 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Tue, 23 Dec 2008 16:51:46 +0000 Subject: [PATCH] (gnus-agent-unlist-expire-days): Don't use cadar. --- lisp/ChangeLog | 3 +++ lisp/legacy-gnus-agent.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f64186f39..756905281 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-12-23 Dave Love + * legacy-gnus-agent.el (gnus-agent-unlist-expire-days): Don't use + cadar. + * sieve-manage.el (sieve-manage-starttls-p): Renamed from imap-starttls-p. (sieve-manage-starttls-open): Renamed from imap-starttls-open. diff --git a/lisp/legacy-gnus-agent.el b/lisp/legacy-gnus-agent.el index 3d32f748e..830a2a175 100644 --- a/lisp/legacy-gnus-agent.el +++ b/lisp/legacy-gnus-agent.el @@ -186,7 +186,7 @@ converted to the compressed format." (when (eq 0 (string-match (caar days) group)) - (throw 'found (cadar days))) + (throw 'found (cadr (car days)))) (setq days (cdr days))) nil))) (when day -- 2.34.1