dot-emacs: comparison .emacs-my

equal deleted inserted replaced

-:139665dd6ada
+:034e9cfcc17c
 ;; For load order see README.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "recentf")
+(setq recentf-save-file "~/.recentf")
+(when (eq system-type 'cygwin)
+(setq recentf-save-file "~/.recentf-cygwin")
+)
 (require 'recentf)
 ;; Prevent TRAMP to login on remote host when loading.
 ;; Its take time and ask passwords!
 (setq recentf-auto-cleanup 'never)
 (recentf-mode t)
 (message "debugging")
 ;; Shut off message buffer by setting nil.
 (setq message-log-max 512)
-;; Set the debug option to enable a backtrace when a problem occurs.
-(setq debug-on-error nil)               ; t/nil
-(setq debug-on-signal nil)
-;; Get trace when press C-g.
-(setq debug-on-quit nil)                ; t/nil
 ;; Prevent Emacs from loading 'default.el', which loaded after '.emacs'.
 ;; Also '-q' prevent loading your init file.
 (setq inhibit-default-init nil)         ; t/nil
+(defun my-debug (mode)
+"With prefix enable debug backtrace when problems occur else disable."
+(interactive "P")
+(when mode
+;; (setq debug-on-signal t)
+(setq mode t))
+(setq debug-on-error mode)
+;; Get trace when press C-g.
+(setq debug-on-quit mode)
+)
+(my-debug nil)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "user info")
-(setq user-full-name "Oleksandr Gavenko")
+;; Set following in ~/.emacs-auth:
-(setq user-mail-address "gavenkoa@gmail.com")
+;; (setq user-full-name "Oleksandr Gavenko")
-(setq user-nick "gavenkoa")
+;; (setq user-mail-address "gavenkoa@gmail.com")
+;; (setq user-nick "gavenkoa")
+(unless (and (boundp 'user-nick) (stringp user-nick))
+(setq user-nick (user-login-name)) )
 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "my defun, defmacro, defvar")
 emacs-lisp-mode
 makefile-mode makefile-gmake-mode
 nsis-mode
 bat-generic-mode
 html-mode
+LilyPond-mode
 )
 "List of development modes.")
 (defvar my-devel-mode-hook-list
 (my-mode2hook my-devel-mode-list)
 (message "silent runing")
 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1
 (setq inhibit-startup-message t)
-;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "shell, bash, Cygwin, MSYS")
 (defvar my-use-windows-shell nil
 "If t 'cmdproxy.exe' will be used as shell. Affect on M-x shell like
 commands. If nil, 'sh' will be used." )
 (when (eq system-type 'windows-nt)
 (ignore-errors
 (require 'cygwin-mount)
 (cygwin-mount-activate)
 )
-(add-hook 'find-file-hooks 'follow-cygwin-symlink)
+(add-hook 'find-file-hook 'follow-cygwin-symlink)
 ;; Workaround for Cygwin shell, when set 'CYGWIN=noglob'. By default 'shell-quote-argument'
 ;; quoted by double '\' chars this cause failure.
 (defun shell-quote-argument (argument)
 (concat "'" argument "'")
 )
 (setq shell-file-name "bash")
 (setenv "SHELL" "/bin/bash")
 (modify-coding-system-alist 'process "bash" '(cp1251-unix . cp1251-unix))
 )
+(when (eq window-system 'w32)
+;; Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
+;; 'gnutls-cli' run with '-s' opt and process wait for SIGALRM.
+;; But build-in native Emacs 'kill' command can not send such Cygwin
+;; specific sygnal. So 'starttls-negotiate-gnutls' function infinitely
+;; wait for 'gnutls-cli' output.
+(defadvice signal-process (around cygwin (process sigcode))
+"Use 'kill.exe' instead build-in Emacs 'kill'."
+(if (eq sigcode 'SIGALRM)
+(shell-command
+(format "kill.exe -s SIGALRM %d"
+(if (processp process) (process-id process) process)))
+ad-do-it
+))
+(ad-activate 'signal-process)
+(modify-coding-system-alist 'process "gnutls-cli" '(binary . binary))
+)
 (ansi-color-for-comint-mode-on)
 (setq explicit-bash-args '("-i"))
 (setq explicit-sh-args '("-i"))
 ;; See also 'mode-require-final-newline'.
 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil)))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "gnu serv, server")
+(message "server")
-;; (load "~/emacs/bin/gnuserv/gnuserv.el")
+(when (and (>= emacs-major-version 22) (not (eq system-type 'cygwin)))
-;; (require 'gnuserv)
-;; (setq gnuserv-frame (selected-frame))
-(when (>= emacs-major-version 22)
 (require 'server)
 (when (and (= emacs-major-version 23) (>= emacs-minor-version 1) (<= emacs-minor-version 2) (equal window-system 'w32))
 (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows.
 (when (or (= emacs-major-version 22) (not (eq (server-running-p server-name) t)))
 (server-start))
 (message "scrolling")
 (defvar my-scroll-margin 4)
 (setq-default
-scroll-step 1
+;; Set to zero as this recomment documentation.
-scroll-conservatively my-scroll-margin
+scroll-step 0
+;; If the value is greater than 100, redisplay will never recenter point, but
+;; will always scroll just enough text to bring point into view
+scroll-conservatively 1000
 scroll-preserve-screen-position t
 )
 ;; Set margin only for desired modes! Do not frustrate calendar any more.
 (make-variable-buffer-local 'scroll-margin)
 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin))))
 ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4
 (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) )
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "chars, unicode")
+(defun my-print-unicode (&optional start end)
+"Print UNICODE table."
+(interactive "nstart: \nnend: ")
+(switch-to-buffer (get-buffer-create "*UNICODE*"))
+(erase-buffer)
+(let ( (i start) )
+(while (<= i end)
+(insert (format "%s: U+%04x, %s\n" (char-to-string i) i (get-char-code-property i 'name)))
+(setq i (1+ i))
+)))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "search, isearch, occur")
 (setq case-fold-search t)
 (setq query-replace-highlight t)        ; highlight during query
 ;; Make old Emacs key binding like in Emacs 23.x.
 (when (< emacs-major-version 23)
 (global-set-key (kbd "M-s o") 'occur)
 )
-(global-set-key [f7] 'occur)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "grep, find")
 ;; -ls produce very noisy output:
 (eval-after-load 'grep
 '(progn
 (add-to-list 'grep-find-ignored-directories "build" t)
 (add-to-list 'grep-find-ignored-directories "dist" t)
 (add-to-list 'grep-find-ignored-directories "lib" t)
+(add-to-list 'grep-find-ignored-directories "_build" t)
+(add-to-list 'grep-find-ignored-directories "_dist" t)
+(add-to-list 'grep-find-ignored-directories "_lib" t)
 (when (boundp 'grep-find-ignored-files)
 (add-to-list 'grep-find-ignored-files "*TAGS")
 (add-to-list 'grep-find-ignored-files "GPATH")
 )
 ))
+(global-set-key [f7] 'rgrep)
 (global-set-key [M-f7] 'rgrep)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "syntax highlighting")
 (global-font-lock-mode 1)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "highlight selected text")
-;; 1/-1, when the mark is active, the region is highlighted.
+(delete-selection-mode 1)
-(transient-mark-mode 1)
-(delete-selection-mode 1)               ; 1/-1
+(when (<= emacs-major-version 23)
+;; 1/-1, when the mark is active, the region is highlighted.
-;; Order of next items is important, (assignment must done before pc-selection-mode enabled).
+(transient-mark-mode 1)
-(require 'pc-select)
-(setq pc-select-selection-keys-only t)  ; To avoid some key bindings as F6, etc.
+;; Order of next items is important, (assignment must done before pc-selection-mode enabled).
-(setq pc-select-meta-moves-sexps t)
+(require 'pc-select)
-(cond
+(setq pc-select-selection-keys-only t)  ; To avoid some key bindings as F6, etc.
-((= emacs-major-version 21) (pc-selection-mode))
+(setq pc-select-meta-moves-sexps t)
-((>= emacs-major-version 22) (pc-selection-mode 1))
+(cond
-)
+((= emacs-major-version 21) (pc-selection-mode))
+((>= emacs-major-version 22) (pc-selection-mode 1))
+)
+)
 (when (eq window-system 'x)
 (setq x-select-enable-clipboard t)    ; for Emacs 21.2.1 and newer
 )
 ((equal window-system 'x)
 (prefer-coding-system 'utf-8-unix)
 (setq selection-coding-system 'compound-text-with-extensions)
 (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
 (modify-coding-system-alist 'process ".*" 'utf-8-unix)
+)
+((eq system-type 'cygwin)
+(when (string-match "1251\\'" (getenv "LANG"))
+(prefer-coding-system 'cp1251-unix)
+(prefer-coding-system 'utf-8-unix)
+(modify-coding-system-alist 'process ".*" 'cp1251-unix)
+)
 )
 ((eq system-type 'darwin)
 nil
 )
 (t
 "CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
 ) )
 (setq read-file-name-completion-ignore-case t)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "music")
-(setq gnus-audio-au-player "winamp.exe"
-gnus-audio-directory "D:\\music"
-gnus-audio-wav-player "winamp.exe")
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "url")
 ;; http://tools.ietf.org/html/rfc3986
 ;; http://en.wikipedia.org/wiki/Percent-encoding
 (defun my-percent-decode (str)
 (message "standard hooks")
 (add-hook 'write-file-hooks 'time-stamp)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "logging, logs")
+(defun my-auto-revert-tail-mode-hook ()
+(when (string-match "/var/log/\\|\\.log\\'"
+(buffer-file-name (current-buffer)))
+(auto-revert-tail-mode 1)
+))
+(add-hook 'find-file-hook 'my-auto-revert-tail-mode-hook)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "auto-fill")
 (setq-default fill-column 78)
 (defvar my-fill-column 100
 (setq sentence-end-double-space nil)
 ;; Turn on auto-fill mode
 (add-hook 'html-mode-hook 'turn-on-auto-fill)
 (add-hook 'text-mode-hook 'turn-on-auto-fill)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "unknown")
-;; mailcrypt gnus message sendmail bbdb pilot bibtex eiffel-mode emacs-w3m
-;; eudc filladapt hugs-mode mpg123 php-mode ps-print
-;; chord-mode - edit guitar music
-;; discography - variant of BibTeX mode for discographies
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "cacl, calculator")
 (setq-default calc-group-digits t)
 ;(autoload 'LaTeX-preview-setup "preview")
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "Info")
-;; Because of Debian policy documentation covered by FDL license with invariant sections not allowed in packet
-;; repository tree. So it must be installed manually. My usual configuration is install user local software
-;; into ~/usr DISTDIR.
 (unless (getenv "INFOPATH")
 (setenv "INFOPATH" "~/usr/share/info:"))
+;; Assume that cygwin-mount already activated.
+(when (featurep 'cygwin-mount)
+(setenv "INFOPATH" "/usr/share/info/:~/usr/share/info/:")
+;; Redefine path-separator to UNIX to update Info-directory-list.
+(let ( (path-separator ":") )
+(require 'info)
+(info-initialize)
+))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "man, woman")
+;; Assume that cygwin-mount already activated.
+(when (featurep 'cygwin-mount)
+(let ( (path (expand-file-name "~")) )
+(when (string-match "\\([c-z]\\):/" path)
+(setenv "MANPATH" (concat "/cygdrive/" (substring path 0 1) "/" (substring path 3) "/usr/share/man/:"))
+) ))
 (setq woman-use-own-frame nil)
 (setq woman-fill-frame t)
+;; I prefer EN man pages.
+(setq manual-program "LANG=C man")
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "comint")
 ;; If non-nil, add a `/' to completed directories, ` ' to file names.
 (setq comint-completion-addsuffix t)
 ;; Non-nil means go to the end of the line before sending input.
 (setq comint-eol-on-send t)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "spell, ispell, aspell")
+(message "spell, ispell, aspell, flyspell")
 ;; Settings for spelling done in '.emacs-autogen'.
-;(add-hook 'text-mode-hook 'flyspell-mode)
-;(setq flyspell-default-dictionary "russianw")
+(add-hook 'log-edit-mode-hook 'flyspell-mode)
-;(setq flyspell-delay '1)
+;; (setq-default ispell-extra-args  '("--sug-mode=ultra"))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "dict, dictd, dictionary")
 (when (fboundp 'dict-c5-mode)
 (add-to-list 'auto-mode-alist '("\\.dict-c5$" . dict-c5-mode))
+)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "figlet")
+(defun my-figlet-region (&optional b e)
+(interactive "r")
+(shell-command-on-region b e "figlet" (current-buffer) t)
+(comment-region (mark) (point)))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "jdone")
+(ignore-errors
+(require 'jdone)
+(jdone-setup-key-binding)
+(jdone-integrate-hook)
 )
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "remember-mode")
 (setq my-org-agenda-todo-file (concat org-directory "/TODO.org"))
 (setq my-org-agenda-note-file (concat org-directory "/NOTE.org"))
 (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file))
 (define-key global-map "\C-ca" 'org-agenda)
 (define-key global-map "\C-ce" (lambda nil (interactive) (find-file my-org-agenda-note-file)))
-;; I expect that these bindings work in all mode, Org mode use own, so redefine:
-(define-key org-mode-map [C-S-right] 'forward-word-mark)
-(define-key org-mode-map [C-S-left] 'backward-word-mark)
-(define-key org-mode-map [S-up] 'previous-line-mark)
-(define-key org-mode-map [S-down] 'next-line-mark)
 ;; My tags for remember buffer.
 (setq org-tag-persistent-alist
 '(
 ("ADMIN" . ?a)
 ;;       '(("TODO" . (:foreground "red" :weight bold))
 ;;         ("WAIT" . (:foreground "orange" :weight bold))
 ;;         ("DONE" . (:foreground "green" :weight bold))) )
 )
+(setq org-agenda-include-diary t)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "TODO, XXX, FIXME highlight")
 ;; Show blanks and FIXME
 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "fortune")
 (setq fortune-file "~/XXX")
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "mail, mh-e")
+(message "mail, message")
+(setq mail-user-agent 'message-user-agent)
+(setq message-citation-line-format "On %Y-%m-%d, %N wrote:
+")
+(setq message-citation-line-function 'message-insert-formatted-citation-line)
 (setq mail-signature t)
 (setq mail-signature-file "~/.signature")
 ;; (add-hook 'mail-setup-hook 'fortune-to-signature)
+;; (setq mail-from-style 'angles)
+(setq mail-personal-alias-file "~/.mailrc")
+;; Initialize from your mail aliases file...
+(setq mail-aliases t)
+(require 'ecomplete)
+(setq message-mail-alias-type '(abbrev ecomplete))
+(eval-after-load 'message
+'(progn
+(require 'mailabbrev)
+(define-key message-mode-map "\e\t" 'mail-abbrev-complete-alias)
+))
+(defun my-message-setup-routine ()
+(flyspell-mode 1)
+)
+(add-hook 'message-setup-hook 'my-message-setup-routine)
+;; Kill message buffer after mail send. You always can use C-c C-s to preserve it.
+(setq message-kill-buffer-on-exit t)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "smtp, smtpmail")
+(when (boundp 'smtpmail-smtp-server)
+(require 'smtpmail)
+(setq
+;; If you use the default mail user agent.
+send-mail-function 'smtpmail-send-it
+;; If you use Message or Gnus.
+message-send-mail-function 'smtpmail-send-it
+)
+)
+;; (setq smtpmail-debug-verb t)
+;; (setq smtpmail-debug-info t)
+(defun my-message-mode-hook ()
+(setq fill-column 78)
+(turn-on-auto-fill)
+)
+(add-hook 'message-mode-hook 'my-message-mode-hook)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "gnus, mh-e")
+(setq gnus-site-init-file "~/.gnus.el")
+;; Store gnus specific files to '~/.gnus'.
+(setq
+gnus-directory "~/.gnus"
+gnus-agent-directory "~/.gnus/agent/"
+gnus-article-save-directory "~/.gnus/saved"
+gnus-kill-files-directory "~/.gnus/scores"
+gnus-cache-directory "~/.gnus/cache"
+mail-source-directory "~/.gnus/mail"
+message-directory "~/.gnus/mail"
+message-auto-save-directory "~/.gnus/autosave"
+;; message-signature-directory
+mailcap-download-directory  "~/.gnus/mailcap"
+nnml-directory "~/.gnus/nnml-mail"
+spam-directory "~/.gnus/spam/"
+smime-certificate-directory "~/.gnus/certs/"
+nnfolder-directory "~/.gnus/archive"
+nnfolder-active-file "~/.gnus/archive/active"
+)
+;; Remove gnus-ignored-newsgroups to show all GMail folders.
+(setq gnus-ignored-newsgroups nil)
+;; (require 'spam)
+;; (setq gnus-spam-process-newsgroups
+;;       '(("^gmane\\."
+;;          ((spam spam-use-gmane)))))
+(setq
+gnus-novice-user nil
+gnus-expert-user nil
+gnus-interactive-catchup t
+gnus-interactive-exit t
+)
+(setq
+gnus-read-active-file nil
+gnus-check-new-newsgroups nil
+gnus-check-bogus-newsgroups nil
+)
+;; (setq 'gnus-use-cache t)
+(setq gnus-use-long-file-name t)
+(setq gnus-use-long-file-name t)
+(setq gnus-cache-remove-articles '(read))
+;; If you're spooling in overlapping mbox folders, you probably want to delete
+;; all messages with duplicate message IDs.
+(setq nnmail-treat-duplicates 'delete)
+;; Do not use the html part of a message, use the text part if possible!
+(setq mm-discouraged-alternatives '("text/html" "text/richtext"))
+(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
+(setq
+gnus-posting-styles
+'(
+(".*"
+(organization "At home.")
+(signature-file "~/.signature")
+)
+))
+;; `gnus-group-line-format', `gnus-summary-line-format',
+;; `gnus-server-line-format', `gnus-topic-line-format',
+;; `gnus-group-mode-line-format', `gnus-summary-mode-line-format',
+;; `gnus-article-mode-line-format', `gnus-server-mode-line-format',
+;; `gnus-summary-pick-line-format'.
+(when window-system
+(setq
+gnus-sum-thread-tree-false-root ""
+gnus-sum-thread-tree-indent " "
+gnus-sum-thread-tree-leaf-with-other "├► "
+gnus-sum-thread-tree-root ""
+gnus-sum-thread-tree-single-leaf "└► "
+gnus-sum-thread-tree-vertical "│"
+))
+(setq gnus-user-date-format-alist '((t . "%Y-%m-%d %H:%M")))
+(setq gnus-summary-line-format "%U%R%z %&user-date; %B %[%-22,22f%] %s\n")
+(setq gnus-summary-mode-line-format "Gnus: %p %Z")
+(setq gnus-article-time-format "%Y-%m-%d %T%z %a")
+(setq gnus-article-date-headers '(combined-lapsed user-defined))
+;; gnus-visible-headers
+(setq
+gnus-sorted-header-list
+'(
+"^From:"
+"^Subject:"
+"^Summary:"
+"^Keywords:"
+"^Newsgroups:"
+"^Followup-To:"
+"^To:"
+"^Cc:"
+"^Organization:"
+"^Date:"
+"^User-Agent:"
+"^X-Mailer:"
+"^X-Newsreader:"
+))
+(setq
+gnus-show-threads t
+gnus-thread-sort-functions '(gnus-thread-sort-by-date gnus-thread-sort-by-total-score)
+)
+;; Scoring, adaptive score.
+(setq
+gnus-use-scoring t
+gnus-save-score t
+gnus-use-adaptive-scoring t
+gnus-score-expiry-days 60
+gnus-decay-scores t
+gnus-default-adaptive-score-alist
+'(
+(gnus-unread-mark)
+(gnus-ticked-mark (subject 5))
+(gnus-dormant-mark (subject 5))
+(gnus-del-mark (from -2) (subject -5))
+(gnus-read-mark (from 2) (subject 1))
+(gnus-killed-mark (subject -5))
+(gnus-catchup-mark (subject -1))
+(gnus-kill-file-mark (from -9999))
+)
+)
+;; Increase the score for followups to a sent article.
+(eval-after-load 'gnus-score
+'(progn
+(add-hook 'message-sent-hook 'gnus-score-followup-article)
+(add-hook 'message-sent-hook 'gnus-score-followup-thread)
+))
+;; (setq gnus-home-score-file
+;;       ;; All groups that match the regexp `"\\.emacs"'
+;;       '(("\\.emacs" "emacs.SCORE")
+;;         ;; All the comp groups in one score file
+;;         ("^comp" "comp.SCORE")))
+;; (setq imap-log t)
 ;; (setq mail-user-agent 'mh-e-user-agent)
+(custom-set-faces '(gnus-summary-cancelled ((t (:foreground "plum" :background nil)))) )
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "bbdb")
+(setq
+bbdb-offer-save 1
+bbdb-use-pop-up t
+bbdb-electric-p t
+bbdb-popup-target-lines  1
+)
+(setq bbdb-complete-name-full-completion t)
+(setq bbdb-completion-type 'primary-or-name)
+(setq bbdb-complete-name-allow-cycling t)
+(setq bbdb-file "~/.gnus/bbdb")
+;; (bbdb-initialize 'gnus 'message)
+;; (bbdb-insinuate-message)
+;; (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "jabber")
 (autoload 'jabber-connect-all "jabber")
 (320 . "#2780C6")
 (340 . "#1A00D3")
 (360 . "#0D80E0")))
 )
+(defun my-log-edit-mode-hook ()
+(setq fill-column 78)
+)
+(add-hook 'log-edit-mode-hook 'my-log-edit-mode-hook t)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "psvn")
 (setq svn-status-verbose t)
 (setq svn-status-hide-unmodified t)
 (add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "makefile, make")
-(add-to-list 'auto-mode-alist '("\\(Makefile\\|Makefile\\..+\\)\\'" . makefile-gmake-mode))
+(add-to-list 'auto-mode-alist '("\\(Makefile\\|Makefile\\..+\\)\\'" . makefile-gmake-mode) t)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "asm, assembler")
 ;; (setq-default asm-comment-char 59)
 (setq c-echo-syntactic-information-p t)
 (defun my-c-mode-common-hook ()
 ;; Automatically inserte newlines after special characters such as brace, comma, semi-colon, and colon.
-(c-toggle-auto-newline 1)
+(c-toggle-auto-newline -1)
 ;; Delete all preceding whitespace by DEL.
 (c-toggle-hungry-state -1)
 ;; Auto indent after typing colon according to `c-hanging-colons-alist'.
 (c-toggle-electric-state 1)
 )
 (cons
 my-html-template
 (my-filter
 (lambda (item) (not (equal (car item) "html")))
 html-tag-alist)))
+(add-to-list 'html-tag-alist '("script" (\n) ("type" "text/javascript") ))
+(add-to-list 'html-tag-alist '("style" (\n) ("type" "text/css") ))
 )))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "sh, bash")
 ;; Note: if you kill unsaved file auto save file not deleted.
 (setq delete-auto-save-files t)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Save and restore my buffers every time.
-(setq desktop-dirname "~/.emacs.d")
+(setq desktop-base-file-name ".emacs.desktop")
+(setq desktop-base-lock-name ".emacs.desktop.lock")
+(when (eq system-type 'cygwin)
+(setq desktop-base-file-name ".emacs.desktop-cygwin")
+(setq desktop-base-lock-name ".emacs.desktop-cygwin.lock")
+)
 (when (>= emacs-major-version 22)
 (desktop-save-mode 1)
 )
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

changeset 836	034e9cfcc17c
parent 834	07219d4d737e
parent 732	139665dd6ada
child 838	2edffa38b012
child 839	27fac2557f13