--- a/pers-init.el	Sat Oct 07 10:11:27 2023 +0100
+++ b/pers-init.el	Sat Oct 07 10:44:21 2023 +0100
@@ -54,7 +54,7 @@
       (append '(("/perl/" . perl-mode)
 		("\\.scm$" . scheme-mode))
 	    auto-mode-alist))
-(setq inferior-lisp-program "/c/Progra~1/ChezSc~1.4/bin/i3nt/petite")
+(setq inferior-lisp-program "scheme")
 ;;; for scheme
 (put 'letrec 'lisp-indent-function 1)
 (put 'case 'lisp-indent-function 1)
@@ -189,16 +189,45 @@
       (if (string-match "Lucid" emacs-version)
 	  ;; lemacs only goes here
 	  (progn
+	    (message "lem")
 	      (setq bbdb-north-american-phone-numbers-p nil)
 	      (setq bbdb-use-pop-up nil)
+	      (require 'mail-abbrevs)
 	      (require 'bbdb)
-	      (add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)
+	      ;(require 'bbdb-rmail)
+	      (require 'bbdb-com)	; to fix auto-fill
+	      (setq mail-use-rfc822 nil)
+	      (add-hook 'gnus-summary-mode-hook
+			(function (lambda ()
+				    (make-local-variable 'mail-use-rfc822)
+				    (setq mail-use-rfc822 t))))
+	      (if (>= emacs-major-version 21)
+		  (progn
+		    (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
+		    (add-hook 'gnus-startup-hook 'bbdb-insinuate-message)))
+	      (fset 'bbdb-auto-fill-function (lambda () t)) ; ditto
+	      (fmakunbound 'bbdb-orig-rmail-expunge)
+	      ;(add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)
 	      (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
 	      (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
+	      (setq bbdb-dwim-net-address-allow-redundancy t)
 	      (add-hook 'mail-setup-hook 'bbdb-define-all-aliases)
 	      (add-hook 'gnus-message-setup-hook 'bbdb-define-all-aliases)
-    
-	      
+	      (if (not (fboundp 'define-mail-abbrev))
+		  ;; fix a bug which crashes occasionally -- see also
+		  ;; bbdb-com
+		  (progn
+		    (require 'sendmail)
+		    ;(defadvice sendmail-pre-abbrev-expand-hook
+		     ; (before bbdb-rebuilt-all-aliases activate)
+		     ; (bbdb-rebuilt-all-aliases))
+		    ))
+	      (defun gnuserv-start-maybe ()
+		(if (not (frame-live-p gnuserv-frame))
+		    (gnuserv-start)))
+;;;	      (require 'itimer)
+;;;	      (start-itimer "gsr" 'gnuserv-start-maybe
+;;;			    1200 1200 nil nil)
 
 	    (if window-system
 		(progn
@@ -359,10 +388,10 @@
 					18))))
 				    ))
 		  (make-frame-invisible scr))
-		(setq ht-default-config (current-window-configuration)))))
+		(setq ht-default-config (current-window-configuration))))))
       (setq sgml-insert-missing-element-comment nil)
       (add-hook 'sgml-mode-hook 'sgml-fix-para)
-))
+)
   ;; v18 emacs only goes here
   (progn
     (require 'compress)
@@ -374,13 +403,19 @@
       (load "ht-rooms.config" nil t)
       (setq ht-default-config (current-window-configuration)))))
 
+(defun ht-rooms-resetup ()
+  (interactive)
+  (setq rooms-table nil)
+  (setq frames-table nil)
+  (ht-rooms-setup))
+
 (defun sgml-fix-para ()
   (setq paragraph-separate
 	"</[^>]*>\n\\([ \t]+\\| \\)")
   (setq paragraph-start
        	"^[ \t]*</?[A-Za-z._-]+[ >]"))
 
-(defun highlight-headers-ht-follow-url-netscape (url)
+(defun highlight-headers-ht-follow-url-netscape (url &optional arg)
   (message "Sending URL to Netscape...")
   (save-excursion
     (set-buffer (get-buffer-create "*Shell Command Output*"))
@@ -398,63 +433,6 @@
 
 (cd (user-home-directory))
 
-(defun ht-custom-size ()
-  (interactive)
-  (site-caseq ((laptop maritain)
-               (message (format "pw: %s" (device-pixel-width (selected-device))))))
-  (if (fboundp 'device-pixel-width)
-      (let ((pw (device-pixel-width (selected-device)))
-            (ph (device-pixel-height (selected-device))))
-        (cond ((= pw 2048)
-		      ;; we're on a _really_ big external monitor
-		      (set-frame-pixel-size (selected-frame) 900 1050)
-		      (set-frame-position (selected-frame) 0 0))
-	      ((= pw 1920)
-		      ;; we're on a 27" curved external monitor
-		      (set-frame-pixel-size (selected-frame) 720 980)
-		      (set-frame-position (selected-frame) -8 2))
-	      ((= pw 1680)
-	       ;; we're on a big external monitor
-               (font-menu-set-font nil nil 10)
-	       (set-frame-pixel-size (selected-frame) 900 1000)
-	       (set-frame-position (selected-frame) -3 -20))
-              ((= pw 1097)
-               ;; we're on an XPS 13, mag. 300%
-               (require 'font-menu)
-               (font-menu-set-font nil nil 9)
-               (set-frame-pixel-size (selected-frame) 583 583); 80 x 39
-               (set-frame-position (selected-frame) -5 -26))
-              ((= pw 1536)
-               ;; we're on an XPS 13, mag. 250%
-               (require 'font-menu)
-               (font-menu-set-font nil nil 10)
-               (set-frame-pixel-size (selected-frame) 670 782); 81 x 49
-               (set-frame-position (selected-frame) -5 -26))
-              ((= ph 768)
-               ;; we're on a narrow cinema-ratio laptop
-               (set-frame-pixel-size (selected-frame) 690 710)
-               (set-frame-position (selected-frame) -5 -26))
-              ((= ph 900)
-               ;; we're on a cinema-ratio laptop
-               (set-frame-pixel-size (selected-frame) 800 820)
-               (set-frame-position (selected-frame) -3 -20))
-              ((= pw 1600)
-               ;; we're on a big external monitor
-               (set-frame-pixel-size (selected-frame) 900 1120)
-               (set-frame-position (selected-frame) -3 -20))
-              ((= pw 1280)
-               (cond ((= ph 720)
-                      (set-frame-pixel-size (selected-frame) 700 655)
-                      (set-frame-position (selected-frame) -3 -30))
-                     (t
-                      (set-frame-pixel-size (selected-frame) 700 960)
-                      (set-frame-position (selected-frame) -3 -20))))))))
+(require 'misc) ; used to be in common-init...
 
 (ht-custom-size)
-
-;;; make dired list directories first
-(defadvice dired-insert-directory (before my-dired-insert-directory
-                                   (dir-or-list switches &optional wildcard full-p))
-  (setq switches (concat switches " --group-directories-first")))
-
-(ad-activate 'dired-insert-directory)