From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/13523 Path: main.gmane.org!not-for-mail From: Norman Walsh Newsgroups: gmane.emacs.gnus.general Subject: Re: Experimenting with QGnus 0.20 Date: Thu, 8 Jan 1998 11:39:13 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: <5103-Thu08Jan1998113913-0500-norm@berkshire.net> References: <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 1035152873 9667 80.91.224.250 (20 Oct 2002 22:27:53 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:27:53 +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 IAA22672 for ; Thu, 8 Jan 1998 08:43:35 -0800 Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by xemacs.org (8.8.5/8.8.5) with ESMTP id KAA11290 for ; Thu, 8 Jan 1998 10:42:26 -0600 (CST) Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id LAN11394; Thu, 8 Jan 1998 11:19:02 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 08 Jan 1998 10:41:35 -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 KAA10354 for ; Thu, 8 Jan 1998 10:41:28 -0600 (CST) Original-Received: (qmail 5233 invoked by uid 504); 8 Jan 1998 16:41:16 -0000 Original-Received: (qmail 5230 invoked from network); 8 Jan 1998 16:41:15 -0000 Original-Received: from loomis.berkshire.net (root@206.72.196.14) by claymore.vcinet.com with SMTP; 8 Jan 1998 16:41:14 -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 LAA27453 for ; Thu, 8 Jan 1998 11:43:40 -0500 (EST) Original-To: ding@gnus.org X-Emacs: 19.34 In-Reply-To: Norman Walsh's message of "Tue, 6 Jan 1998 10:35:31 -0500" Original-Lines: 276 X-Mailer: Quassia Gnus v0.20/Emacs 19.34 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:13523 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:13523 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 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 . > 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)) > ))