From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/25834 Path: main.gmane.org!not-for-mail From: merlyn@stonehenge.com (Randal L. Schwartz) Newsgroups: gmane.emacs.gnus.general Subject: *just* about to make the jump to terry gnus Date: 11 Oct 1999 14:30:01 -0700 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035163151 16151 80.91.224.250 (21 Oct 2002 01:19:11 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:19:11 +0000 (UTC) Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id RAA18983 for ; Mon, 11 Oct 1999 17:33:20 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id QAB07874; Mon, 11 Oct 1999 16:32:17 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 11 Oct 1999 16:32:42 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id QAA28865 for ; Mon, 11 Oct 1999 16:32:24 -0500 (CDT) Original-Received: from halfdome.holdit.com (merlyn@halfdome.holdit.com [209.102.105.64]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id RAA18954 for ; Mon, 11 Oct 1999 17:30:14 -0400 (EDT) Original-Received: (from merlyn@localhost) by halfdome.holdit.com (8.9.1/8.9.1) id OAA30669; Mon, 11 Oct 1999 14:30:07 -0700 Original-To: ding@gnus.org Original-Lines: 165 X-Mailer: Gnus v5.6.44/Emacs 20.3 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:25834 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:25834 OK, yes, I admit, I'm still using 5.6.44. Not even the final release of qgnus. I'm about to make the jump to the latest GNUS. What do I need to know except doing this: (setq nnmail-use-procmail t nnmail-spool-file '((directory :path "/home/shofmann/Mail/spool" :suffix ".spool")) ) to read my mail. How many of the following things break: ;;; GNUS (load "~/.gnus-private" nil t) ; some things are not worth revealing (defun MERLYN-summary-control-k (prefix) "call gnus-summary-kill-same-subject or gnus-summary-kill-thread, which see" (interactive "P") (let ((prefix-arg prefix)) (call-interactively (if gnus-show-threads 'gnus-summary-kill-thread 'gnus-summary-kill-same-subject)))) (defun MERLYN-gnus-summary-mode-hook () (local-set-key "\C-k" 'MERLYN-summary-control-k)) (defun MERLYN-gnus-expiry-wait-function (ng) "give list.clip a short wait, other lists 7 days, and others marked E 1" (cond ((string-match "^list\\.clip" ng) 1) ((string-match "^list" ng) 7) (t 1))) (defun MERLYN-display-time-hook-for-gnus () (setq gnus-mode-non-string-length (+ 21 (length display-time-string)))) (defun MERLYN-gnus-select-group-hook () "Don't put local variables in score files. Put them here" (let ((ng gnus-newsgroup-name)) (cond ((string-match "^nndoc:" ng) (make-local-variable 'gnus-thread-sort-functions) (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number))) ((string-match "^nnml:" ng) (make-local-variable 'gnus-fetch-old-headers) (setq gnus-fetch-old-headers 'some) (make-local-variable 'gnus-thread-sort-functions) (setq gnus-thread-sort-functions '(gnus-thread-sort-by-date))) ((string-match "binaries" ng) (make-local-variable 'gnus-thread-sort-functions) (setq gnus-thread-sort-functions '(gnus-thread-sort-by-subject))) ((string-match "^clari" ng) (make-local-variable 'gnus-summary-line-format) (setq gnus-summary-line-format "%U%R%z%I%(%[%4L: %-5,5n%]%) %s\n") (make-local-variable 'gnus-thread-sort-functions) (setq gnus-thread-sort-functions '(gnus-thread-sort-by-date))) ((string-match "gnus" ng) (make-local-variable 'gnus-use-grouplens) (setq gnus-use-grouplens t) (gnus-grouplens-mode)) ) )) (defun MERLYN-message-mode-hook () (setq local-abbrev-table mail-mode-abbrev-table) (abbrev-mode 1)) (define-abbrev-table 'mail-mode-abbrev-table '( ("uwt" "http://www.stonehenge.com/merlyn/WebTechniques/" nil 0) ("uur" "http://www.stonehenge.com/merlyn/UnixReview/" nil 0) ("clpar" "Your article has been rejected for reasons already stated in the autoreply" nil 0) ("clpap" "Your article has been accepted and posted" nil 0) )) (setq gnus-select-method '(nntp "news.teleport.com" (nntp-address "teleport.com") (nntp-open-connection-function nntp-open-rlogin) (nntp-end-of-line "\n") (nntp-rlogin-program "ssh") (nntp-rlogin-parameters ("-x" "-C" "telnet" "-8" "news" "nntp")) ) gnus-use-long-file-name t gnus-check-new-newsgroups 'ask-server gnus-check-bogus-newsgroups nil ; SLOOOOOW gnus-activate-foreign-newsgroups nil gnus-read-active-file 'some ;; gnus-save-killed-list nil gnus-save-killed-list t gnus-visual nil gnus-use-adaptive-scoring t ;; gnus-fetch-old-headers 'some gnus-build-sparse-threads 'some ; new in 5.3 gnus-thread-sort-functions '(gnus-thread-sort-by-subject gnus-thread-sort-by-total-score) gnus-thread-score-function 'max gnus-group-default-list-level 3 gnus-group-line-format "%M%S%p%5y: %(%g%) %L\n" gnus-group-sort-function '(gnus-group-sort-by-alphabet gnus-group-sort-by-level) gnus-summary-line-format "%U%R%z%I%(%[%4L: %-20,20n%]%)+%t %s\n" gnus-thread-hide-subtree t gnus-summary-mode-line-format "Gnus %g/%A %Z" gnus-article-mode-line-format "Gnus %g/%A %S" gnus-uu-unmark-articles-not-decoded t gnus-uu-be-dangerous t ; my new variable gnus-default-article-saver 'gnus-summary-save-in-folder gnus-secondary-select-methods '((nnml "")) ;; gnus-suppress-duplicates t gnus-uncacheable-groups "^nnml:" nnmail-use-procmail t nnmail-spool-file 'procmail ; same as nnmail-use-procmail :-) nnmail-procmail-directory "~/.incoming/" nnmail-delete-incoming t gnus-total-expirable-newsgroups "^nnml:list\\." nnmail-expiry-wait-function 'MERLYN-gnus-expiry-wait-function nnmh-get-new-mail nil ; don't want this reading mail nnmh-directory "~/.mail" nnmh-be-safe t gnus-message-archive-group "nnml:outbox" gnus-use-cache t gnus-visible-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From\\|^X-merlyn-" ;; gnus-asynchronous t ; trying this ) (add-hook 'display-time-hook 'MERLYN-display-time-hook-for-gnus) (add-hook 'gnus-select-group-hook 'MERLYN-gnus-select-group-hook) (add-hook 'gnus-summary-mode-hook 'MERLYN-gnus-summary-mode-hook) (add-hook 'message-mode-hook 'MERLYN-message-mode-hook) ;; (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) ;; message stuff (setq message-sendmail-f-is-evil t ; gack! message-autosave-directory "~/Mail/" ; nnml-directory message-cite-function 'sc-cite-original message-syntax-checks '( (long-lines . disabled) (signature . disabled) (sender . disabled) ) message-user-organization "Stonehenge Consulting Services; Portland, Oregon, USA" ) ;; nnir stuff (setq nnir-search-engine 'glimpse ) (require 'nnir) ;; moderation stuff ;; (setq gnus-moderated-groups "nnml:clpa\\|comp\\.lang\\.perl\\.announce") ;; (add-hook 'gnus-summary-mode-hook 'gnus-moderate) ;; (autoload 'gnus-moderate "gnus-mdrtn") ;;; Local Variables: ;;; MERLYN-after-save-hook-byte-compile: t ;;; End: -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!