2 ;;; $Id: sc-setup.el,v 3.0 1995/08/26 18:37:34 morioka Exp $
11 (if (< emacs-major-version 19)
12 (autoload 'sc-cite-original "sc" nil t)
13 (autoload 'sc-cite-original "supercite" "supercite 3.1" t)
14 (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
17 (setq sc-citation-leader "")
21 (setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cj\\)*>+\\s *")
26 "\\s *\\([a-zA-Z0-9]\\|\\cc\\|\\cC\\|\\ch\\|\\cH\\|\\ck\\|\\cK\\)*>+\\s *")
29 (if (< emacs-major-version 19)
31 (defun my-sc-overload-hook ()
33 (sc-overload-functions)
36 ;; @@ for all but mh-e
38 (setq mail-yank-hooks (function sc-cite-original))
40 ;; @@ for RMAIL, PCMAIL, GNUS
42 (add-hook 'mail-setup-hook (function my-sc-overload-hook))
46 (add-hook 'news-reply-mode-hook (function my-sc-overload-hook))
47 (add-hook 'gnews-ready-hook (function my-sc-overload-hook))
51 (add-hook 'mh-letter-mode-hook (function my-sc-overload-hook))
52 (setq mh-yank-hooks 'sc-cite-original) ; for MH-E only
54 (add-hook 'mail-citation-hook 'sc-cite-original)
55 (setq news-reply-header-hook nil)
63 ;; (require 'sc-register)
64 ;; (setq sc-rewrite-header-list
65 ;; (append sc-rewrite-header-list
66 ;; (list (list 'sc-header-in-Japanese))
68 ;; (setq sc-preferred-header-style
69 ;; (- (length sc-rewrite-header-list) 1))
71 (setq sc-preferred-attribution 'registeredname)