*just* about to make the jump to terry gnus

*just* about to make the jump to terry gnus

[Randal L. Schwartz]

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!

Re: *just* about to make the jump to terry gnus

[Kai Großjohann]

Randal L. Schwartz <merlyn@stonehenge.com> writes:

> 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: [...]

nnmail-delete-incoming is now named mail-source-delete-incoming.  And
nnmail-spool-file is now named mail-sources.

I didn't see anything else -- I hope I didn't overlook anything.

kai
-- 
Life is hard and then you die.

Re: *just* about to make the jump to terry gnus

[Karl Kleinpaste]

And nnmail-delete-incoming is now mail-source-delete-incoming.

Re: *just* about to make the jump to terry gnus

[Karl Kleinpaste]

Sorry, momentary brain detachment there...I just inadvertently echoed
your obseration...