Gnus attempting to move mail from /var/spool/mail

[Harry Putnam <reader@newsguy.com>]

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 "reader@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")