;;;-*- Emacs-Lisp -*-
;;; File: .emacs-sc
;;; Customaized Setup File for SuperCite in CC
;;; Created by M.Kuwada (kuwada@ee.uec.ac.jp) on 28-Apr-98
;;; Last Modified by M.Kuwada (kuwada@ee.uec.ac.jp) on 30-Apr-98

;;; setup for Supercite
;(autoload 'sc-perform-overloads "sc-oloads" "Supercite 3.1" t)
;
;(add-hook 'message-mode-hook 'sc-perform-overloads)
;(add-hook 'message-setup-hook 'sc-perform-overloads)
;(add-hook 'news-reply-mode-hook 'sc-perform-overloads)
;(add-hook 'mail-setup-hook 'sc-perform-overloads)
;(add-hook 'mh-letter-mode-hook 'sc-perform-overloads)

(autoload 'sc-cite-original     "supercite" "Supercite 3.1" t)
(autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
(add-hook 'mail-citation-hook 'sc-cite-original)
(add-hook 'mh-yank-hooks 'sc-cite-original)
(add-hook 'mew-cite-hook 'sc-cite-original)        
(setq news-reply-header-hook nil)
(setq message-cite-function 'sc-cite-original)
(setq sc-electric-references-p t)
(setq sc-auto-fill-region-p nil)
(setq sc-citation-leader "")
(setq sc-reference-tag-string ">>>>> ")
(setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cj\\)*>+\\s *")
(setq sc-citation-root-regexp "\\([-._a-zA-Z0-9]\\|\\cj\\)*")
(setq sc-citation-nonnested-root-regexp "\\([-._a-zA-Z0-9]\\|\\cj\\)+")
;(setq sc-preferred-header-style 1)
(setq sc-preferred-header-style 8)
(setq sc-rewrite-header-list 
  '((sc-no-header)
    (sc-header-on-said)
    (sc-header-inarticle-writes)
    (sc-header-regarding-adds)
    (sc-header-attributed-writes)
    (sc-header-author-writes)
    (sc-header-verbose)
    (sc-no-blank-line-or-header)
    (sc-header-verbose-j)
    ))

;;
;; new-function
;;
(defun sc-header-verbose-j ()
  "Very verbose, some say gross."
  (let ((sc-mumble "")
	(whofrom (sc-whofrom))
	(tag sc-reference-tag-string))
    (if whofrom
	(insert (sc-hdr (concat tag "Message-ID: ")
			(sc-mail-field "message-id") "\n")
		(sc-hdr (concat tag "Newsgroup: ")
			(sc-mail-field "newsgroups") "\n")
		(sc-hdr (concat tag "話  題: ") (sc-mail-field "subject") "\n")
		(sc-hdr (concat tag "時  刻: ") (sc-mail-field "date") "\n")
		(or (sc-hdr (concat tag "の ") (sc-mail-field "sc-author") " さんによると...\n" t)
		    (concat tag "の " whofrom " さんによると...\n"))
		(sc-hdr (concat tag "(詳しくは ")
			(sc-mail-field "references")
			" も見てください)\n")
		))))

;;
;; set attribution list
;;
(setq sc-preferred-attribution-list
  '("sc-consult" "x-attribution" "firstname" "initials" "lastname" "emailname"))
;(setq sc-attrib-selection-list
;      '(("from" ((".kuwada@.*" . "私")
;		 (".saito@.*" . "斉藤さん")))))