From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/27103 Path: main.gmane.org!not-for-mail From: Pieter Wenk Newsgroups: gmane.emacs.gnus.general Subject: Re: Re: Re: ERROR AGAIN !! Date: Sat, 20 Nov 1999 13:38:06 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: <19991120133806.A1322@sre-4-139.urbanet.ch> References: <19991112143640.B2120@sre-4-139.urbanet.ch> <19991116084420.A544@sre-4-139.urbanet.ch> <9t9so26omu2.fsf@mraz.iskon.hr> <19991117093623.A1106@sre-4-139.urbanet.ch> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1035164190 22895 80.91.224.250 (21 Oct 2002 01:36:30 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:36:30 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id HAA20685 for ; Sat, 20 Nov 1999 07:40:11 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id GAB09895; Sat, 20 Nov 1999 06:40:08 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 20 Nov 1999 06:39:47 -0600 (CST) 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 GAA17986 for ; Sat, 20 Nov 1999 06:39:30 -0600 (CST) Original-Received: from monterosa.urbanet.ch (qmailr@monterosa.urbanet.ch [195.202.193.104]) by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id HAA20678 for ; Sat, 20 Nov 1999 07:38:59 -0500 (EST) Original-Received: (qmail 23986 invoked from network); 20 Nov 1999 12:38:52 -0000 Original-Received: from unknown (HELO sre-4-139.urbanet.ch) (195.202.209.139) by monterosa.urbanet.ch with SMTP; 20 Nov 1999 12:38:52 -0000 Original-Received: (from p.wenk@localhost) by sre-4-139.urbanet.ch (8.9.3/8.9.3) id NAA01441 for ding@gnus.org; Sat, 20 Nov 1999 13:38:06 +0100 Original-To: ding@gnus.org Mail-Followup-To: ding@gnus.org X-Mailer: Mutt 1.0i In-Reply-To: <19991117093623.A1106@sre-4-139.urbanet.ch> X-Uptime: 1:05pm up 4:18, 1 user, load average: 0.21, 0.07, 0.02 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:27103 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:27103 Hello to all: I have posted here a few days ago, my .gnus. Since I believe to have in this .gnus some errors which I should like to correct, I would be very pleased in getting your advises. FYI: I am loading xemacs with -q extention. Ommiting -q let's .gnus hang on (setq 11 What this number means, I have no idea. I edited of course my .gnus with vim and asked line 11...but this can't be correct. I would be very pleased if some of few could have a look on my .gnus I herewith include once again. Many thanks for your assistance. > >>> Should somebody be prepared to have a look on my .gnus hel- ping me >>> to eliminate some errors or improve certain settings I would be very >>> pleased. >> >>Post it here and some of us will try. > >Thanks a lot. Below, included you will find my .gnus. > >Some additional info: > >I run a 586 machine, 64 RAM. I have a wired (cable)connection >to my ISP. Since this is very fast, I have not installed leafnode. >The settings concerning my connection, are working quite well. >(Thanks Robin). > >I likely may have errors with (( or ))settings, since I do not as >yet correctly understand them...But I will go to find it out >how to set properly. > > >;;GNUS CONFIGURATION 12.11.99 > >;;* Den Start beschleunigen ! >;;============================================================================= >(setq gnus-read-active-file nil) >(setq gnus-verbose 10) >;(setq gnus-read-active-file t) >(setq gnus-check-new-newsgroups nil) >(setq gnus-check-bogus-newsgroups 'ask-server) >(setq gnus-newsgroup-adaptive-score-file nil > >;;* Mails automatisch aus dem Spool holen >;;============================================================================= >(setq nnml-get-new-mail t) > > > >;;* News-Holen-Methode setzen. Hier 'nntp' >;;============================================================================= >;;(setq gnus-select-method '(nntp "localhost")) > > ;; default method for selecting a newsgroup > (setq gnus-select-method '(nntp "") > ;; preferred method for fetching an article by Message-ID > gnus-refer-article-method '(nntp "news,urbanet.ch") > ;; program to post news > nnspool-inews-program '"/usr/lib/news/inews" > > ;; list of secondary methods that will be used for reading news > gnus-secondary-select-methods > '((nnml "Pieter" > ;; spool directory for the nnml mail backend > (nnml-directory "~/Mail/") > ;; mail active file > (nnml-active-file "~/Mail/active") > ;; mail newsgroups description file > (nnml-newsgroups-file "~/Mail/newsgroups"))) > ;; name of the directory articles will be saved in > gnus-article-save-directory "~/news/" > ;; directory variable from which all other Gnus file variables are derived > gnus-directory "~/news/" > ;; variable to control where interactive score entries are to go > gnus-home-score-file > ;; return the score file of the top-level hierarchy of GROUP > 'gnus-hierarchial-home-score-file > ;; directory where kill files will be stored > gnus-kill-files-directory (concat gnus-directory "score/") > ) > ;;* >;;* Diese Verzeichnisse möchten wir immer angezeigt bekommen, auch leer >;;* oder wenn der Inhalt gelesen wurde >;;============================================================================= >;;(setq gnus-permanently-visible-groups "^\\|^nnml\\|^nnfolder") >(setq gnus-permanently-visible-groups "") > >;;Larger printing-fonts > > >;:*====================== >;:* describe-face-at-point, a function to find out which face is which >(defun describe-face-at-point () > "Return face used at point." > (interactive) > (hyper-describe-face (get-char-property (point) 'face))) > > >;;* Alle verfassten News-Artikel automatisch speichern und Mails einmal >;;* im Monat in eine Datei mit Datum verfassen >;;============================================================================= >(setq gnus-message-archive-group > '((if (message-news-p) > "archive-news" > (concat "mail." (format-time-string > "%Y-%m" (current-time)))))) > >;;* Kein quoted-printable mehr als transfer-encoding >;;============================================================================= >;;(add-hook 'message-setup-hook >;; '(lambda () >;; (mime-editor/toggle-transfer-level >;; (if (message-news-p) 8 7)))) > > >;;* 3 Frames werden hiermit angezeigt, oben die summary, >;;* unten den gewählten Artikel und rechts oben eine permanente >;;* grafische und praktische Threadanzeige >;;============================================================================= >(progn > (setq gnus-build-sparse-threads 'some > gnus-use-trees t > gnus-generate-tree-function 'gnus-generate-horizontal-tree > gnus-tree-minimize-window nil) > (gnus-add-configuration > '(article > (vertical 1.0 > (horizontal 0.25 > (summary 0.75 point) > (tree 1.0)) > (article 1.0))))) > >;;* Diverse mögliche Anzeigevariablen ARTICLES >;;============================================================================= > >;;* highlighting quotes >;; Quotes (citations) sollen farblich hervorgehoben werden >(add-hook 'gnus-article-display-hook 'gnus-article-highlight-citation t) >(add-hook 'message-mode-hook 'gnus-article-highlight-citation t) >(add-hook 'mail-mode-hook 'gnus-article-highlight-citation t) > > )) > > >(setq gnus-article-display-hook > > ;; Header-Teile verstecken, wenn `gnus-have-all-headers' is nil > '(gnus-article-hide-headers-if-wanted > ;; Alle leeren Zeilen vom Artikel-Anfang an werden gelöscht > gnus-article-strip-leading-blank-lines > ;; Und restliche leere Zeilen ebenso > gnus-article-remove-trailing-blank-lines > ;; Hebt den gerade gewählten Artikel hervor > gnus-article-highlight > ;; Sucht im Header nach einem xface > gnus-article-display-x-face > ;; Zeigt smileys :-) ;-) als kleine icons an > gnus-smiley-display > ;; Fügt Buttons in den Header ein > gnus-article-add-buttons-to-head > ;; Blendet den PGP-Kram im Header und Artikel aus > gnus-article-hide-pgp) > > > >(setq > ;; Highlight cited text > gnus-treat-highlight-citation 'last > ;; Highlight the signature > gnus-treat-highlight-signature 'last) > > >;;* mark threads >;; Threads sollen markiert werden >(setq gnus-summary-same-subject "->") > >;; resize summary window to 30% of the screen >(gnus-add-configuration > '(article (vertical 1.0 > (summary .30 point) > (article 1.0) > ) > ) > ) > >;; Summary-Anzeige angenehmer.;;;; > >;* nicer summary-line format >;; So gefällt mir das Summary besser >(setq gnus-summary-line-format "%U%R%z%(%I%-55,55s %[%n%]%)\n") > > >;;Smileys: > >(cond ((and (string-match "XEmacs\\|Lucid" emacs-version) > (or (and (= emacs-major-version 19) > (>= emacs-minor-version 15)) > (and (= emacs-major-version 20) > (>= emacs-minor-version 3)))) > (load-library "smiley") > (add-hook 'gnus-article-display-hook 'smiley-buffer))) > > > > >;;* Den Topic-Mode einschalten >;;============================================================================= >(add-hook 'gnus-group-mode-hook 'gnus-topic-mode) > >;;* Den Mail- und News-Header konfigurieren >;;============================================================================= >(setq message-from-style 'angles > user-mail-address "pwenk@urbanet.ch" > mail-host-address "mail.urbanet.ch" > user-full-name "Pieter Wenk" > message-default-headers > (concat "Organization: P.Wenk \n") > message-syntax-checks '((sender . disabled)) > ) > >;;* Den Header schon bei der Erstellung erzeugen >;;============================================================================= >(setq message-generate-headers-first t) > > >>;;*=========================================================== >>;;* Super-Cite Settings: >>;;*=========================================================== >>;;* >>;;* >>;;* Start of Super-Cite Settings: >>;;*================================ >>;;* >>;; Set some functions >>;;*================================ >>;;; citing function which performs the initial citation. > (autoload 'sc-cite-original "supercite" "Supercite 3.1" t) > ;;; submit a bug report on Supercite via mail > (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t) > ;;; modifying a citation just inserted in the mail buffer > (add-hook 'mail-citation-hook 'sc-cite-original) > ;;; hook which gets run once after Supercite loads. > (add-hook 'sc-load-hook 'sc-setup-filladapt) >;;; function for citing an original message > (setq message-cite-function 'sc-cite-original) > ;; variable not documented > (setq sc-message-cite-original-without-signature t) > ;; variable not documented > (setq news-reply-header-hook nil) > (require 'sc-alist) > ;; custom function for German citations > (defun sc-header-attributed-schrieb-am () > "\"\" == schrieb am : > >;; Treats these fields in a similar manner to `sc-header-on-said'." > (let ((sc-mumble "") > (whofrom (sc-whofrom))) > (if whofrom > (insert sc-reference-tag-string > (sc-hdr "\"" (sc-mail-field "sc-attribution") "\" == ") > (sc-hdr "" (sc-mail-field "sc-author") " ") > "schrieb am " (sc-mail-field "date") ":\n")))) >;;* >;;* List of reference header rewrite functions >;;*================================ > (defvar sc-rewrite-header-list > '((sc-no-header) > (sc-no-blank-line-or-header) > ;; (sc-header-inarticle-wrote) > (sc-header-inarticle-writes > (sc-header-verbose) > (sc-header-on-said) > (sc-header-regarding-adds) > (sc-header-attributed-wrote) > (sc-header-schrieb-am) > (sc-header-author-wrote) > (sc-header-attributed-schrieb-am) > ) > >;; "*List of reference header rewrite functions. The variable >;; `sc-preferred-header-style' controls which function in this list is >;; chosen for automatic reference header insertions. Electric reference >;; mode will cycle through this list of functions.") >;;; > > (setq sc-preferred-attribution-list > (list > '"sc-header-schrieb-am" > "sc-header-author-wrote" > "sc-header-regarding-adds" > "sc-header-on-said" > "firstname" > "emailname" > "sc-header-attributed-schrieb-am" > "lastname")) >;; >;; > ;; Number of blank lines to leave after mail headers have been nuked. > (setq > sc-blank-lines-after-headers 0 > ) > ;; always confirm attribution string before citing text body > (setq > sc-confirm-always-p nil > ) > ;; index into `sc-rewrite-header-list' specifying preferred header style > (setq > sc-preferred-header-style 8 > ) > ;; if non-nil, automatically fill each paragraph after it has been cited > (setq > sc-auto-fill-region-p t > ) > ;; if non-nil, delete all leading white space before citing > (setq > sc-fixup-whitespace-p t > ) > ;; use electric references if non-nil > (setq > sc-electric-references-p t > ) > ;; if non-nil, put a citation on blank lines > (setq > sc-cite-blank-lines-p nil > ) > ;; whether to use nested or non-nested citation style > (setq > sc-nested-citation-p t > ) > ;; The "citation leader". The citation leader is contained in the > ;; variable `sc-citation-leader', and has the default value of a > ;; string containing four spaces. > (setq > sc-citation-leader "" > ) > ;; The "citation separator". The citation separator is contained in > ;; the variable `sc-citation-separator', and has the default value of > ;; a string containing a single space. > (setq > sc-citation-separator " " > ) >;; string used at the beginning of built-in reference headers > (setq > sc-reference-tag-string "* " > ) > ;; The "citation delimiter". This string, contained in the variable > ;; `sc-citation-delimiter' visually separates the citation from the > ;; text of the line. This variable has a default value of `">"' and > ;; for best results, the string should consist of only a single > ;; character. > (setq > sc-citation-delimiter "> " > ) > > > > >;;* Das Gnus-Mail-System konfigurieren >;;============================================================================= >(setq gnus-secondary-select-methods '((nnml "private"))) >(setq user-mail-address "pwenk@urbanet.ch") > >;;* >;;* Eingehende Mails aufteilen >;;============================================================================ >;;(setq nnmail-split-methods >;; '( >;; ("xemacs-beta" >;;"^\\(To:\\|Cc:\\|CC:\\|Resent\\|Sender:\\).*xemacs-beta") ("robin" >;;"^\\(To:\\|Cc:\\).*robin") ("Intern" "^\\(To:\\).thomas@*") >;; ("Unsort" "") >;; ) >;; ) > >;;* >;;* Delete duplicate Mails >;;*============================================================================ >(setq nnmail-treat-duplicates 'delete) > >;;* No crossposting in Mails >;;*============================================================================ >;;(setq nnmail-crosspost nil) > >;;* automatischer Zeilenumbruch >;;*============================================================================ > > >(add-hook 'message-mode-hook 'turn-on-auto-fill) >(setq-default fill-column 70) > > >;;* MIME-Support einschalten >;;*============================================================================ >(load "mime-setup") >(setq mime-editor/transfer-level 8) >(setq mime-editor/split-message nil) > >;;NETSCAPE launching > > >*======================= >;:* make netscape use a new window when clicking a URL >; by Karl Kleinpaste >(setq browse-url-new-window-p t) >(defun karl-browse (a) >;; "Wrapper, for new window use." > (browse-url-netscape a t)) >(setq browse-url-browser-function (function karl-browse)) > > >;;* Signature-Datei >;;*============================================================================ >(setq gnus-signature-file "~/.signature") > >;;* Domaineintrag setzen (keine Ahnung ob's funktioniert) >;;*============================================================================ >;;(concat "<"(message-unique-id)"-pwenk@urbanet.ch>)) > > >;; And here something in order to get rid of borrowing messages. >;; A nice SCORE DEfinition. > >;;* SCORE >;;*================================ >;;* Scoring away stuff I find boring > > >(setq gnus-use-adaptive-scoring t) >(defvar gnus-default-adaptive-score-alist > '((gnus-unread-mark) > (gnus-ticked-mark (from 4)) > (gnus-dormant-mark (from 5)) > (gnus-del-mark (from -4) (subject -1)) > (gnus-read-mark (from 1) (subject 1)) > (gnus-expirable-mark (from -1) (subject -1)) > (gnus-killed-mark (from -1) (subject -3)) > (gnus-kill-file-mark) > (gnus-ancient-mark) > (gnus-low-score-mark) > (gnus-catchup-mark (subject -4) (from -1)) > ) > ) >;; You may find that your scores have a tendency to grow without bounds, >;; especially if you're using adaptive scoring. If scores get too big, >;; they lose all meaning--they simply max out and it's difficult to use >;; them in any sensible way. >(setq gnus-decay-scores t) >(defun gnus-decay-score (score) > "Decay SCORE. >;; This is done according to `gnus-score-decay-constant' >;; and `gnus-score-decay-scale'." > (floor > (- score > (* (if (< score 0) 1 -1) > (min (abs score) > (max gnus-score-decay-constant > (* (abs score) > gnus-score-decay-scale))))))) > > >;; If not enough, a nice nuke possibility: > >;;*================================ >;;* quick nuke people :-) > (global-set-key "\C-cx" 'gnus-scum-expunge) >;;* This function should be called from the summary buffer with point >;;* on the article to nuke. It puts a rule in ~/News/SPAMMERS to lower >;;* scores of author >;;* It needs an entry in all.SCORE of (files "~/News/SPAMMERS"). >;; I changed it to only add the from line. > (defun gnus-scum-expunge () >;; "Remove this spammer from existance as much as possible." > (interactive) > (let* ((hdr (gnus-summary-article-header)) > (subj (aref hdr 1)) > (auth (aref hdr 2)) > (artid (aref hdr 4)) > (atsign (string-match "@" artid)) > (host (substring artid (+ atsign 1) (- (length artid) 1))) > (oldscfile gnus-current-score-file)) > ;; Change to our spammer score file > (gnus-score-change-score-file "SPAMMERS") > ;; Add our horrible spammer scores > (gnus-summary-score-entry "Subject" subj 'S' -1000 nil) > (gnus-summary-score-entry "From" auth 'S' -9999 nil) > (gnus-summary-score-entry "Message-ID" host 'S' -5 nil) ; mild > ;; Change back to old current score file > (gnus-score-change-score-file oldscfile) > (gnus-score-save))) > > >;; Signature limite >;; This one takes care of fucked-up signatures >;; much enhanced version from the example in the docs by Torsten >;; Hilbrich >(setq gnus-signature-separator > "^\\(-- \\|^-- *\\|________\\========*\\)$") > > > >;; BBDB, das Adressbuch laden >;;============================================================================= >;;etq load-path (cons "/usr2/opt/bbdb-2.00.06/lisp" load-path)) >;;equire 'bbdb) >;;bdb-initialize 'gnus 'message 'sc 'w3) >;;dd-hook 'gnus-startup-hook 'bbdb-insinuate-gnus) >;;dd-hook 'mail-setup-hook 'bbdb-insinuate-sendmail) > >;; Wo EMACS sonst noch nach Info-Files suchen soll >;;================================================ >;;etq Info-directory-list '("/usr2/opt/bbdb-2.00.06/texinfo/" >;;home/thomas/pgnus-0.97/texi/")) > >;;* BBDB konfigurieren >;;============================================================================= >;;etq bbdb/news-auto-create-p 'bbdb-ignore-most-messages-hook >;;bbdb-ignore-most-messages-alist '(("To" . "wenk*\\|pieter*\\|*@urbanet.ch"))) > >;;etq bbdb-notice-hook 'bbdb-auto-notes-hook) >;;etq bbdb-auto-notes-alist '(("Organization" (".*" company 0)) >;; ("X-Newsreader" (".*" mailer 0)) >;; ("X-Mailer" (".*" mailer 0)) >;; ("X-URL" (".*" url 0)) >;; ("Subject" (".*" last-subj 0 t)) >;; )) >;;("Newsgroup ("[^,]+" newsgroups 0)))) >;; ("Subject" (".*" last-subj 0 t)) >;; ("User-Agent" (".*" mailer 0)) >;; ("X-Newsreader" (".*" mailer 0)) >;; ("X-Mailer" (".*" mailer 0)) >;; ("X-URL" (".*" url 0)) >;; )) > >;;*So geben wir der BBDB einen Datumsstempel mit auf den Weg >;;dd-hook 'bbdb-change-hook 'bbdb-creation-date-hook) >;;dd-hook 'bbdb-change-hook 'bbdb-timestamp-hook) > >;;* und die BBDB-Erweiterung BBDB-Frame laden >;;(load "/usr2/opt/bbdb-frame/bbdb-frame") > >;;(define-key bbdb-mode-map "T" 'bbdb-toggle-separate-frame) >;;(define-key bbdb-mode-map "i" 'bbdb-iconify) >;;(define-key bbdb-mode-map "q" 'bbdb-quit-frame) > >;;* noch einige Einstellungen für BBDB >;;============================================================================= >;;dd-hook 'gnus-save-newsrc-hook 'bbdb-offer-save) >;;dd-hook 'gnus-exit-group-hook 'bbdb-offer-save) >;;etq bbdb-offer-save 'auto) ;just save, don't ask > >;;* noch einige Tasten für BBDB >;;============================================================================= >;;global-set-key '(control f10) 'bbdb-create) > -- / / (_)____ __ ____ __ Pieter Wenk / /__/ / _ \/ // /\ \/ / Vevey/Switzerland /____/_/_//_/\_,_/ /_/\_\