;; Author: Louis Charles Candell (emacs@ossh.com) ;; Maintainer: Louis Charles Candell ;; Keywords: dotgnus, .gnus, ~/.gnus (setq gnus-select-method '(nntp "news-server.socal.rr.com")) (setq message-default-news-headers "From: Aphrodite \n") (setq user-mail-address "lcandell@ossh.com") (setq user-host-name "ossh.com") (setq user-sender "ossh.com") (setq user-full-name "Louis C. Candell") (setq gnus-secondary-select-methods '((nnml "private"))) (setq mail-sources '((file :path "/var/mail/lcandell"))) (load "/usr/share/emacs/21.3.50/lisp/gnus/mailcap.el") (load "/usr/share/emacs/site-lisp/70emacs-w3m-gentoo.el") (global-set-key [f5] 'gnus-other-frame) (eval-after-load "mail-source" '(add-to-list 'mail-sources '(pop :server "pop-server.socal.rr.com" :user "" :password ""))) (eval-after-load "mail-source" '(add-to-list 'mail-sources '(pop :server "pop-server.socal.rr.com" :user "" :password ""))) (eval-after-load "mail-source" '(add-to-list 'mail-sources '(pop :server "pop-server.socal.rr.com" :user "" :password ""))) (eval-after-load "mail-source" '(add-to-list 'mail-sources '(pop :server "pop-server.socal.rr.com" :user "" :password ""))) (eval-after-load "mail-source" '(add-to-list 'mail-sources '(pop :server "pop-server.socal.rr.com" :user "" :password ""))) (eval-after-load "mail-source" '(add-to-list 'mail-sources '(pop :server "pop-server.socal.rr.com" :user "" :password ""))) (setq gnus-message-archive-group '((if (message-news-p) "nnml:Send-News" "nnml:Send-Mail"))) (eval-after-load "message" '(add-to-list 'message-syntax-checks '(sender . disabled))) (defun message-make-message-id() (concat "<"(message-unique-id)"@ossh.com>")) (setq message-default-headers (concat ; Linux Version "X-System: Gentoo Linux 2.4.20-XFS-LVM-RAID-0\n" )) (setq nnmail-expiry-target "nnml:expired") (defadvice gnus-summary-reply (around reply-in-news activate) (interactive) (when (or (not (gnus-news-group-p gnus-newsgroup-name)) (y-or-n-p "Really reply? ")) ad-do-it)) (setq mm-text-html-renderer 'links) (setq gnus-posting-styles '(("nnml:.*" (From (save-excursion (set-buffer gnus-article-buffer) (message-fetch-field "to")))) ("^nn.+:" (signature-file "~/.signature")))) ;;(eval-after-load "mm-decode" ;; '(progn ;; (add-to-list 'mm-discouraged-alternatives "text/html") ;; (add-to-list 'mm-discouraged-alternatives "text/richtext"))) (setq nnmail-split-methods 'nnmail-split-fancy) (setq nnmail-split-fancy '(| ("to" "lcandell@ossh\\.com" "lcandell@ossh.com") ("to" "lcandell" "misc") (| ("to" "bluelein" "bluelein@bluelein.com" "bluelein@bluelein.com")) ("to" "ibm" "misc") ("to" "cingular" "cingular") ("to" "icq" "misc") ("to" "aim" "misc") ("to" "microsoft" "misc") ("to" "yahoo" "misc") ("to" "root" "ROOT") ("to" "fafsa" "misc") ("to" "cypress" "misc") ("to" "operator" "ROOT") ("to" "irc" "misc") ("to" "school" "misc") ("to" "economics" "misc") ("to" "cisco" "misc") ("to" "webmaster" "misc") ("to" "emacs" "emacs") ("to" "news" "misc") ("to" "usenet" "misc") ("to" "gnus" "misc") ("to" "lisa" "jim@bluelein") ("to" "bluelein" "lisa@bluelein") ("to" "usenet" "usenet@ossh.com") ("cc" "usenet" "usenet@ossh.com") ("to" "gentoo-user@gentoo\\.org" "Gentoo Users") ("cc" "gentoo-user@gentoo\\.org" "Gentoo Users") ("to" "gentoo-announce@gentoo\\.org" "Gentoo Announcements") ("cc" "gentoo-announce@gentoo\\.org" "Gentoo Announcements") ("to" "gentoo-desktop@gentoo\\.org" "Gentoo Desktop") ("cc" "gentoo-desktop@gentoo\\.org" "Gentoo Desktop") ("to" "gentoo-doc@gentoo\\.org" "Gentoo Documentation") ("cc" "gentoo-doc@gentoo\\.org" "Gentoo Documentation") ("to" "gentoo-gwn@gentoo\\.org" "Gentoo Weekly News") ("cc" "gentoo-gwn@gentoo\\.org" "Gentoo Weekly News") ("to" "gentoo-security@gentoo\\.org" "Gentoo Security") ("cc" "gentoo-security@gentoo\\.org" "Gentoo Security") ("to" "bug-wranglers@gentoo\\.org" "Bug-Wranglers") ("cc" "bug-wranglers@gentoo\\.org" "Bug-Wranglers") ("to" "gentoo@ossh\\.com" "gentoo@ossh.com") ("cc" "gentoo@ossh\\.com" "gentoo@ossh.com") ("to" "newsgroups@socal.rr\\.com" "Newsgroups@socal.rr.com") ("to" "ljuarez2@socal.rr\\.com" "ljuarez2@socal.rr.com") ("to" "bluelein@socal.rr\\.com" "bluelein@socal.rr.com") ("to" "candell@socal.rr\\.com" "candell@socal.rr.com") ("to" "escorts@socal.rr\\.com" "escorts@socal.rr.com") "Spam")) ;;; From http://www.gnus.org/list-archives/ding/200110/msg00479.html (require 'w3m) (defvar gnus-w3m-minor-mode nil) (make-variable-buffer-local 'gnus-w3m-minor-mode) (add-to-list 'minor-mode-alist '(gnus-w3m-minor-mode " w3m")) (add-to-list 'minor-mode-map-alist (cons 'gnus-w3m-minor-mode w3m-mode-map)) (defadvice mm-inline-text (around use-w3m-instead (handle) activate) (let ((type (mm-handle-media-subtype handle))) (if (not (equal type "html")) ad-do-it (let ((text (mm-get-part handle)) (b (point))) (save-excursion (insert text) (save-restriction (narrow-to-region b (point)) (goto-char (point-min)) (w3m-region (point-min) (point-max)) (setq gnus-w3m-minor-mode t)) (mm-handle-set-undisplayer handle `(lambda () (let (buffer-read-only) (setq gnus-w3m-minor-mode nil) (if (functionp 'remove-specifier) (mapcar (lambda (prop) (remove-specifier (face-property 'default prop) (current-buffer))) '(background background-pixmap foreground))) (delete-region ,(point-min-marker) ,(point-max-marker)))))))))) ;;'(files "~/News/SMEGHEADS" "~/News/BLACKLIST" "~/News/SCORE")