Harry Putnam
2015-01-08 15:42:57 UTC
On one host, I want to run gnus devoid of any attempt to collect in
coming mail.
My current .gnus.el is adapted from .gnus.el that has accumulate over
a 1.5 decade stretch.
Reproduced here by stripping all comments and blank lines. Sorry it
is terribly messy, but I'm not seeing what is causing gnus to attempt
to move mail from /var/spool/mail/harry using movemail
(setq gnus-asynchronous nil)
(setq gnus-use-article-prefetch "15")
(setq message-send-mail-partially-limit 4700000)
(setq mm-automatic-display (remove "text/html" mm-automatic-display)
mm-discouraged-alternatives '("text/html" "text/richtext"))
(setq mm-inline-override-types '("image/*"))
(setq mm-inline-text-html-with-images t)
(setq mm-inline-large-images t)
(setq mm-verify-option 'always)
(setq mm-decrypt-option nil)
(setq mm-attachment-override-types '("image/.*"))
(setq mm-external-terminal-program (quote urxvt))
(setq gnus-ignored-mime-types '("text/x-vcard"))
(add-hook 'gnus-summary-exit-hook 'gnus-dribble-save)
(add-hook 'gnus-after-getting-new-news-hook 'gnus-dribble-save)
(add-hook 'gnus-group-catchup-group-hook 'gnus-dribble-save)
(add-hook 'message-mode-hook (lambda () (abbrev-mode 1)))
(fset 'fetch_with_prefetch
[?j ?r ?e ?c ?. ?v ?i ?d ?e ?o ?. ?d ?e ?s ?k ?t ?o ?p return ?\M-g ?g ?j ?n ?n ?m ?l ?: ?p ?r ?i ?n ?b return])
(define-key gnus-group-mode-map "Z" 'fetch_with_prefetch)
(setq message-generate-headers-first t )
(setq max-lisp-eval-depth 2000)
(setq message-syntax-checks
'((sender . disabled)))
(defun message-make-fqdn ()
"My hacked message-id."
"reader.local.lan")
(setq gnus-expert-user t)
(setq gnus-agent-short-article 50)
(setq nntp-record-commands t)
(setq gnus-visible-headers "^From:\\|^Subject:\\|^To:\\|^Date:\\|^Message-ID:\\|^X-Spam-Status:\\|^X-HP.*:\\|^Newsgroups:\\|^X-Newsgroups:\\|^Keywords:\\|^Gnus-Warning:")
(require 'gnus-sum)
(define-key gnus-summary-mode-map "E" 'gnus-summary-edit-article)
(define-key gnus-summary-mode-map "e" 'gnus-summary-mark-as-expirable)
(setq gnus-summary-line-format "%O%2t%U%R%7d%z%I%(%[%4L: %-20,20f%]%) %s\n")
(setq gnus-group-line-format"%M%S%p%P%5y: %(%g%)%l\n")
(setq gnus-score-interactive-default-score 1)
(setq gnus-summary-goto-unread nil)
(setq gnus-group-goto-unread nil)
(setq gnus-use-adaptive-scoring nil)
(setq gnus-uncacheable-groups "^nnml")
(setq gnus-use-cache 'passive)
(setq gnus-goto-next-group-when-activating nil)
(setq gnus-secondary-select-methods
'((nnml "")))
(setq mail-user-agent 'gnus-user-agent)
(setq gnus-extra-headers
'(To Newsgroups Keywords ))
(setq nnmail-extra-headers gnus-extra-headers)
(setq gnus-ignored-from-addresses
"Harry Putnam")
(setq tramp-debug-buffer t)
(setq message-user-organization "Still searching...")
(setq gnus-select-method '(nntp "news.gmane.org"))
(setq user-mail-address "***@newsguy.com")
(setq ange-ftp-set-passwd "reader@")
(setq user-full-name "Harry Putnam")
(setq gnus-thread-hide-subtree t)
(setq gnus-agent-handle-level 3)
(setq gnus-activate-foreign-newsgroups 3)
(setq mail-source-delete-incoming t)
(setq gnus-use-long-file-name t)
(setq nnmail-crosspost nil)
(define-key gnus-summary-mode-map (kbd "<right>") 'gnus-summary-show-thread)
(define-key gnus-summary-mode-map (kbd "<left>") 'gnus-summary-hide-thread)
(fset 'hp-n
"n=")
(define-key gnus-summary-mode-map (kbd "'") 'hp-n)
(setq gnus-message-archive-group
'((let ((current-archive-date-string
(format-time-string "%m%y" (current-time))))
(concat (if (message-news-p)
"nnml:news.news-"
"nnml:mail.mail-")
current-archive-date-string))))
(setq gnus-agent-mark-unread-after-download nil)
(setq gnus-agent-consider-all-articles t)
(setq gnus-agent-expire-days 10)
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(load-library "server")
(setq server-name "nognus")
(server-start)
(defsubst gnus-summary--inv (p) ;; **
(and (eq (get-char-property p 'invisible) 'gnus-sum) p)) ;; **
(defun gnus-summary-show-thread ()
"Show thread subtrees.
Returns nil if no thread was there to be shown."
(interactive)
(let* ((orig (point)) ;; **
(end (point-at-eol))
(end (or (gnus-summary--inv end) ;; **
(gnus-summary--inv (1- end)))) ;; **
(beg (progn (beginning-of-line) (if (bobp) (point) (1- (point)))))
(eoi (when end ;; **
(if (fboundp 'next-single-char-property-change)
(or (next-single-char-property-change end 'invisible)
(point-max))
(while (progn
(end-of-line 2)
(and (not (eobp))
(eq (get-char-property (point) 'invisible)
'gnus-sum))))
(point)))))
(when eoi
(gnus-remove-overlays beg eoi 'invisible 'gnus-sum)
(goto-char orig)
(gnus-summary-position-point)
eoi)))
(setq gnus-verbose 9)
(setq gnus-verbose-backends 9)
(load-library "gnus-fonts-and-colors")
coming mail.
My current .gnus.el is adapted from .gnus.el that has accumulate over
a 1.5 decade stretch.
Reproduced here by stripping all comments and blank lines. Sorry it
is terribly messy, but I'm not seeing what is causing gnus to attempt
to move mail from /var/spool/mail/harry using movemail
(setq gnus-asynchronous nil)
(setq gnus-use-article-prefetch "15")
(setq message-send-mail-partially-limit 4700000)
(setq mm-automatic-display (remove "text/html" mm-automatic-display)
mm-discouraged-alternatives '("text/html" "text/richtext"))
(setq mm-inline-override-types '("image/*"))
(setq mm-inline-text-html-with-images t)
(setq mm-inline-large-images t)
(setq mm-verify-option 'always)
(setq mm-decrypt-option nil)
(setq mm-attachment-override-types '("image/.*"))
(setq mm-external-terminal-program (quote urxvt))
(setq gnus-ignored-mime-types '("text/x-vcard"))
(add-hook 'gnus-summary-exit-hook 'gnus-dribble-save)
(add-hook 'gnus-after-getting-new-news-hook 'gnus-dribble-save)
(add-hook 'gnus-group-catchup-group-hook 'gnus-dribble-save)
(add-hook 'message-mode-hook (lambda () (abbrev-mode 1)))
(fset 'fetch_with_prefetch
[?j ?r ?e ?c ?. ?v ?i ?d ?e ?o ?. ?d ?e ?s ?k ?t ?o ?p return ?\M-g ?g ?j ?n ?n ?m ?l ?: ?p ?r ?i ?n ?b return])
(define-key gnus-group-mode-map "Z" 'fetch_with_prefetch)
(setq message-generate-headers-first t )
(setq max-lisp-eval-depth 2000)
(setq message-syntax-checks
'((sender . disabled)))
(defun message-make-fqdn ()
"My hacked message-id."
"reader.local.lan")
(setq gnus-expert-user t)
(setq gnus-agent-short-article 50)
(setq nntp-record-commands t)
(setq gnus-visible-headers "^From:\\|^Subject:\\|^To:\\|^Date:\\|^Message-ID:\\|^X-Spam-Status:\\|^X-HP.*:\\|^Newsgroups:\\|^X-Newsgroups:\\|^Keywords:\\|^Gnus-Warning:")
(require 'gnus-sum)
(define-key gnus-summary-mode-map "E" 'gnus-summary-edit-article)
(define-key gnus-summary-mode-map "e" 'gnus-summary-mark-as-expirable)
(setq gnus-summary-line-format "%O%2t%U%R%7d%z%I%(%[%4L: %-20,20f%]%) %s\n")
(setq gnus-group-line-format"%M%S%p%P%5y: %(%g%)%l\n")
(setq gnus-score-interactive-default-score 1)
(setq gnus-summary-goto-unread nil)
(setq gnus-group-goto-unread nil)
(setq gnus-use-adaptive-scoring nil)
(setq gnus-uncacheable-groups "^nnml")
(setq gnus-use-cache 'passive)
(setq gnus-goto-next-group-when-activating nil)
(setq gnus-secondary-select-methods
'((nnml "")))
(setq mail-user-agent 'gnus-user-agent)
(setq gnus-extra-headers
'(To Newsgroups Keywords ))
(setq nnmail-extra-headers gnus-extra-headers)
(setq gnus-ignored-from-addresses
"Harry Putnam")
(setq tramp-debug-buffer t)
(setq message-user-organization "Still searching...")
(setq gnus-select-method '(nntp "news.gmane.org"))
(setq user-mail-address "***@newsguy.com")
(setq ange-ftp-set-passwd "reader@")
(setq user-full-name "Harry Putnam")
(setq gnus-thread-hide-subtree t)
(setq gnus-agent-handle-level 3)
(setq gnus-activate-foreign-newsgroups 3)
(setq mail-source-delete-incoming t)
(setq gnus-use-long-file-name t)
(setq nnmail-crosspost nil)
(define-key gnus-summary-mode-map (kbd "<right>") 'gnus-summary-show-thread)
(define-key gnus-summary-mode-map (kbd "<left>") 'gnus-summary-hide-thread)
(fset 'hp-n
"n=")
(define-key gnus-summary-mode-map (kbd "'") 'hp-n)
(setq gnus-message-archive-group
'((let ((current-archive-date-string
(format-time-string "%m%y" (current-time))))
(concat (if (message-news-p)
"nnml:news.news-"
"nnml:mail.mail-")
current-archive-date-string))))
(setq gnus-agent-mark-unread-after-download nil)
(setq gnus-agent-consider-all-articles t)
(setq gnus-agent-expire-days 10)
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(load-library "server")
(setq server-name "nognus")
(server-start)
(defsubst gnus-summary--inv (p) ;; **
(and (eq (get-char-property p 'invisible) 'gnus-sum) p)) ;; **
(defun gnus-summary-show-thread ()
"Show thread subtrees.
Returns nil if no thread was there to be shown."
(interactive)
(let* ((orig (point)) ;; **
(end (point-at-eol))
(end (or (gnus-summary--inv end) ;; **
(gnus-summary--inv (1- end)))) ;; **
(beg (progn (beginning-of-line) (if (bobp) (point) (1- (point)))))
(eoi (when end ;; **
(if (fboundp 'next-single-char-property-change)
(or (next-single-char-property-change end 'invisible)
(point-max))
(while (progn
(end-of-line 2)
(and (not (eobp))
(eq (get-char-property (point) 'invisible)
'gnus-sum))))
(point)))))
(when eoi
(gnus-remove-overlays beg eoi 'invisible 'gnus-sum)
(goto-char orig)
(gnus-summary-position-point)
eoi)))
(setq gnus-verbose 9)
(setq gnus-verbose-backends 9)
(load-library "gnus-fonts-and-colors")