X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/bc9c5623e8151f1d6202417726375bb7319711da..4c085f9edd6e9faec8938cc6b33f7f3175d35015:/dot/gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index 376016a..ff2210e 100644
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -37,8 +37,16 @@
 ;; Display a slrn-like tree view in the summary window.
 (setq gnus-use-trees nil)
 (setq gnus-summary-make-false-root 'dummy)
-(setq gnus-summary-line-format "%U%R%z%4L %(%[%-16,16f%]%): %B %s\n"
-      gnus-summary-dummy-line-format "        %(%[----------------%]%): * %S\n")
+(setq gnus-summary-line-format
+	"%U%R%z%4L %(%[%-16,16f%]%): %&user-date; %B %s\n"
+      gnus-summary-dummy-line-format
+	"        %(%[----------------%]%):           * %S\n"
+      gnus-user-date-format-alist
+	'(((gnus-seconds-today) . "*** %H:%M")
+	  (604800 . "%a %H:%M")
+	  ((gnus-seconds-month) . "   %a %_d")
+	  ((gnus-seconds-year) . "   %_d %b")
+	  (t . " %b %Y")))
 (setq gnus-sum-thread-tree-root ">"
       gnus-sum-thread-tree-false-root ">"
       gnus-sum-thread-tree-single-indent "="
@@ -54,9 +62,9 @@
 
 ;; Sort threads in a useful way.
 (setq gnus-thread-sort-functions
-      '(gnus-thread-sort-by-number
-	gnus-thread-sort-by-subject
-	gnus-thread-sort-by-total-score))
+	'(gnus-thread-sort-by-number
+	  gnus-thread-sort-by-subject
+	  gnus-thread-sort-by-total-score))
 
 ;; Configure the crypto.
 (setq mm-verify-option 'known