Browse Source

Use cl-loop for backwards compatibility, try different topic loading

Josh Bicking 6 years ago
parent
commit
8d46b1fcc4
1 changed files with 6 additions and 5 deletions
  1. 6 5
      emacs.d/packages/packages.el

+ 6 - 5
emacs.d/packages/packages.el

@@ -701,8 +701,8 @@
   :init
   (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
   (add-hook 'gnus-startup-hook
-            '(lambda () (loop for mode in (list gnus-article-mode-map gnus-group-mode-map gnus-summary-mode-map)
-                         do (loop for key in (list "RET" "G")
+            '(lambda () (cl-loop for mode in (list gnus-article-mode-map gnus-group-mode-map gnus-summary-mode-map)
+                         do (cl-loop for key in (list "RET" "G")
                                   do (evil-passthrough-key 'motion mode key)))))
 
   (add-hook 'gnus-startup-hook '(lambda () (gnus-demon-add-handler 'gnus-demon-scan-mail 5 1)))
@@ -729,13 +729,14 @@
                         (nnmail-expiry-target "nnimap+comcast:Trash")
                         (nnmail-expiry-wait 90)))
 
-  (eval-after-load 'gnus-topic
-    '(progn
+  (add-hook 'gnus-topic-mode-hook
+    '(lambda ()
        (setq gnus-message-archive-group '((format-time-string "sent.%Y")))
        (setq gnus-topic-topology '(("Gnus" visible)
                                    (("misc" visible))
                                    (("comcast" visible nil nil))
-                                   (("gmail" visible nil nil))))
+                                   (("gmail" visible nil nil))
+                                   (("feeds" visible nil nil))))
        (gnus-topic-move-matching ".*comcast.*" "comcast")
        (gnus-topic-move-matching ".*gmail.*" "gmail")
        (gnus-topic-move-matching "gwene.*" "feeds")