[Small-cl-src-discuss] Eye-candy for gnus users.

[Lawrence Mitchell]

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))


-- 
Lawrence Mitchell <wence at gmx.li>