--- a/gnus-init.el	Wed Dec 20 17:59:49 2023 +0000
+++ b/gnus-init.el	Wed Dec 20 18:00:34 2023 +0000
@@ -128,16 +128,6 @@
 
 (add-hook 'message-sent-hook (function whiten-recip))
 
-(defun ht-gnus-pers-refresh (n)
-  (interactive "p")
-  (let ((gn (concat "nnml+ht:pers-"
-				 (format-time-string "%Y-%m" (current-time)))))
-    (gnus-group-goto-group gn)
-    (gnus-group-get-new-news-this-group n)
-    (gnus-group-goto-group gn)
-    (gnus-group-read-group))
-  )
-
 (add-hook 'gnus-group-mode-hook 'gnus-group-mode-fun1)
  
 
@@ -169,17 +159,18 @@
 
 (make-variable-buffer-local 'gnus-extra-headers)
 (make-variable-buffer-local 'nnmail-extra-headers)
+
 (add-hook 'gnus-parse-headers-hook
           '(lambda ()
              (gnus-summary-set-local-parameters gnus-newsgroup-name)))
 
+(defvar ht-gnus-just-read nil)
+
 (add-hook 'gnus-get-new-news-hook (lambda () (setq ht-gnus-just-read nil)))
 
 (add-hook 'gnus-after-getting-new-news-hook
           (lambda () (message "%s" ht-gnus-just-read)))
 
-(defvar ht-gnus-just-read nil)
-
 (defun ht-gnus-note-save-to-group ()
   (let ((g (caar group-art)))
     (if (not (member g ht-gnus-just-read))