X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/419c122937bd0e21e49746edcfdcc3be7ac302f8..0191c356991d51c055fd7818adcbcc91fa348214:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index f71b9a2..2f347d6 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -122,6 +122,7 @@
 ;; Emacs server behaviour.
 
 (and (or window-system (mdw-emacs-version-p 23))
+     (not mdw-fast-startup)
      (progn (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$")
 		  edit-server-new-frame nil
 		  gnuserv-frame t)
@@ -199,17 +200,23 @@
     (trap (bbdb-initialize 'gnus 'sendmail 'message)))
 (setq bbdb-file "~/etc/brain/bbdb"
       bbdb-north-american-phone-numbers-p nil
+      bbdb-dwim-net-address-allow-redundancy t
       bbdb-extract-address-components-func 'bbdb-extract-address-components
       bbdb/news-auto-create-p
       (lambda ()
 	(let ((group gnus-newsgroup-name))
-	  (and (string-match "^nnimap\\+" group)
+	  (and (string-match "^nn\\(imap\\|folder\\)\\+" group)
 	       (not (string-match ":\\(crap\\|spam\\|lists\\)\\." group)))))
       bbdb-user-mail-names
       (concat "^"
 	      "\\(" "\\(mdw\\|markw\\|root\\|postmaster\\)"
 		    "\\([-+][^@]*\\|\\)"
 		    "@\\(\\(dist\\|esc\\)orted\\.org\\.uk\\|odin\\.gg\\)"
+	      "\\|" "\\(" "\\(mdw\\|mwooding\\)"
+			  "\\(\\+[^@]*\\)?"
+		    "\\|" "0" "\\(mdw\\|mwooding\\)" "k\\.[^@]*"
+		    "\\)" "@"
+		    "\\(chiark\\|slimy\\|coriolis\\)\\.greenend\\.org\\.uk"
 	      "\\|" "distorted\\.mdw@g\\(\\|oogle\\)mail.com"
 	      "\\|" "mwooding@\\(good\\|blackberry\\)\\.com"
 	      "\\|" "mark\\.wooding@trustonic\\.com"
@@ -218,7 +225,9 @@
       (lambda (addr)
 	(cond ((null addr)
 	       nil)
-	      ((or (string-match (concat "^reply-[0-9a-f]+-[0-9a-f]+_"
+	      ((or (string-match "^mailer-daemon@" addr)
+		   (string-match "\.invalid$" addr)
+		   (string-match (concat "^reply-[0-9a-f]+-[0-9a-f]+_"
 					 "HTML-[0-9]+-[0-9]+-[0-9]+"
 					 "@\\(nationwide-communications\\."
 					 "co\\.uk\\)$")
@@ -233,6 +242,8 @@
 				 addr)
 		   (member (md5 addr)
 			   '("8815c5583970856799c85a3ee0eb6a9f" ;work wiki spam
+			     "0b94ab4d25dacaa5ac07243a09c9e22e" ;work bug spam
+			     "35fb1633379a1e4d4be3b139cae20111" ;work crucible spam
 			     ))
 		   (and (string-match "^news\\([0-9]+\\)@\\(.*\\)$" addr)
 			(string= (md5 (match-string 2 addr))
@@ -304,8 +315,10 @@
 (setq-default truncate-partial-width-windows nil
 	      truncate-lines t)
 (setq default-indicate-empty-lines t)
-(setq whitespace-style
-      '(trailing space-before-tab space-after-tab empty indentation face))
+(setq view-read-only t)
+(setq whitespace-style '(trailing empty indentation face lines-tail
+			 space-before-tab space-after-tab)
+      whitespace-line-column 77)
 (setq woman-use-own-frame nil		;Keep man pages somewhere sensible
       woman-fill-column 72)		;Right margin position.
 (setq diff-switches "-u"		;I like reading unified diffs
@@ -452,7 +465,9 @@
 (setq appt-display-interval 3)
 (setq appt-message-warning-time 10)
 (and (not mdw-fast-startup)
-     (trap (appt-activate 1)))
+     (trap (require 'org)
+	   (require 'bbdb)
+	   (appt-activate 1)))
 
 ;; Org-mode agenda.
 
@@ -472,7 +487,7 @@
 (display-time)
 (column-number-mode 1)
 (trap
-  (if window-system
+  (if (and window-system (not mdw-fast-startup))
       (let ((calendar-view-diary-initially-flag t))
 	(calendar))))
 
@@ -536,6 +551,9 @@
 	     (background-color . "black")
 	     (foreground-color . "white"))
 	(nil (menu-bar-lines . 0))))
+(let ((backg (frame-parameter nil 'background-color)))
+  (if (and backg window-system)
+      (push (cons 'background-color backg) default-frame-alist)))
 
 ;; Other frame fiddling.
 
@@ -650,7 +668,6 @@
 			  "\\)$")
 		 . text-mode)
 		("\\.calc?$" . apcalc-mode)
-		("/src/linux/.*\\.\\(c\\|h\\|cc\\)$" . linux-c-mode)
 		("/\\(s\\|sh\\)/" . arm-assembler-mode)
 		("\\.\\(cmd\\|exec\\|rexx\\)$" . rexx-mode)
 		("\\.st$" . smalltalk-mode)
@@ -771,7 +788,6 @@
   (add-hook 'c-mode-hook 'mdw-fontify-c-and-c++ t)
   (add-hook 'objc-mode-hook 'mdw-fontify-c-and-c++ t)
   (add-hook 'c++-mode-hook 'mdw-fontify-c-and-c++ t)
-  (add-hook 'linux-c-mode-hook #'(lambda () (setq c-basic-offset 8)))
   (add-hook 'asm-mode-hook 'mdw-fontify-asm t)
   (add-hook 'go-mode-hook 'mdw-fontify-go t)
   (add-hook 'rust-mode-hook 'mdw-fontify-rust t)