1450  nnml-directory "~/.gnus/nnml-mail"

  1450  nnml-directory "~/.gnus/nnml-mail"

  1451  spam-directory "~/.gnus/spam/"

  1451  spam-directory "~/.gnus/spam/"

  1452  smime-certificate-directory "~/.gnus/certs/"

  1452  smime-certificate-directory "~/.gnus/certs/"

  1453  nnfolder-directory "~/.gnus/archive"

  1453  nnfolder-directory "~/.gnus/archive"

  1454  nnfolder-active-file "~/.gnus/archive/active"

  1454  nnfolder-active-file "~/.gnus/archive/active"

  1456 

  1456 

  1457 ;; Remove gnus-ignored-newsgroups to show all GMail folders.

  1457 ;; Remove gnus-ignored-newsgroups to show all GMail folders.

  1458 (setq gnus-ignored-newsgroups "some-non-existing")

  1458 (setq gnus-ignored-newsgroups "some-non-existing")

  1459 

  1459 

  1460 ;; (require 'spam)

  1460 ;; (require 'spam)

  1874 (when window-system

  1874 (when window-system

  1875   (eval-after-load 'diff-mode

  1875   (eval-after-load 'diff-mode

  1876     '(progn

  1876     '(progn

  1877        (set-face-foreground 'diff-added-face "DarkGreen")

  1877        (set-face-foreground 'diff-added-face "DarkGreen")

  1878        (set-face-foreground 'diff-removed-face "DarkRed")

  1878        (set-face-foreground 'diff-removed-face "DarkRed")

  1880 

  1880 

  1881 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1881 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1882 (message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil")

  1882 (message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil")

  1883 

  1883 

  1884 ;; `-b' switch to ignore changes in whitespaces.

  1884 ;; `-b' switch to ignore changes in whitespaces.

  2391 (defun html-charref-to-string (html)

  2391 (defun html-charref-to-string (html)

  2392   (let ((res "") (pos 0))

  2392   (let ((res "") (pos 0))

  2393     (while (string-match "&#\\([[:digit:]]+\\);" html pos)

  2393     (while (string-match "&#\\([[:digit:]]+\\);" html pos)

  2394       (setq res (concat res (string (string-to-int (substring html (match-beginning 1) (match-end 1)) 10))))

  2394       (setq res (concat res (string (string-to-int (substring html (match-beginning 1) (match-end 1)) 10))))

  2395       (setq pos (match-end 0))

  2395       (setq pos (match-end 0))

  2397     res

  2397     res

  2398     ) )

  2398     ) )

  2399 

  2399 

  2400 (defun html-charref-unescape-region (begin end &optional prefix)

  2400 (defun html-charref-unescape-region (begin end &optional prefix)

  2401   (interactive "r\nP")

  2401   (interactive "r\nP")

  2445               (my-filter

  2445               (my-filter

  2446                (lambda (item) (not (equal (car item) "html")))

  2446                (lambda (item) (not (equal (car item) "html")))

  2447                html-tag-alist)))

  2447                html-tag-alist)))

  2448        (add-to-list 'html-tag-alist '("script" (\n) ("type" "text/javascript") ))

  2448        (add-to-list 'html-tag-alist '("script" (\n) ("type" "text/javascript") ))

  2449        (add-to-list 'html-tag-alist '("style" (\n) ("type" "text/css") ))

  2449        (add-to-list 'html-tag-alist '("style" (\n) ("type" "text/css") ))

  2451 

  2451 

  2452 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  2452 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  2453 (message "sh, bash")

  2453 (message "sh, bash")

  2454 

  2454 

  2455 (add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode))

  2455 (add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode))