Experimenting with QGnus 0.20

[Norman Walsh <norm@berkshire.net>]

Hello World,

I've just started playing with QGnus and I'm having a little
difficulty getting my head around what's happening.  I've been
using Gnus with the nnml backend to read mail for years with

(setq gnus-select-method '(nnml ""))

but I've never used it for news because I'm not "plugged" all
the time.

So in QGnus 0.20, I verified that everything was working ok
with nnml, then I added 

  (setq gnus-secondary-select-methods '((nntp "news.berkshire.net")))

to add news.  I subscribed to a couple of groups and everything
still seemed to be well.

So I added (gnus-agentize) and still everything was OK.  So I
got "plugged" and ran "J s".

Gnus grovelled through a small subset of my forty or more nnml groups
and produced ~/News/agent/nnml/unnamed containing

 1/06/98  10:19         <DIR>    .
 1/06/98  10:19         <DIR>    ..
 1/06/98  10:19         <DIR>    agent.lib
 1/06/98  10:13         <DIR>    cron
 1/06/98  10:13         <DIR>    emacs
 1/06/98  10:13         <DIR>    letterpress
 1/06/98  10:13         <DIR>    pilot
 1/06/98  10:13         <DIR>    spam
 1/06/98  10:19         <DIR>    tds
 1/06/98  10:19         <DIR>    unicode
 1/06/98  10:19         <DIR>    w3c-sgml-wg
 1/06/98  10:19         <DIR>    web
 1/06/98  10:19         <DIR>    wordsmith
 1/06/98  10:19         <DIR>    xml-dev

Now when I'm "unplugged" it seems to only look in there.  If my nnml
groups are local, why did it do this?  I thought I'd still be able
to read my nnml groups when I was unplugged.

Hints, suggestions, etc. most welcome.

FWIW, I've attached my .gnus.el file to the end of this message.
(There are a few hacks in there for the odd way that I collect mail
off my ISP, but I don't think that they're relevant.)

--norm

;; Using procmail?
(setq nnmail-use-procmail t)
(setq nnmail-spool-file 'procmail)  ; same as nnmail-use-procmail :-)
(setq nnmail-procmail-directory "~/.incoming/")

;; Maybe there ought to be a gnus-group-load-hook?
(add-hook 'gnus-group-mode-hook (lambda nil
			    (define-key gnus-group-mode-map "g" 
			      'get-new-mail-and-news)))

;; Using nnmail-split-methods?
;(setq nnmail-use-procmail nil)
;(setq nnmail-spool-file "~/.incoming/mail.spool")

;; Other settings...

;;(setq gnus-select-method '(nntp "news.berkshire.net"))
;;(setq gnus-secondary-select-methods '((nnml "")))
(setq gnus-select-method '(nnml ""))
(setq gnus-secondary-select-methods '((nntp "news.berkshire.net")))
;;(setq gnus-secondary-select-methods nil)

(setq nnmail-delete-incoming t)
(setq nnml-directory "~/Mail/")
(setq nndraft-directory "~/.maildrafts")

(setq gnus-save-killed-list nil)
(setq nnmail-keep-last-article nil)
(setq gnus-save-newsrc-file nil)

(setq nnmail-crosspost-link-function 'copy-file)

(setq gnus-suppress-duplicates t)
(setq gnus-save-duplicate-list t)
(setq gnus-duplicate-list-length 1000)
(setq gnus-duplicate-file "~/.news.dups")

(setq gnus-default-subscribed-newsgroups t)
(setq gnus-subscribe-newsgroup-method 'gnus-subscribe-alphabetically)
(setq gnus-large-newsgroup 500)
(setq gnus-group-line-format "%M%S%5y,%3T: %(%g%)
")
(setq mail-yank-prefix "> ")

(if (equal system-type 'windows-nt)
    (setq nnmail-movemail-program 
	  "m:/gnuwin32/b18/h-i386-cygwin32/bin/mv.exe"))

(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)

(add-hook 'message-header-setup-hook 'add-bcc-header)
(add-hook 'message-header-setup-hook 'ndw-patch-reply-to)

;; Setup the colors that I like...well, like is too strong a word,
;; but they're better than the defaults on my system...

(custom-set-variables)
(custom-set-faces
 '(gnus-group-mail-3-face 
   ((((class color) (background light)) (:bold t :foreground "Wheat"))))
 '(gnus-group-mail-3-empty-face 
   ((((class color) (background light)) (:bold t :foreground "MidnightBlue"))))
 '(gnus-summary-high-ticked-face 
   ((((class color) (background light)) (:bold t :foreground "MidnightBlue"))))
 '(gnus-summary-normal-ticked-face
   ((((class color) (background light)) (:bold t :foreground "MidnightBlue"))))
;; '(gnus-summary-low-ancient-face
;;   ((((class color) (background light)) (:bold t :foreground "blue4"))))
 '(gnus-cite-face-4 
   ((((class color) (background light)) (:bold t :foreground "MidnightBlue"))))
 '(message-cited-text-face
   ((((class color) (background light)) (:bold t :foreground "MidnightBlue"))))
 '(message-header-name-face
   ((((class color) (background light)) (:bold t :foreground "Black"))))
 '(message-header-other-face
   ((((class color) (background light)) (:bold t :foreground "Dark Green"))))
 '(message-header-subject-face
   ((((class color) (background light)) (:bold t :foreground "White"))))
 '(message-header-to-face
   ((((class color) (background light)) (:bold t :foreground "Yellow"))))
 '(message-header-cc-face
   ((((class color) (background light)) (:bold t :foreground "cyan2"))))
)

(setq gnus-message-archive-group
      '((if (message-news-p)
	    "news" 
	  (format "%s.%s" 
		  (format-time-string 
		   "%Y-%m" (current-time))
		  machine-name))))

