sc-setup.el

   1 ;;;
   2 ;;; $Id: sc-setup.el,v 1.3 1994/08/22 13:56:10 morioka Exp morioka $
   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 (if (< (string-to-int emacs-version) 19)
  18     (autoload 'sc-cite-original "sc" nil t)
  19   (autoload 'sc-cite-original   "supercite" "supercite 3.1" t)
  20   (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t))
  21 (setq sc-citation-leader "")
  22 (cond ((boundp 'MULE)
  23        ;; for MULE
  24        (setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cj\\)*>+\\s *")
  25        )
  26       ((boundp 'NEMACS)
  27        ;; for Nemacs
  28        (setq sc-cite-regexp
  29              "\\s *\\([a-zA-Z0-9]\\|\\cc\\|\\cC\\|\\ch\\|\\cH\\|\\ck\\|\\cK\\)*>+\\s *")
  30        ))
  31 (if (< (string-to-int emacs-version) 19)
  32     (progn
  33       (defun my-sc-overload-hook ()
  34         (require 'sc-oloads)
  35         (sc-overload-functions)
  36         )
  37
  38       ;; @@ for all but mh-e
  39       ;;
  40       (setq mail-yank-hooks (function sc-cite-original))
  41
  42       ;; @@ for RMAIL, PCMAIL, GNUS
  43       ;;
  44       (add-hook 'mail-setup-hook (function my-sc-overload-hook))
  45
  46       ;; @@ for Gnus
  47       ;;
  48       (add-hook 'news-reply-mode-hook (function my-sc-overload-hook))
  49       (add-hook 'gnews-ready-hook (function my-sc-overload-hook))
  50
  51       ;; @@ for mh-e
  52       ;;
  53       (add-hook 'mh-letter-mode-hook (function my-sc-overload-hook))
  54       (setq mh-yank-hooks 'sc-cite-original)  ; for MH-E only
  55       )
  56   (add-hook 'mail-citation-hook 'sc-cite-original)
  57   (setq news-reply-header-hook nil)
  58   )
  59
  60
  61 ;;; @ for sc-register
  62 ;;;
  63 ;; (setq sc-load-hook
  64 ;;       '(lambda ()
  65 ;;        (require 'sc-register)
  66 ;;        (setq sc-rewrite-header-list
  67 ;;              (append sc-rewrite-header-list
  68 ;;                      (list (list 'sc-header-in-Japanese))
  69 ;;                      ))
  70 ;;        (setq sc-preferred-header-style
  71 ;;              (- (length sc-rewrite-header-list) 1))
  72 ;;        ))
  73 (setq sc-preferred-attribution 'registeredname)