(custom-set-variables ;; custom-set-variables was added by Custom -- don't edit or cut/paste it! ;; Your init file should contain only one such instance. '(add-log-full-name "Your Name" t) '(add-log-mailing-address "whatever@mail_address" t) '(add-log-time-format (quote current-time-string)) '(auto-compression-mode t nil (jka-compr)) '(case-fold-search t) '(change-log-default-name nil) '(current-language-environment "Latin-1") '(default-input-method "latin-1-prefix") '(display-time-24hr-format t) '(display-time-day-and-date t) '(display-time-use-mail-icon t) '(file-coding-system-alist (quote (("\\.g?z\\(~\\|\\.~[0-9]+~\\)?\\'" no-conversion . no-conversion) ("\\.tgz\\'" no-conversion . no-conversion) ("\\.bz2\\'" no-conversion . no-conversion) ("\\.Z\\(~\\|\\.~[0-9]+~\\)?\\'" no-conversion . no-conversion) ("\\.elc\\'" emacs-mule . emacs-mule) ("\\(\\`\\|/\\)loaddefs.el\\'" raw-text . raw-text-unix) ("\\.tar\\'" no-conversion . no-conversion) ("\\.html\\'" no-conversion . iso-8859-1) ("" undecided)))) '(font-lock-mode t t (font-lock)) '(font-lock-mode-enable-list (quote (latex-mode python-mode))) '(global-font-lock-mode t nil (font-lock)) '(gnus-after-getting-new-news-hook (quote (display-time-event-handler nnmail-split-history))) '(gnus-article-sort-functions (quote (gnus-article-sort-by-date))) '(gnus-group-mode-hook (quote (gnus-topic-mode))) '(gnus-ignored-from-addresses ".*berger.*") '(gnus-message-archive-group "archive") '(gnus-permanently-visible-groups "^nnml\\\\|^nnfolder") '(gnus-pers-cc-fix nil) '(gnus-personalities (quote (("default" "Your Name " "" "~/.signature") ("alternate" "Your Name " "Sender: whatever_2nd@mail_address Organization: Your Organisation - http://your.organisation.org" "~/.signature.2nd")))) '(gnus-personality-electric-headers (quote ((any ".*organisation\\.org" "alternate") (any ".*@special\\.other_org\\.org" "alternate")))) '(gnus-secondary-select-methods (quote ((nnml "")))) '(gnus-select-method (quote (nntp "news_server"))) '(gnus-startup-hook (quote (bbdb-insinuate-gnus))) '(gnus-summary-ignore-duplicates t) '(gnus-summary-line-format "%U%R%z%26,26D %I%(%[%4L: %-20,20n%]%) %s ") '(gnus-thread-sort-functions (quote (gnus-thread-sort-by-date))) '(gnus-treat-display-picons nil) '(gnus-treat-display-xface (quote head)) '(gnus-treat-strip-pgp nil) '(gnus-visible-headers (quote ("^From:" "^Newsgroups:" "^Subject:" "^Date:" "^Followup-To:" "^Reply-To:" "^Organization:" "^Summary:" "^Keywords:" "^To:" "^[BGF]?Cc:" "^Posted-To:" "^Mail-Copies-To:" "^Apparently-To:" "^Gnus-Warning:" "^Resent-From:" "^X-Sent:" "^X-Loop:" "^X-Spam-Status:"))) '(gnuserv-program (concat exec-directory "/gnuserv")) '(ispell-skip-sgml t) '(mail-sources (quote ((file :path "/var/spool/mail/your_uid")))) '(message-kill-buffer-on-exit t) '(message-mode-hook (quote (turn-on-auto-fill))) '(message-setup-hook (quote (mc-install-write-mode))) '(message-syntax-checks (quote ((sender . disabled)))) '(nnmail-post-get-new-mail-hook nil) '(nnmail-split-methods (quote gnus-group-split)) '(ps-landscape-mode nil) '(ps-number-of-columns 1) '(ps-paper-type (quote a4) t) '(query-user-mail-address nil) '(sgml-auto-activate-dtd t t) '(sgml-set-face t t) '(sgml-trace-entity-lookup t t) '(show-paren-mode t nil (paren)) '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify))) '(transient-mark-mode t) '(uniquify-buffer-name-style (quote forward) nil (uniquify)) '(user-mail-address "whatever@mail_address")) ;; ;; Storage for local emacs mode for this user ;; (add-to-list 'load-path (expand-file-name "~/emacs-lisp")) ;; '(toolbar-mail-reader (quote gnus)) ;; '(message-mode-hook (quote (message-xmas-maybe-fontify turn-on-auto-fill))) ;; '(gnus-summary-mode-hook (quote (gnus-xmas-switch-horizontal-scrollbar-off gnus-xmas-setup-summary-toolbar gnus-xmas-summary-menu-add mc-install-read-mode))) ;; ;; Allow minibuffer to be larger than default ;; (setq minibuffer-max-depth nil) ;; ;; Mailcrypt configuration : using GnuPG ;; (setq mc-default-scheme 'mc-scheme-gpg) ;; ;; Make user version of psgml loaded in priority over the system installed version ;; (add-to-list 'load-path (expand-file-name "~/emacs-lisp/psgml-1.2.4")) ;; ;; Creating new font faces for PSGML (SGML/XML editing) ;; done by copying existing font faces that can later be configured ;; (copy-face 'default 'sgml-start-tag-face) (copy-face 'default 'sgml-end-tag-face) (copy-face 'italic 'sgml-comment-face) (copy-face 'bold 'sgml-pi-face) (copy-face 'bold 'sgml-sgml-face) (copy-face 'bold 'sgml-doctype-face) (copy-face 'default 'sgml-entity-face) (copy-face 'bold 'sgml-shortref-face) (copy-face 'default 'sgml-ignored-face) (copy-face 'default 'sgml-ms-start-face) (copy-face 'default 'sgml-ms-end-face) ;; automatically display sgml font faces (setq-default sgml-set-face t) ;; tell psgml to use the fonts we just created (setq sgml-markup-faces '((start-tag . sgml-start-tag-face) (end-tag . sgml-end-tag-face) (comment . sgml-comment-face) (pi . sgml-pi-face) (sgml . sgml-sgml-face) (doctype . sgml-doctype-face) (entity . sgml-entity-face) (shortref . sgml-shortref-face) (ignored . sgml-ignored-face) (ms-start . sgml-ms-start-face) (ms-end . sgml-ms-end-face))) ;; ;; Automatically load VC for version control of CVS managed files ;; (load "vc-hooks") ;;(autoload 'xml-mode "psgml" "Major mode to edit XML files." t) ;;(add-to-list 'auto-mode-alist '("\\.xml\\'" . xml-mode)) ;;(add-to-list 'auto-mode-alist '("\\.html\\'" . html-mode)) ;; don't know what's that about (require 'tex-site) ;;(add-to-list 'load-path (expand-file-name "~/emacs-lisp/xae-1.0beta6/lisp")) ;;(require 'xae) ;;(autoload 'po-find-file-coding-system "po-mode") ;; (modify-coding-system-alist 'file "\\.po[tx]?\\'\\|\\.po\\." ;; 'po-find-file-coding-system) ;; ;; support for mouse wheel ;; (mwheel-install) ;; ;; BBDB handles the the address book ;; (require 'bbdb) (bbdb-initialize) ;; ;; display the battery status in the emacs buffer separator lines ;; (display-battery) ;; ;; display the time and other various stuff in the buffer separator lines ;; (display-time) ;; ;; display different background color than the default one ;; (set-background-color "AntiqueWhite1") ;; ;; customise the PSGML specific fonts ;; (custom-set-faces ;; custom-set-faces was added by Custom -- don't edit or cut/paste it! ;; Your init file should contain only one such instance. '(sgml-comment-face ((t (:foreground "turquoise4" :slant italic)))) '(sgml-end-tag-face ((t (:foreground "steelblue1")))) '(sgml-entity-face ((t (:foreground "gray50")))) '(sgml-start-tag-face ((t (:foreground "blue"))))) ;; Map a key to goto-line (global-set-key "\C-c\C-g" 'goto-line)