From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: *just* about to make the jump to terry gnus
Date: 11 Oct 1999 14:30:01 -0700 [thread overview]
Message-ID: <m1zoxptwkm.fsf@halfdome.holdit.com> (raw)
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
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
next reply other threads:[~1999-10-11 21:30 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-10-11 21:30 Randal L. Schwartz [this message]
1999-10-12 9:50 ` Kai Großjohann
1999-10-12 12:52 ` Karl Kleinpaste
1999-10-12 12:53 ` Karl Kleinpaste
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m1zoxptwkm.fsf@halfdome.holdit.com \
--to=merlyn@stonehenge.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).