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

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

[Harry Putnam]

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

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

[Dan Christensen]

Harry Putnam <reader@newsguy.com> writes:

> On one host, I want to run gnus devoid of any attempt to collect in
> coming mail.

You probably need to set the mail-sources variable to nil.  It
defaults to reading from the spool file.  See the Fetching Mail
section of the Gnus info docs.

Dan

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

[Harry Putnam]

Dan Christensen <jdc@uwo.ca> writes:

> Harry Putnam <reader@newsguy.com> writes:
>
>> On one host, I want to run gnus devoid of any attempt to collect in
>> coming mail.
>
> You probably need to set the mail-sources variable to nil.  It
> defaults to reading from the spool file.  See the Fetching Mail
> section of the Gnus info docs.
>
> Dan

Thanks, that did it.

I have to say that it seems surprising to have to set a specific nil
rather than having to set a particular method of retrieval.

I mean, gnus main claim to fame is that it is the absolute best
newsreader, bar none.  It seems like it should not default to
collecting mail.  But not a big deal and many thanks for the good tip.

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

[Adam Sjøgren]

Harry writes:

> I have to say that it seems surprising to have to set a specific nil
> rather than having to set a particular method of retrieval.

These days it is probably surprising to default to getting your local
mail.

In ye olde days, it was less so.

> I mean, gnus main claim to fame is that it is the absolute best
> newsreader, bar none.  It seems like it should not default to
> collecting mail.  But not a big deal and many thanks for the good tip.

I defaults to fetch local mail *only if you ask it to store email for you*
 - which seems kind of sensical, no?

(Yes, I actually just tested this.)


  Best regards,

    Adam

-- 
 "It's such a sadness, that you think you've seen a           Adam Sjøgren
  film on your fucking telephone. Get real."             asjo@koldfront.dk

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

[Harry Putnam]

asjo@koldfront.dk (Adam Sjøgren) writes:

> Harry writes:
>
>> I have to say that it seems surprising to have to set a specific nil
>> rather than having to set a particular method of retrieval.
>
> These days it is probably surprising to default to getting your local
> mail.
>
> In ye olde days, it was less so.
>
>> I mean, gnus main claim to fame is that it is the absolute best
>> newsreader, bar none.  It seems like it should not default to
>> collecting mail.  But not a big deal and many thanks for the good tip.
>
> I defaults to fetch local mail *only if you ask it to store email for you*
>  - which seems kind of sensical, no?
>
> (Yes, I actually just tested this.)

OK, yup that does sound more `sensical'.

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

[Adam Sjøgren]

Harry writes:

> OK, yup that does sound more `sensical'.

(I actually thought that was a word. Thanks for the nudge!)


  Best regards,

    Adam

-- 
 "If not actually disgruntled, he was far from being          Adam Sjøgren
  gruntled."                                             asjo@koldfront.dk

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

[Adam Sjøgren]

Harry writes:

> (setq gnus-secondary-select-methods
>       '((nnml ""))) 

"Hey, Gnus, store my local email in nnml-format."


  Best regards,

    Adam

-- 
 "It made me nostalgic for Solaris 2, as I was power          Adam Sjøgren
  cycling it for the fourth time."                       asjo@koldfront.dk

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

[Harry Putnam]

asjo@koldfront.dk (Adam Sjøgren) writes:

> Harry writes:
>
>> (setq gnus-secondary-select-methods
>>       '((nnml ""))) 
>
> "Hey, Gnus, store my local email in nnml-format."

Yes, I noticed that, but it does not say to get mail, only how to
store any that comes up. 

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

[Adam Sjøgren]

Harry writes:

> asjo@koldfront.dk (Adam Sjøgren) writes:

>> Harry writes:

>>> (setq gnus-secondary-select-methods
>>>       '((nnml ""))) 

>> "Hey, Gnus, store my local email in nnml-format."

> Yes, I noticed that, but it does not say to get mail, only how to
> store any that comes up. 

Unless you change the default value of mail-sources: No.


  Best regards,

    Adam

-- 
 "It is a sort of cheap and cheerful kind of                  Adam Sjøgren
  abstraction, but it works well in practise."           asjo@koldfront.dk

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

[Harry Putnam]

asjo@koldfront.dk (Adam Sjøgren) writes:

> Harry writes:
>
>> asjo@koldfront.dk (Adam Sjøgren) writes:
>
>>> Harry writes:
>
>>>> (setq gnus-secondary-select-methods
>>>>       '((nnml ""))) 
>
>>> "Hey, Gnus, store my local email in nnml-format."
>
>> Yes, I noticed that, but it does not say to get mail, only how to
>> store any that comes up. 
>
> Unless you change the default value of mail-sources: No.

Yup, once again, it all makes more sense given your previous msg.

Thanks for the input and spending time testing.