(setq gnus-article-display-hook
      '(gnus-article-hide-headers-if-wanted 
        gnus-article-date-lapsed
        gnus-article-hide-pgp
        gnus-article-hide-boring-headers
        gnus-article-treat-overstrike
        gnus-article-de-quoted-unreadable
        gnus-article-strip-leading-blank-lines
        gnus-article-remove-trailing-blank-lines
        gnus-article-strip-multiple-blank-lines
        gnus-article-highlight
        gnus-article-emphasize))

(gnus-agentize)

(defun add-bcc-header ()
  ;; If the current message is being sent from an arbortext* group, and
  ;; it doesn't have a CC: or if the CC: doesn't already include me, 
  ;; add me to the CC: list...
  (let ((in-arbortext nil)
	(cc-addr "Norman Walsh <nwalsh@arbortext.com>")
	cc-start cc-end)
    (save-excursion
      (if gnus-newsgroup-name
	  (setq in-arbortext (string-match "^arbortext" gnus-newsgroup-name)))
      (if in-arbortext
	  (progn
	    (goto-char (point-min))
	    (setq cc-start (re-search-forward "^[cC][cC]:" nil t))
	    (setq cc-end (re-search-forward "^[^ \t]" nil t))
	    (if cc-end
		(setq cc-end (- cc-end 1)) ;; back to start of line...
	      (setq cc-end (point-max)))

	    (if cc-start
		(progn 
		  (goto-char cc-start)
		  (if (not 
		       (or (re-search-forward "nwalsh@arbortext.com" cc-end t)
			   (re-search-forward "norm@berkshire.net" cc-end t)))
		      (progn
			(goto-char (- cc-end 1))
			(if (> (+ (current-column) (length cc-addr)) 78)
			    (insert ",\n\t  ")
			  (insert ", "))
			(insert "Norman Walsh <nwalsh@arbortext.com>"))))
	      (progn
		(goto-char (point-min))
		(forward-line)
		(insert "CC: nwalsh@arbortext.com\n")))))
      )))

(defun ndw-patch-reply-to ()
  (let ((in-arbortext nil)
	rt-start rt-end)
    (if gnus-newsgroup-name
	(setq in-arbortext (string-match "^arbortext" gnus-newsgroup-name)))
    (if in-arbortext
	(progn
	  (setq rt-start (re-search-forward "^Reply-to:" nil t))
	  (setq rt-end (re-search-forward "^[^ \t]" nil t))
	  (if rt-end
	      (setq rt-end (- rt-end 1)) ;; back to start of line...
	    (setq rt-end (point-max)))
	  (if rt-start
	      (progn
		(goto-char rt-start)
		(delete-region rt-start rt-end)
		(insert " nwalsh@arbortext.com\n"))
	    (progn
	      (goto-char (point-max))
	      (insert "Reply-to: nwalsh@arbortext.com\n")))))
    ))

(defun get-new-mail-and-news (&optional arg)
  "Get mail (and news with prefix arg) from remote host"
  (interactive "P")
  (cond ((> (prefix-numeric-value arg) 4) (get-remote-mail-and-news "-n"))
	((> (prefix-numeric-value arg) 1) (get-remote-mail-and-news "-nm"))
	(t (get-remote-mail-and-news)))
  (gnus-group-get-new-news))

(defun get-remote-mail-and-news (&optional opts)
  "Update local mail spools with mail and/or news.  Really a wrapper."
  (interactive)
  (if (equal system-type 'windows-nt)
      (get-remote-mail-and-news-nt opts)
    (get-remote-mail-and-news-unix opts)))

(defun get-remote-mail-and-news-nt (&optional opts)
  "Update local mail spools with mail and/or news for NT"
  (interactive)
  (let ((shell-file-name "cmd.exe")	; switch back to cmd.exe temporarily
	(win32-quote-process-args nil)
	(shell-command-switch "/c")
	(cmdcmd "n:\\home\\nwalsh\\bin\\getnewmail.cmd")
	(cmd4nt "m:\\4nt\\4nt.exe /c")
	cmd)

    (setq cmd (format "%s %s %s" cmd4nt cmdcmd opts))

    (if (string= opts "-nm")
	(message "Getting new mail and news...")
      (message "Getting new mail..."))

    (shell-command cmd)))

(defun get-remote-mail-and-news-unix (&optional opts)
  "Update local mail spools with mail and/or news for UNIX"
  (interactive)
  (let ((out-buf-name "getnewmail output")
	(output-point 0)
	(some-output nil))
    (get-buffer-create out-buf-name)
    (switch-to-buffer-other-window out-buf-name)
    (setq output-point (point))
    (message "Getting new mail/news...")
    
    (if opts
	(call-process "~/bin/getnewmail" nil out-buf-name t opts)
      (call-process "~/bin/getnewmail" nil out-buf-name t))

    (if (not (= output-point (point)))
	(setq some-output t))
    (switch-to-buffer-other-window "*Group*")
    (if (not some-output) (delete-other-windows))
    ))