(add-hook 'gnus-select-article-hook 'gnus-agent-fetch-selected-article) (setq my-inbox-group-params '((uidvalidity . "255800654") (total-expire . t) (spam-process-destination . "SpamBox") (expiry-wait . 15))) (setq my-gnus-parameters '(("mail\\..*" (gnus-show-threads nil) (gnus-use-scoring nil) (gnus-summary-line-format "%U%R%z%I%(%[%d:%ub%-23,23f%]%) %s\n") (gcc-self . t) (display . all)) ("mail\\.me" (gnus-use-scoring t)) ("list\\..*" (total-expire . t) (broken-reply-to . t)))) ; Using secondary select method instead per Simon's instructions (and nil (setq gnus-select-method '(nnimap "www.stlport.com" (nnimap-address "www.stlport.com") (nnimap-stream ssl) (nnimap-authenticator login) ))) (setq gnus-select-method '(nnnil "") gnus-secondary-select-methods '( ;; Using secondary select method per Simon's instructions (nnimap "www.stlport.com" (nnimap-address "www.stlport.com") (nnimap-stream ssl) (nnimap-authenticator login) ) (nntp "news.rcn.com") (nntp "news.gmane.org") ) ssl-view-certificate-program-name "notepad" ; imap-debug t gnus-check-new-newsgroups nil gnus-local-domain "boost-consulting.com" ; gnus-message-archive-group '("nnimap+www.stlport.com:INBOX" ; ;"nnimap+www.stlport.com:Sent" ; ) gnus-summary-line-format "%O%U%R%z%I%d%(%[%4L: %-20,20n%]%) %s " gnus-summary-ignore-duplicates t ; gnus-total-expirable-newsgroups "INBOX" ; gnus-cacheable-groups "^nnimap*" ; gnus-use-cache nil gnus-agent-cache t gnus-agent t gnus-agent-consider-all-articles t gnus-agent-expire-days 36500 ; gnus-agent-mark-unread-after-downloaded nil message-subject-trailing-was-query t ;; always strip the trailing old subject in (was: ...) subjects message-default-headers "To: dave@boost-consulting.com" my-gnus-summary-highlight '(((eq mark gnus-canceled-mark) . gnus-summary-cancelled-face) ((and (> score default-high) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-high-ticked-face) ((and (< score default-low) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-low-ticked-face) ((or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark)) . gnus-summary-normal-ticked-face) ((and (> score default-high) (eq mark gnus-ancient-mark)) . gnus-summary-high-ancient-face) ((and (< score default-low) (eq mark gnus-ancient-mark)) . gnus-summary-low-ancient-face) ((eq mark gnus-ancient-mark) . gnus-summary-normal-ancient-face) ((and (> score default-high) (eq mark gnus-unread-mark)) . gnus-summary-high-unread-face) ((and (< score default-low) (eq mark gnus-unread-mark)) . gnus-summary-low-unread-face) ((eq mark gnus-unread-mark) . gnus-summary-normal-unread-face) ((> score default-high) . gnus-summary-high-read-face) ((< score default-low) . gnus-summary-low-read-face) (t . gnus-summary-normal-read-face)) ) (if (and (eq system-type 'windows-nt) (< my-emacs-version 21.3)) (custom-set-faces '(gnus-emphasis-bold ((t (:weight bold :height 0.99 :family "tahoma")))) '(gnus-emphasis-bold-italic ((t (:slant italic :weight bold :family "arial")))) '(gnus-emphasis-italic ((t (:slant italic :family "arial")))) ; '(gnus-summary-high-ancient-face ((t (:foreground "magenta4" :weight bold :family "tahoma")))) ; '(gnus-summary-high-ticked-face ((t (:foreground "firebrick" :weight bold :family "arial")))) ; '(gnus-summary-high-undownloaded-face ((t (:foreground "magenta4" :weight normal)))) ; '(gnus-summary-low-ancient-face ((t (:foreground "magenta4" :slant italic :family "arial")))) ; '(gnus-summary-low-undownloaded-face ((t (:foreground "magenta4" :slant italic :weight normal :family "arial")))) ; '(gnus-summary-normal-ancient-face ((((class color) (background light)) (:foreground "magenta4")))) ; '(gnus-summary-normal-undownloaded-face ((t (:foreground "magenta4" :weight normal)))) ) ) (if t (progn (gnus-add-configuration '(article (horizontal 1.0 (vertical 1.0 (group 35) (summary 1.0 point)) (vertical .5 (article 1.0))))) (gnus-add-configuration '(summary (horizontal 1.0 (vertical 1.0 (group 35) (summary 1.0 point)) (vertical .5 (article 1.0))))) (gnus-add-configuration '(message (horizontal 1.0 (vertical 1.0 (group 35) (summary 1.0)) (vertical .5 (message 1.0 point))))) (gnus-add-configuration '(reply (horizontal 1.0 (vertical 1.0 (group 35) (summary 1.0)) (vertical .5 (message 1.0 point) (article .25))))) (gnus-add-configuration '(reply-yank (horizontal 1.0 (vertical 1.0 (group 35) (summary 1.0)) (vertical .5 (message 1.0 point))))) ) (progn (gnus-add-configuration '(article (horizontal 1.0 (group 60) (summary 1.0 point) (article 80)))) (gnus-add-configuration '(summary (horizontal 1.0 (group 60) (summary 1.0 point) (article 80)))) (gnus-add-configuration '(message (horizontal 1.0 (group 60) (summary 1.0) (message 80 point)))) (gnus-add-configuration '(reply (horizontal 1.0 (group 60) (summary 1.0) (message 80 point)))) (gnus-add-configuration '(reply-yank (horizontal 1.0 (group 60) (summary 1.0) (message 80 point)))) )) (define-key gnus-summary-mode-map "d" 'gnus-summary-mark-as-expirable) (define-key gnus-summary-mode-map "$" 'gnus-summary-mark-as-spam) (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) (setq message-dont-reply-to-names "\\(dave@boost-consulting\\.com\\)\\|\\(david\\.abrahams@rcn\\.com\\)\\|\\(Undisclosed recipients\\)") (setq mm-discouraged-alternatives '("text/html" "text/richtext")) ;; delete duplicate messages (setq nnmail-treat-duplicates 'delete) ;; Hack GNUs' inability to follow references reliably ;; This still doesn't work :( (defun my-fetch-whole-thread() "like `A R' `T o' `A T' in the summary buffer." (interactive) (gnus-summary-refer-references) (gnus-summary-top-thread) (gnus-summary-refer-thread)) (define-key gnus-summary-mode-map (kbd "AT") 'my-fetch-whole-thread) ;; leave this at the bottom, on Kai Großjohann's recommendation (gnus-compile)