Changes committed gnus/lisp (ChangeLog legacy-gnus-agent.el)

"Reiner Steib" <[email protected]> Tue, 23 Dec 2008 17:51:47 +0100

Newsgroups	gmane.emacs.gnus.commits
Message-ID	<[email protected]>

Modified: ChangeLog legacy-gnus-agent.el

(gnus-agent-unlist-expire-days): Don't use cadar.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1955 gnus/lisp/ChangeLog:7.1956
--- ChangeLog:7.1955	Tue Dec 23 17:45:58 2008
+++ ChangeLog	Tue Dec 23 17:51:46 2008
@@ -1,5 +1,8 @@
 2008-12-23  Dave Love  <[email protected]>
 
+	* 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.
Index: legacy-gnus-agent.el
diff -u gnus/lisp/legacy-gnus-agent.el:1.12 gnus/lisp/legacy-gnus-agent.el:1.13
--- legacy-gnus-agent.el:1.12	Mon May 19 10:47:42 2008
+++ legacy-gnus-agent.el	Tue Dec 23 17:51:46 2008
@@ -186,7 +186,7 @@
                                                                (when (eq 0 (string-match
                                                                             (caar days)
                                                                             group))
-                                                                 (throw 'found (cadar days)))
+                                                                 (throw 'found (cadr (car days))))
                                                                (setq days (cdr days)))
                                                              nil)))
                                                  (when day