From e954b2cc4bc02dd16b4d217a478a61816e9e7a61 Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 31 Jan 2011 02:49:14 -0800
Subject: [PATCH] Add comment.

---
 lisp/gnus-art.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a0eb43eff..6399f7f8e 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1018,6 +1018,8 @@ on parts -- for instance, adding Vcard info to a database."
   (let ((types '(ut local english lapsed combined-lapsed
 		    iso8601 original user-defined))
 	default)
+    ;; Try to respect the legacy `gnus-treat-date-*' variables, if
+    ;; they're set.
     (dolist (type types)
       (let ((variable (intern (format "gnus-treat-date-%s" type))))
 	(when (and (boundp variable)
@@ -1028,6 +1030,7 @@ on parts -- for instance, adding Vcard info to a database."
 	       (memq 'lapsed default))
       (setq default (delq 'lapsed default)))
     (or default
+	;; If they weren't set, we default to `combined-lapsed'.
 	'(combined-lapsed)))
   "A list of Date header formats to display.
 Valid formats are `ut' (universal time), `local' (local time
-- 
2.25.1