X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=sc-setup.el;h=4b0b2f5bb59406ee0e07a1592145e4cf64de319d;hb=d26bc385edbd0d6d6abdcdaf7fb011296ff7eba8;hp=c19196344faf8a2327e5bb09ed8f882bfc9402d3;hpb=97a4d0fb367a9ef62d8ff08c55db71b7a0933848;p=elisp%2Ftm.git

diff --git a/sc-setup.el b/sc-setup.el
index c191963..4b0b2f5 100644
--- a/sc-setup.el
+++ b/sc-setup.el
@@ -1,21 +1,21 @@
 ;;;
-;;; $Id: sc-setup.el,v 1.2 1994/08/20 12:12:59 morioka Exp $
+;;; $Id: sc-setup.el,v 3.0 1995/08/26 18:37:34 morioka Exp $
 ;;;
 
-(provide 'sc-setup)
+(require 'emu)
 
 
-;;; @ for Emacs 18
+;;; @ for Super Cite
 ;;;
-(if (not (fboundp 'add-hook))
-    (require 'tl-18)
-  )
 
+(if (< emacs-major-version 19)
+    (autoload 'sc-cite-original "sc" nil t)
+  (autoload 'sc-cite-original	"supercite" "supercite 3.1" t)
+  (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
+  )
 
-;;; @ 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 *")
@@ -25,28 +25,35 @@
        (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))
+(if (< emacs-major-version 19)
+    (progn
+      (defun my-sc-overload-hook ()
+	(require 'sc-oloads)
+	(sc-overload-functions)
+	)
 
-;;; @@ for RMAIL, PCMAIL, GNUS
-;;;
-(add-hook 'mail-setup-hook (function my-sc-overload-hook))
+      ;; @@ for all but mh-e
+      ;;
+      (setq mail-yank-hooks (function sc-cite-original))
 
-;;; @@ for Gnus
-;;;
-(add-hook 'news-reply-mode-hook (function my-sc-overload-hook))
-(add-hook 'gnews-ready-hook (function my-sc-overload-hook))
+      ;; @@ 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 mh-e
+      ;;
+      (add-hook 'mh-letter-mode-hook (function my-sc-overload-hook))
+      (setq mh-yank-hooks 'sc-cite-original)  ; for MH-E only
+      )
+  (add-hook 'mail-citation-hook 'sc-cite-original)
+  (setq news-reply-header-hook nil)
+  )
 
 
 ;;; @ for sc-register
@@ -62,3 +69,9 @@
 ;;		(- (length sc-rewrite-header-list) 1))
 ;;	  ))
 (setq sc-preferred-attribution 'registeredname)
+
+
+;;; @ end
+;;;
+
+(provide 'sc-setup)