Re: Experimenting with QGnus 0.20

[Norman Walsh <norm@berkshire.net>]

There were no replies; no one has any thoughts on this?  Not
even a "Norm, you've been an idiot for the 87th time, you
forgot..."? ;-)

Norman Walsh <norm@berkshire.net> writes:
> 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))
>     ))