For those of you who use Gnus, this little snippet of elisp, which can sit in your ~/.gnus makes postings to small-cl-src, should they match the regexp "^;;;" font-locked as lisp-mode buffers. Yes, yes, it's not CL, I claim something or other...
(add-to-list 'mailcap-mime-extensions '(".lisp" . "application/lisp")) (add-to-list 'mm-automatic-display "application/lisp") (add-to-list 'mm-inlined-types "application/lisp") (add-to-list 'mm-inline-media-tests '("application/lisp" my-display-lisp-inline identity)) (add-to-list 'mm-uu-type-alist '(small-cl-src "^;;;" nil my-mm-small-cl-src-extract nil my-mm-small-cl-src-test)) (eval-after-load "mm-uu" '(mm-uu-configure))
(defun my-mm-small-cl-src-test () (and gnus-newsgroup-name ;; replace this with whatever your small-cl-src's ;; `gnus-newsgroup-name' is. (string-equal gnus-newsgroup-name "gmane.lisp.sources.code")))
(defun my-mm-small-cl-src-extract () (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) '("application/lisp") nil nil (list mm-dissect-disposition (cons 'filename "Lisp source file"))))
(defun my-display-lisp-inline (handle) (mm-display-inline-fontify handle 'lisp-mode))