;; -*- emacs-lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; $Id: gnus_testing.el,v 1.16 2003/05/11 16:40:33 rscholz Exp $ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Testing ;; ;; Die offizielle Quelle dieser Datei ist ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; X-PGP-SIG ;; http://my.gnus.org/Docs/Contrib/x-pgp-sig-README ;; (add-to-list 'load-path (concat rs-elisp-dir "x-pgp-sig")) ;; (autoload 'x-pgp-sig-sign "x-pgp-sig" nil t) ;; (autoload 'x-pgp-sig-set-signer "x-pgp-sig" nil t) ;; (autoload 'x-pgp-sig-set-signer-maybe "x-pgp-sig" nil t) ;; (autoload 'x-pgp-sig-verify "x-pgp-sig" nil t) ;; (setq x-pgp-sig-sign-fields '("Subject" "Control" "Message-ID" "Date" "From")) ;; (setq x-pgp-sig-always-sign nil) ;; (add-hook 'message-header-hook 'x-pgp-sig-sign t) ;(setq x-pgp-sig-default-signer "F0311FD8") ;(setq x-pgp-sig-secring "/home/rscholz/.gnupg/secring.gpg") ;; automatisch Mail abholen / expiren (gnus-demon-add-handler 'gnus-group-expire-all-groups 90 60) ;(gnus-demon-add-handler 'gnus-demon-scan-mail 90 60) ;; From: Marcus Frings ;; Subject: Re: gnus-demon-scan-mail problems ;; Newsgroups: gnu.emacs.gnus ;; Date: Mon Jun 16 21:24:38 2003 +0200 ;; Organization: Schismatrix ;; X-Sent: 2 weeks, 5 days, 20 hours, 46 minutes ago ;; Message-ID: ;; Reply-To: protagonist@gmx.net ;; Mail-Copies-To: never ;; User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3 (gnu/linux) ;; (setq gnus-use-demon t) ;; (defun gnus-demon-scan-news () ;; (when (gnus-alive-p) ;; (save-excursion ;; (set-buffer gnus-group-buffer) ;; (gnus-group-get-new-news)) ;; ) ;; ) ;; (defun gnus-demon-scan-mail () ;; (when (and (gnus-alive-p) mail-here) ;; (save-excursion ;; (set-buffer gnus-group-buffer) ;; (gnus-group-get-new-news 3) ;; ) ;; ) ;; ) ;; (gnus-demon-add-handler 'gnus-demon-scan-news 5 10) ;; (gnus-demon-init) (defun message-unique-id () ;; Don't use microseconds from (current-time), they may be unsupported. ;; Instead we use this randomly inited counter. (setq message-unique-id-char (% (1+ (or message-unique-id-char (logand (random t) (1- (lsh 1 20))))) ;; (current-time) returns 16-bit ints, ;; and 2^16*25 just fits into 4 digits i base 36. (* 25 25))) (let ((tm (current-time))) (concat (if (memq system-type '(ms-dos emx vax-vms)) (let ((user (downcase (user-login-name)))) (while (string-match "[^a-z0-9_]" user) (aset user (match-beginning 0) ?_)) user) (message-number-base36 (user-uid) -1)) (message-number-base36 (+ (car tm) (lsh (% message-unique-id-char 25) 16)) 4) (message-number-base36 (+ (nth 1 tm) (lsh (/ message-unique-id-char 25) 16)) 4)))) (setq gnus-registry-max-entries 20000) ;(setq nnmail-expiry-target 'nnmail-fancy-expiry-target ; nnmail-fancy-expiry-targets ; '( ; ("" (eval (concat gnus-news-group-name ".%Y")) ; ("" "nnfolder:Work") ; ("subject" "IMPORTANT" "nnfolder:IMPORTANT.%Y.%b") ; ("from" ".*" "nnfolder:Archive-%Y"))) ;;;;;;;;;;;;;;;;;; START GNUS SUMMARY ; gnus-face-1 (copy-face 'default 'mysubject) ;(set-face-font 'mysubject "Verdana:Regular:8") (setq gnus-face-1 'mysubject) ;gnus-face-2 (copy-face 'default 'mytime) ;(set-face-font 'mytime "HE_Terminal:Regular:7") (set-face-foreground 'mytime "indianred4") (setq gnus-face-2 'mytime) ;gnus-face-3 ;(copy-face 'ct-face1 'mythreads) (copy-face 'default 'mythreads) (set-face-foreground 'mythreads "indianred4") (setq gnus-face-3 'mythreads) ;gnus-face-4 (copy-face 'default 'mygrey) (set-face-foreground 'mygrey "grey") ;(set-face-font 'mygrey "HE_Terminal_Gnus:Regular:8") (setq gnus-face-4 'mygrey) ;gnus-face-5 (copy-face 'default 'myblack) (set-face-foreground 'myblack "grey60") (setq gnus-face-5 'myblack) ;gnus-face-6 (copy-face 'default 'mybiggernumbers) ;(set-face-font 'mybiggernumbers "HE_Terminal:Regular:8") (set-face-foreground 'mybiggernumbers "indianred4") (setq gnus-face-6 'mybiggernumbers) (setq gnus-group-line-format "%6{%M%S%p %}%(%2{%4y%}%4{|%}%-40,40G%3O%l %4{|%}%2{%4U.%}%4{|%}%2{%3T!%}%4{|%}%2{%3I?%}%4{|%}%2{%5t%} %)%4{| %}%1{%D%}\n") ;(add-hook 'gnus-group-mode-hook ; (lambda () ; (setq header-line-format ; " C Unread|Name |New |Tick|Dorm|Total |Description"))) ;(setq gnus-topic-line-format "%4v %2{%5A %} %(%2{ ==> %-31n%)%}\n") ;;;;;;;;;;;;;;;;;; ; Summary Line (setq gnus-sum-thread-tree-root "") (setq gnus-sum-thread-tree-single-indent "") (setq gnus-sum-thread-tree-vertical "| ") (setq gnus-sum-thread-tree-indent " ") ;; 3 Leerzeichen funktioniert (setq gnus-sum-thread-tree-leaf-with-other "+-> ") (setq gnus-sum-thread-tree-single-leaf "`-> ") (setq gnus-sum-thread-tree-false-root "> ") (setq gnus-sum-thread-tree-root "") ; Darstellung von Followups ;(setq gnus-summary-same-subject ">") (setq gnus-summary-same-subject "") (setq gnus-summary-line-format (concat ; "%«%*%5{%U%R%z%}%»" ;%uc" "%*%5{%U%R%z%}" ;%uc" "%4{|%}" "%2{%-10&user-date;%}" ; Datum "%4{|%}" "%2{%u&parts;%}" ; Parts "%4{|%}" ;"%2{ %}%(%-20,20a%)" "%2{ %}%(%-24,24n" ;From/To ;"%2{ %}%1{%-20,20a%}" "%4{|%}" "%2{%5i%}" "%4{|%}" "%2{%6k %}%)" ;3t 6k "%4{|%}" "%2{ %}%3{%B%}%1{%s%}\n")) (setq gnus-build-sparse-threads 'some) (setq gnus-fetch-old-headers 'some) (require 'highline) (add-hook 'gnus-group-prepare-hook 'highline-on) (add-hook 'gnus-summary-prepare-hook 'highline-on) (set-face-background 'highline-face "grey70") (setq gnus-sum-thread-tree-root "● ") (setq gnus-sum-thread-tree-single-indent "◎ ") (setq gnus-sum-thread-tree-leaf-with-other "├─► ") (setq gnus-sum-thread-tree-vertical "│") (setq gnus-sum-thread-tree-single-leaf "╰─► ") ;;;;;;;;;;;;;;;;;; END GNUS SUMMARY ;;;;;;;;, ;(require 'gnus-propfont) ;(add-hook 'gnus-article-prepare-hook 'gpf-add-faces) ;(remove-hook 'gnus-article-prepare-hook 'gpf-add-faces) (setq gpf-line-spacing nil) ;(set-face-font 'gpf-variable-width-face "lucidasans-14") ;; (defun my-orig-date-group (name) ;; "Returns a string of the format `NAME-YYYY-MM'" ;; (concat name "-" ;; (format-time-string "%Y-%m" (date-to-time ;; (mail-fetch-field "date"))))) ;; (setq nnmail-split-fancy ;; '(| (any "root@pille\\.fhaun\\.de" (: my-date-group "System")) ;; (any "debian-\\b\\(\\w+\\)@lists.debian.org" ;; (: my-date-group "mail.debian.\\1")) ;; "misc.misc")) (setq mm-text-html-renderer 'w3m ;; Use wget instead of url.el (for nnweb-type google), seem to be more ;; reliable. mm-url-use-external t mm-url-program 'wget) ;; From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de> ; ;; Subject: Re: Leere Zeilen Quoten ;; Newsgroups: de.comm.software.gnus ;; Date: Fri Jun 20 18:18:46 2003 +0200 ;; Organization: Dept. of Theoretical Physics, University of Ulm ;; Reply-To: reiner.steib@gmx.de ;; Mail-Copies-To: nobody ;; User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3 (gnu/linux) ;; X-Sent: 1 week, 1 day, 2 hours, 38 minutes, 46 seconds ago ;; Message-ID: (defun rs-message-remove-blank-cited-lines (&optional remove) "Remove cited lines containing only blanks. If REMOVE is non-nil, remove newlines, too." ;; Idea by Karl Plästerer, ;; see ff. (interactive "P") (let ((citexp (concat "^\\(" (if (boundp 'message-yank-cited-prefix) (concat message-yank-cited-prefix "\\|")) message-yank-prefix "\\)+ *$" (if remove "\n" "")))) (gnus-message 8 "removing `%s'" citexp) (save-excursion (message-goto-body) (while (re-search-forward citexp nil t) (replace-match ""))))) ;; To use this automatically: ;(add-hook 'gnus-message-setup-hook 'rs-message-remove-blank-cited-lines) ;; From: Bill White ;; Subject: Re: Getting message details from message-sent-hook ;; Newsgroups: gnus.ding ;; Cc: ding@gnus.org ;; Date: Thu May 29 05:22:35 2003 +0200 ;; X-Sent: 4 weeks, 3 days, 11 hours, 55 minutes, 31 seconds ago ;; Message-ID: ;; User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux) (defun message-to-diary () (make-diary-entry (concat (format-time-string "%B %d, %Y %H:%M" (gnus-date-get-time (message-fetch-field "date"))) (if (message-fetch-field "newsgroups") (concat " Sent news To: " (message-fetch-field "newsgroups")) (concat " Sent mail To: " (message-fetch-field "to"))) " Subject: \"" (message-fetch-field "subject") "\"" " Message-ID: " (message-fetch-field "message-id"))) (save-buffer "diary")) ;(add-hook 'message-sent-hook 'message-to-diary) (setq mail-extr-ignore-single-names t) ;; From: sigurd@12move.de (Karl Pflästerer) ;; Subject: Re: Spoilerspace entfernen ;; Newsgroups: de.comm.software.gnus ;; Date: Mon Jun 30 17:33:21 2003 +0200 ;; Organization: Lemis World ;; X-Sent: 6 days, 1 hour, 25 minutes, 47 seconds ago ;; Message-ID: ;; User-Agent: Gnus/5.1003 (Gnus v5.10.3) Hamster/2.0.2.1 (defun* my-remove-spoilersigns-1 (&key reg mult phrase) "Remove in at least MULT lines similar matches for regexp REG. Optionally insert phrase PHRASE as indication." (save-match-data (while (not (eobp)) (re-search-forward reg nil t) (do ((line1 (match-string 0) (match-string 0)) (line2 (match-string 0) line1) (beg (point-at-bol)) (i 0 (1+ i))) ((not (equal line1 line2)) (and (>= i mult) (progn (delete-region beg (point)) (if phrase (insert phrase)) (return-from my-remove-spoilersigns-1)))) (forward-line) (re-search-forward reg nil t))))) (defun my-remove-spoilersigns (&optional mult) "Remove spoilerspace consisting of at least MULT similar signs. The default for MULT is 10. If you call the function with any prefix argument you can enter another multiplier." (interactive) (gnus-with-article-buffer (when current-prefix-arg (setq mult (read-number "Mininum number of occurences: " 'integer))) (my-remove-spoilersigns-1 :mult (or mult 10) :reg "^.*$" :phrase "[Spoilerspace entfernt]\n"))) (defvar gnus-treat-strip-spoilersigns nil "Whether spoilerspace should be stripped") (add-to-list 'gnus-treatment-function-alist (list 'gnus-treat-strip-spoilersigns 'my-remove-spoilersigns)) (defun gnus-summary-show-spoilersigns () "Show article with spoilerspace." (interactive) (let (gnus-treat-strip-spoilersigns) (gnus-summary-show-article)))