sc-setup.el

   1 ;;;
   2 ;;; $Id: sc-setup.el,v 1.2 1994/08/20 12:12:59 morioka Exp $
   3 ;;;
   4
   5 (provide 'sc-setup)
   6
   7
   8 ;;; @ for Emacs 18
   9 ;;;
  10 (if (not (fboundp 'add-hook))
  11     (require 'tl-18)
  12   )
  13
  14
  15 ;;; @ for Super Cite
  16 ;;;
  17 (autoload 'sc-cite-original "sc" nil t)
  18 (setq sc-citation-leader "")
  19 (cond ((boundp 'MULE)
  20        ;; for MULE
  21        (setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cj\\)*>+\\s *")
  22        )
  23       ((boundp 'NEMACS)
  24        ;; for Nemacs
  25        (setq sc-cite-regexp
  26              "\\s *\\([a-zA-Z0-9]\\|\\cc\\|\\cC\\|\\ch\\|\\cH\\|\\ck\\|\\cK\\)*>+\\s *")
  27        ))
  28 (defun my-sc-overload-hook ()
  29   (require 'sc-oloads)
  30   (sc-overload-functions)
  31   )
  32
  33 ;;; @@ for all but mh-e
  34 ;;;
  35 (setq mail-yank-hooks (function sc-cite-original))
  36
  37 ;;; @@ for RMAIL, PCMAIL, GNUS
  38 ;;;
  39 (add-hook 'mail-setup-hook (function my-sc-overload-hook))
  40
  41 ;;; @@ for Gnus
  42 ;;;
  43 (add-hook 'news-reply-mode-hook (function my-sc-overload-hook))
  44 (add-hook 'gnews-ready-hook (function my-sc-overload-hook))
  45
  46 ;;; @@ for mh-e
  47 ;;;
  48 (add-hook 'mh-letter-mode-hook (function my-sc-overload-hook))
  49 (setq mh-yank-hooks 'sc-cite-original)  ; for MH-E only
  50
  51
  52 ;;; @ for sc-register
  53 ;;;
  54 ;; (setq sc-load-hook
  55 ;;       '(lambda ()
  56 ;;        (require 'sc-register)
  57 ;;        (setq sc-rewrite-header-list
  58 ;;              (append sc-rewrite-header-list
  59 ;;                      (list (list 'sc-header-in-Japanese))
  60 ;;                      ))
  61 ;;        (setq sc-preferred-header-style
  62 ;;              (- (length sc-rewrite-header-list) 1))
  63 ;;        ))
  64 (setq sc-preferred-attribution 'registeredname)