[Mailman-Developers] Re: mailman and the web (OFFTOPIC)

J C Lawrence claw@kanga.nu
Mon, 19 Mar 2001 20:51:22 -0800


On Sun, 18 Mar 2001 02:05:24 +0100 
Thomas Wouters <thomas@xs4all.net> wrote:

> It's 'joe', but it could have been (X)Emacs as well :) I haven't
> figured out how to teach (X)Emacs about quote characters yet,
> though. 

Look into SuperCite.  From my .xemacs:

--<cut>--
;;; This last part is for supercite.  It does not need to be specifically 
;;; tailored to Exmh, but here is my configuration:

(autoload 'sc-cite-original     "supercite" "Supercite 3.1" t)
(setq sc-nested-citation-p t)
(setq sc-reference-tag-string "")
(setq sc-citation-delimiter ">")
(setq sc-citation-leader "")
(setq sc-nuke-mail-headers 'all)
(setq sc-mail-warn-if-non-rfc822-p nil)
(setq sc-citation-leader "")
(setq sc-confirm-always-p nil)

(defun my-sc-header ()
  (insert sc-reference-tag-string
    (sc-hdr "On " (sc-mail-field "date") " ")
    "\n"
    (sc-hdr ""   (sc-mail-field "sc-author") "")
    (or (sc-hdr " <" (sc-mail-field "sc-from-address") ">" t)
      (sc-hdr " <" (sc-mail-field "sc-reply-address") ">"  t)
    )
    " wrote:\n"
  )
)

(setq sc-rewrite-header-list '((my-sc-header)))
(setq sc-preferred-header-style 0)
--<cut>--

Its a deliberately lightweight setup (I don't like SuperCite's
default quoting pattern using initials).  However it works very
nicely as regards recognising quoting patterns.

-- 
J C Lawrence                                       claw@kanga.nu
---------(*)                          http://www.kanga.nu/~claw/
--=| A man is as sane as he is dangerous to his environment |=--