tm 4.8.2.

[elisp/tm.git] / sc-setup.el

diff --git a/sc-setup.el b/sc-setup.el
new file mode 100644 (file)
index 0000000..c191963
--- /dev/null
+++ b/sc-setup.el
@@ -0,0 +1,64 @@
+;;;
+;;; $Id: sc-setup.el,v 1.2 1994/08/20 12:12:59 morioka Exp $
+;;;
+
+(provide 'sc-setup)
+
+
+;;; @ for Emacs 18
+;;;
+(if (not (fboundp 'add-hook))
+    (require 'tl-18)
+  )
+
+
+;;; @ for Super Cite
+;;;
+(autoload 'sc-cite-original "sc" nil t)
+(setq sc-citation-leader "")
+(cond ((boundp 'MULE)
+       ;; for MULE
+       (setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cj\\)*>+\\s *")
+       )
+      ((boundp 'NEMACS)
+       ;; for Nemacs
+       (setq sc-cite-regexp
+            "\\s *\\([a-zA-Z0-9]\\|\\cc\\|\\cC\\|\\ch\\|\\cH\\|\\ck\\|\\cK\\)*>+\\s *")
+       ))
+(defun my-sc-overload-hook ()
+  (require 'sc-oloads)
+  (sc-overload-functions)
+  )
+
+;;; @@ for all but mh-e
+;;;
+(setq mail-yank-hooks (function sc-cite-original))
+
+;;; @@ for RMAIL, PCMAIL, GNUS
+;;;
+(add-hook 'mail-setup-hook (function my-sc-overload-hook))
+
+;;; @@ for Gnus
+;;;
+(add-hook 'news-reply-mode-hook (function my-sc-overload-hook))
+(add-hook 'gnews-ready-hook (function my-sc-overload-hook))
+      
+;;; @@ for mh-e
+;;;
+(add-hook 'mh-letter-mode-hook (function my-sc-overload-hook))
+(setq mh-yank-hooks 'sc-cite-original)  ; for MH-E only
+
+
+;;; @ for sc-register
+;;;
+;; (setq sc-load-hook
+;;       '(lambda ()
+;;       (require 'sc-register)
+;;       (setq sc-rewrite-header-list
+;;             (append sc-rewrite-header-list
+;;                     (list (list 'sc-header-in-Japanese))
+;;                     ))
+;;       (setq sc-preferred-header-style
+;;             (- (length sc-rewrite-header-list) 1))
+;;       ))
+(setq sc-preferred-attribution 'registeredname)