(require 'supercite)
(defvar sc-rewrite-header-list
'((sc-no-header)
(sc-no-blank-line-or-header)
(sc-header-inarticle-wrote)
(sc-header-verbose)
(sc-header-on-said)
(sc-header-regarding-adds)
(sc-header-attributed-wrote)
(sc-header-author-wrote))
"*List of reference header rewrite functions. The variable
`sc-preferred-header-style' controls which function in this list is
chosen for automatic reference header insertions. Electric reference
mode will cycle through this list of functions.")
(setq sc-preferred-attribution-list
(list
'"sc-lastchoice"
"x-attribution"
"sc-consult"
"initials"
"firstname"
"emailname"
"lastname"))
(setq
message-cite-function 'sc-cite-original
sc-confirm-always-p nil
sc-preferred-header-style 4
sc-auto-fill-region-p nil
sc-fixup-whitespace-p nil
sc-electric-references-p t
sc-cite-blank-lines-p nil
sc-nested-citation-p nil
sc-citation-leader " "
sc-citation-separator ""
sc-reference-tag-string "|--==> "
sc-citation-delimiter "> ")
(defun sy-sc-remove-signature ()
"Removes the signature from the original message.
To use, hang it off the appropriate hook such as `sc-pre-hook' so
you're not citing useless stuff."
(save-excursion
(let ((start (point))
(end (mark t))
(sig-sep gnus-signature-separator))
(while sig-sep
(goto-char end)
(when (re-search-backward (car sig-sep) start t)
(forward-line -1)
(while (looking-at "[ \t]*$")
(forward-line -1))
(forward-line 1)
(setq mark (set-marker (make-marker) (point)))
(delete-region mark (mark t)))
(setq sig-sep (cdr sig-sep))))))
(add-hook 'sc-load-hook 'sc-setup-filladapt)
(add-hook 'sc-pre-hook 'sy-sc-remove-signature)
(add-hook 'mail-citation-hook 'sc-cite-original)
(provide 'supercite-sy)
Copyright © 2003 Steve Youngs
Verbatim copying and distribution is permitted in any medium,
providing this notice is preserved.
Last modified: Sat Oct 18 02:16:36 EST 2003