From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/13472 Path: main.gmane.org!not-for-mail From: Norman Walsh Newsgroups: gmane.emacs.gnus.general Subject: Experimenting with QGnus 0.20 Date: Tue, 6 Jan 1998 10:35:31 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: <8172-Tue06Jan1998103531-0500-norm@berkshire.net> Reply-To: norm@berkshire.net NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by SEMI MIME-Edit 0.88 "Tsurugi") Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035152833 9453 80.91.224.250 (20 Oct 2002 22:27:13 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:27:13 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id HAA04239 for ; Tue, 6 Jan 1998 07:38:32 -0800 Original-Received: from sina.hpc.uh.edu (root@Sina.HPC.UH.EDU [129.7.3.5]) by xemacs.org (8.8.5/8.8.5) with ESMTP id JAA01223 for ; Tue, 6 Jan 1998 09:38:50 -0600 (CST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id JAH03034; Tue, 6 Jan 1998 09:39:01 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 06 Jan 1998 09:37:12 -0600 (CST) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id JAA03014 for ; Tue, 6 Jan 1998 09:37:03 -0600 (CST) Original-Received: (qmail 9004 invoked by uid 504); 6 Jan 1998 15:36:51 -0000 Original-Received: (qmail 9001 invoked from network); 6 Jan 1998 15:36:51 -0000 Original-Received: from loomis.berkshire.net (root@206.72.196.14) by claymore.vcinet.com with SMTP; 6 Jan 1998 15:36:50 -0000 Original-Received: from mergalang.berkshire.net (norm.berkshire.net [206.72.196.72]) by loomis.berkshire.net (8.8.5/8.7.1) with SMTP id KAA02669 for ; Tue, 6 Jan 1998 10:39:34 -0500 (EST) Original-To: ding@gnus.org X-Emacs: 19.34 Original-Lines: 271 X-Mailer: Quassia Gnus v0.20/Emacs 19.34 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:13472 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:13472 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 . 1/06/98 10:19 .. 1/06/98 10:19 agent.lib 1/06/98 10:13 cron 1/06/98 10:13 emacs 1/06/98 10:13 letterpress 1/06/98 10:13 pilot 1/06/98 10:13 spam 1/06/98 10:19 tds 1/06/98 10:19 unicode 1/06/98 10:19 w3c-sgml-wg 1/06/98 10:19 web 1/06/98 10:19 wordsmith 1/06/98 10:19 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 ") 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 ")))) (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)) ))