Gnus Xemacs

Michael Klingbeil schickte mir folgende Anleitung, da ich selbst nicht mit diesem Programm arbeite. Ich habe sie per copy&paste eingefügt, ohne große Veränderungen vorzunehmen.

Es gibt verschiedene Version von (X)Emacs, da gäbe es die kleine emacs Version, die zum antesten allemal reicht. ftp://ftp.sunet.se/pub/os/Win32/ Die Datei heißt emacs-20.*-bin-i386.tar ca. 8,5 MB.

Nun kommt die etwas größere xemacs Versionen die mit Installer.exe für Windows Dummies ;-) ftp://ftp.xemacs.org/windows/ die .exe.

Das wichtigste ist die .emacs!
Home ist immer da wo auch die runemacs.exe ist, außer bei emacs und xemacs mit dem installer, da ist das Home C:\ Falls ein autoload error kommt, muß man die autoexec.bat anpassen.

autoexec.bat
set EMACSPACKAGEPATH=e:\XEmacs\site-packages\;e:\XEmacs\xemacs-packages\

Da man sich bei verschiedenen News-Servern anmelden muß, gibt es noch .authinfo in der steht dann folgendes:
machine localhost login michael password *****

.emacs
;; Gnus im Home-Verzeichniss
;(setq load-path (cons (expand-file-name "~/gnus/") load-path))

;; Automatischer Wortumbruch beim Schreiben
(add-hook 'text-mode-hook 'turn-on-auto-fill)

;;nun kommen News und Mail
(setq user-full-name "Michael Klingbeil"
user-mail-address "michael@qad.org"
message-from-style 'angles
gnus-local-organization "Wohnzimmer")

;;;Mails verschicken
(setq message-send-mail-function 'smtpmail-send-it
send-mail-function 'smtpmail-send-it
smtpmail-smtp-server "localhost"
smtpmail-local-domain "localhost"
smtpmail-debug-info t)

;;News
(setq user-mail-address "michael@qad.org")
(setq gnus-select-method '(nntp "localhost"))

;;Mails holen
(setenv "MAILHOST" "localhost")
(setq gnus-secondary-select-methods '((nnml "")))
(setq nnmail-spool-file "po:m")
(setq nnmail-pop-password-required t)

;;in monatlichen Abständen archivieren
(setq gnus-message-archive-group
'((if (message-news-p)
"misc-news"
(concat "mail." (format-time-string
"%Y-%m" (current-time)))))
)
;;---***---

;;Und nun .gnus
(setq gnus-subscribe-newsgroup-method 'gnus-subscribe-interactively)
(setq gnus-read-active-file t)
;;
;; when following-up, ask whether a copy of the message should
;; be sent to the poster
(setq gnus-auto-mail-to-author 'ask)

;;das killt den Sender im Header
(setq message-syntax-checks '((sender . disabled)))

;; das sind die Informationen die ich sehen möchte:
(setq gnus-visible-headers
"^From:\\|^Newsgroups:\\|^Date:\\|^User-Agent:\\|^Organization:\\|^X-Newsreader:\\|X-Mailer:")

;;Mails in verschiedene Folder verteilen
(setq nnmail-split-methods 'nnmail-split-fancy)
(setq nnmail-split-fancy
'(|
;; Mail direkt an mich
("to" "mklingbeil@knuut\\.de" "Privat")
("to" "mklingbeil@bigfoot\\.de" "Privat")
;;gnus
("to\\|from\\|cc" "ding@gnus\\.org" "Gnus")
;;bbdb
("to\\|from\\|cc" "bbdb-info@xemacs\\.org" "bbdb")
;;pc-welt
("from" "jump@pcwelt\\.com" "PC-Welt")
("from" "ah@schnaeppchenjagd\\.de" "Schnäpchenjagt")
("from" "majordomo@sonymusic\\.de" "Sony")
("from" "wildcat@wekanet-team\\.de" "PC-Magazin")
("from" "moderator@kostenlos\\.de" "kostenlos")
("from" "tmilkown@mail\\.tucows\\.com" "T-Milk")
("to" "members@onlinenews\\.de" "online-news")
("from" "newsadmin@firewall\\.tvtoday\\.de" "tv-today")
;; der Rest ist Spam
"Spam"
)
)

;; Dont't save information on killed groups to speed up Gnus startup
(setq gnus-save-killed-list nil)

;; Automatically enabling topic mode (hierarchical display of groups)
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(setq gnus-group-line-format "%P%M%S%5y %(%G%) (Total: %t)\n")

;; Usually the groups are larger than the default 200 articles, so
;; don't ask until it exceeds 400 articles.
(setq gnus-large-newsgroup 400)

;; Footnote wird mit C-C !-a aufgerufen
(autoload 'footnote-mode "footnote" nil t)
(add-hook 'message-mode-hook 'footnote-mode)

;;Threads verstecken
(add-hook 'gnus-summary-prepare-hook 'gnus-summary-hide-all-threads)
;;
(setq gnus-thread-ignore-subject t)

(setq gnus-topic-line-format "%i %A: %(%{%n%}%) %v\n")

;; use gnus-junk.el (http://stud2.tuwien.ac.at/~e9426626/gnus-junk.html)
;;
(autoload 'gnus-junk-complain "gnus-junk" "(not loaded yet)" t)
(add-hook 'gnus-sum-load-hook (lambda nil
(define-key gnus-summary-mode-map [(?$)]

Gnus (X)Emacs