Mercurial > hg > xemacs-beta
comparison lisp/tm/sc-setup.el @ 4:b82b59fe008d r19-15b3
Import from CVS: tag r19-15b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:46:56 +0200 |
| parents | |
| children | 4b173ad71786 |
comparison
equal
deleted
inserted
replaced
| 3:30df88044ec6 | 4:b82b59fe008d |
|---|---|
| 1 ;;; | |
| 2 ;;; $Id: sc-setup.el,v 1.1.1.1 1996/12/18 03:55:31 steve Exp $ | |
| 3 ;;; | |
| 4 | |
| 5 (require 'emu) | |
| 6 | |
| 7 | |
| 8 ;;; @ for Super Cite | |
| 9 ;;; | |
| 10 | |
| 11 (if (< emacs-major-version 19) | |
| 12 (autoload 'sc-cite-original "sc" nil t) | |
| 13 (autoload 'sc-cite-original "supercite" "supercite 3.1" t) | |
| 14 (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t) | |
| 15 ) | |
| 16 | |
| 17 (setq sc-citation-leader "") | |
| 18 | |
| 19 (cond ((boundp 'MULE) | |
| 20 ;; for MULE | |
| 21 (setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cj\\)*>+\\s *") | |
| 22 ) | |
| 23 ((boundp 'NEMACS) | |
| 24 ;; for Nemacs | |
| 25 (setq sc-cite-regexp | |
| 26 "\\s *\\([a-zA-Z0-9]\\|\\cc\\|\\cC\\|\\ch\\|\\cH\\|\\ck\\|\\cK\\)*>+\\s *") | |
| 27 )) | |
| 28 | |
| 29 (if (< emacs-major-version 19) | |
| 30 (progn | |
| 31 (defun my-sc-overload-hook () | |
| 32 (require 'sc-oloads) | |
| 33 (sc-overload-functions) | |
| 34 ) | |
| 35 | |
| 36 ;; @@ for all but mh-e | |
| 37 ;; | |
| 38 (setq mail-yank-hooks (function sc-cite-original)) | |
| 39 | |
| 40 ;; @@ for RMAIL, PCMAIL, GNUS | |
| 41 ;; | |
| 42 (add-hook 'mail-setup-hook (function my-sc-overload-hook)) | |
| 43 | |
| 44 ;; @@ for Gnus | |
| 45 ;; | |
| 46 (add-hook 'news-reply-mode-hook (function my-sc-overload-hook)) | |
| 47 (add-hook 'gnews-ready-hook (function my-sc-overload-hook)) | |
| 48 | |
| 49 ;; @@ for mh-e | |
| 50 ;; | |
| 51 (add-hook 'mh-letter-mode-hook (function my-sc-overload-hook)) | |
| 52 (setq mh-yank-hooks 'sc-cite-original) ; for MH-E only | |
| 53 ) | |
| 54 (add-hook 'mail-citation-hook 'sc-cite-original) | |
| 55 (setq news-reply-header-hook nil) | |
| 56 ) | |
| 57 | |
| 58 | |
| 59 ;;; @ for sc-register | |
| 60 ;;; | |
| 61 ;; (setq sc-load-hook | |
| 62 ;; '(lambda () | |
| 63 ;; (require 'sc-register) | |
| 64 ;; (setq sc-rewrite-header-list | |
| 65 ;; (append sc-rewrite-header-list | |
| 66 ;; (list (list 'sc-header-in-Japanese)) | |
| 67 ;; )) | |
| 68 ;; (setq sc-preferred-header-style | |
| 69 ;; (- (length sc-rewrite-header-list) 1)) | |
| 70 ;; )) | |
| 71 (setq sc-preferred-attribution 'registeredname) | |
| 72 | |
| 73 | |
| 74 ;;; @ end | |
| 75 ;;; | |
| 76 | |
| 77 (provide 'sc-setup) |