sc-setup.el

   1 ;;;
   2 ;;; $Id: sc-setup.el,v 3.0 1995/08/26 18:37:34 morioka Exp $
   3 ;;;
   4
   5 (require 'emu)
   6
   7
   8 ;;; @ for Super Cite
   9 ;;;
  10
  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)
  15   )
  16
  17 (setq sc-citation-leader "")
  18
  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
  29 (if (< emacs-major-version 19)
  30     (progn
  31       (defun my-sc-overload-hook ()
  32         (require 'sc-oloads)
  33         (sc-overload-functions)
  34         )
  35
  36       ;; @@ for all but mh-e
  37       ;;
  38       (setq mail-yank-hooks (function sc-cite-original))
  39
  40       ;; @@ for RMAIL, PCMAIL, GNUS
  41       ;;
  42       (add-hook 'mail-setup-hook (function my-sc-overload-hook))
  43
  44       ;; @@ for Gnus
  45       ;;
  46       (add-hook 'news-reply-mode-hook (function my-sc-overload-hook))
  47       (add-hook 'gnews-ready-hook (function my-sc-overload-hook))
  48
  49       ;; @@ for mh-e
  50       ;;
  51       (add-hook 'mh-letter-mode-hook (function my-sc-overload-hook))
  52       (setq mh-yank-hooks 'sc-cite-original)  ; for MH-E only
  53       )
  54   (add-hook 'mail-citation-hook 'sc-cite-original)
  55   (setq news-reply-header-hook nil)
  56   )
  57
  58
  59 ;;; @ for sc-register
  60 ;;;
  61 ;; (setq sc-load-hook
  62 ;;       '(lambda ()
  63 ;;        (require 'sc-register)
  64 ;;        (setq sc-rewrite-header-list
  65 ;;              (append sc-rewrite-header-list
  66 ;;                      (list (list 'sc-header-in-Japanese))
  67 ;;                      ))
  68 ;;        (setq sc-preferred-header-style
  69 ;;              (- (length sc-rewrite-header-list) 1))
  70 ;;        ))
  71 (setq sc-preferred-attribution 'registeredname)
  72
  73
  74 ;;; @ end
  75 ;;;
  76
  77 (provide 'sc-setup)