;;;
-;;; $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 *")
(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
;; (- (length sc-rewrite-header-list) 1))
;; ))
(setq sc-preferred-attribution 'registeredname)
+
+
+;;; @ end
+;;;
+
+(provide 'sc-setup)