dot/gnus.el, dot/gnus-local.el.distorted: Gnus Cloud silliness.

[profile] / dot / gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index f6f4438..2391c48 100644 (file)
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -38,9 +38,15 @@
 (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"
+       "%U%R%z%4L %(%[%-16,16f%]%): %&user-date; %B %s\n"
       gnus-summary-dummy-line-format
-       "        %(%[----------------%]%): * %S\n")
+       "        %(%[----------------%]%):           * %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 "="
@@ -238,6 +244,12 @@ right thing."
 (setq message-send-mail-function 'mdw-message-send-it)
 
 ;;;--------------------------------------------------------------------------
+;;; Gnus Cloud nonsense.
+
+(setq gnus-cloud-synced-files
+       '((:directory "~/News" :match ".*.SCORE\\'")))
+
+;;;--------------------------------------------------------------------------
 ;;; Local configuration.
 
 ;; Fetching news from the local news server seems sensible.