From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/34765 Path: main.gmane.org!not-for-mail From: Chris Green Newsgroups: gmane.emacs.gnus.general Subject: Re: problem triggered by gnus Date: 13 Feb 2001 09:48:39 -0600 Sender: owner-ding@hpc.uh.edu Message-ID: References: <5br913k6qq.fsf@avocet.cs.rochester.edu> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035170628 31993 80.91.224.250 (21 Oct 2002 03:23:48 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:23:48 +0000 (UTC) Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by mailhost.sclp.com (Postfix) with ESMTP id D6D8DD049D for ; Tue, 13 Feb 2001 10:50:04 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by karazm.math.uh.edu (8.9.3/8.9.3) with ESMTP id JAC01477; Tue, 13 Feb 2001 09:49:08 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 13 Feb 2001 09:48:27 -0600 (CST) Original-Received: from mailhost.sclp.com (postfix@66-209.196.61.interliant.com [209.196.61.66] (may be forged)) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id JAA28121 for ; Tue, 13 Feb 2001 09:48:10 -0600 (CST) Original-Received: from phosphorus.tucc.uab.edu (phosphorus.tucc.uab.edu [138.26.15.220]) by mailhost.sclp.com (Postfix) with SMTP id D632DD049D for ; Tue, 13 Feb 2001 10:48:41 -0500 (EST) Original-Received: (qmail 822 invoked by uid 501); 13 Feb 2001 15:48:40 -0000 Original-To: ding@gnus.org In-Reply-To: <5br913k6qq.fsf@avocet.cs.rochester.edu> (ShengHuo ZHU's message of "12 Feb 2001 15:04:45 -0500") User-Agent: Gnus/5.090001 (Oort Gnus v0.01) XEmacs/21.1 (Cuyahoga Valley) Precedence: list X-Majordomo: 1.94.jlt7 Original-Lines: 184 Xref: main.gmane.org gmane.emacs.gnus.general:34765 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:34765 ShengHuo ZHU writes: > Do you put something special in .gnus? > > ShengHuo ;; -*- Mode: Emacs-Lisp -*- ;; $Id: .gnus,v 1.35 2001/02/09 15:44:51 sprout Exp $ merging UAB and Home mail spools.. ;; (setq gnus-read-active-file 'some) ; (or even nil) ;; (setq gnus-asynchronous t) (setq gnus-check-new-newsgroups 'ask-server) (copy-face 'bold 'gnus-group-mail-1-face) (set-face-foreground 'gnus-group-mail-1-face "mediumblue") (copy-face 'default 'gnus-group-mail-1-empty-face) (set-face-foreground 'gnus-group-mail-1-empty-face "mediumblue") (copy-face 'bold 'gnus-group-mail-2-face) (set-face-foreground 'gnus-group-mail-2-face "steelblue") (copy-face 'default 'gnus-group-mail-2-empty-face) (set-face-foreground 'gnus-group-mail-2-empty-face "steelblue") ;; random sig files... (add-hook 'gnus-message-setup-hook 'random-signature-fun) (setq nnfolder-directory "~/Mail/" nnmail-delete-incoming t nntp-connection-timeout 5 gnus-read-active-file 'some ;; gnus-read-active-file t message-user-organization "cmg gadgets and widgets" message-default-headers "Fcc: ~/mail/outbox.spool\n" enable-multibyte-characters nil gnus-treat-display-smileys nil gnus-button-url 'browse-url-netscape browse-url-browser-function 'browse-url-netscape gnus-unbuttonized-mime-types nil) (setq gnus-posting-styles '((".*" (address "cmg@uab.edu") (name "Chris Green")))) (setq mail-sources '((file) (directory :path (expand-file-name "~/mail/") :suffix ".spool"))) (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) (let ((s (getenv "HOSTNAME"))) (if (or (string-match "\\.tucc.uab.edu" s) (string-match "phosphorus.dok.org" s)) ;; uab machines ((lambda() (setq gnus-select-method '(nntp "sonofmaze.dpo.uab.edu") nnmail-split-methods '(("redhat-annouce" "^To:.*redhat-announce-list@redhat.com") ("bugtraq" "^To:.*BUGTRAQ@NETSPACE.ORG") ("windowmaker" "^Delivered-To:.*majordom-wmaker@rim.caldera.com") ("windowmaker" "^X-Mailing-List:.*wm-user") ("bugtraq" "^Sender:.*BUGTRAQ@netspace.org") ("digimoe" "^Sender:.*owner-digimoe@rift.com") ("nfr" "^Sender:.*owner-nfr-users@nfr.net") ("mail.root" "^To:.*root@*") ("mail.status.frasier" "^From:.*frasier@frasier.dpo.uab.edu") ("redhat-annouce" "^To:.*redhat-announce-list@redhat.com") ("bugtraq" "^To:.*BUGTRAQ@NETSPACE.ORG") ("mail.jess" "^From.*jlhubbs@yahoo.com") ("mail.jess" "^From.*hubjl1*") ("mail.jess" "^From.*HUBJL1*") ("windowmaker" "^Delivered-To:.*majordom-wmaker@rim.caldera.com") ("windowmaker" "^X-Mailing-List:.*wm-user") ("mail.myself" "^From.*grapeape@norm.dpo.uab.edu") ("mail.myself" "^From.*cmg@dok.org") ("bugtraq" "^Sender:.*BUGTRAQ@netspace.org") ("digimoe" "^Sender:.*owner-digimoe@rift.com") ("nfr" "^Sender:.*owner-nfr-users@nfr.net") ("balu" "^X-From-Line:.*owner-balu@majordomo.scott.net") ("mail.root" "^From:.*root@.*dok.org") ;; ("mail.crazy" "^Subject:.*die\\|^Organization:.*flabby") ("mail.inbox" "")) gnus-total-expirable-newsgroups "status\\|uab.us\\|mail.root\\|mail.status\\|disco\\|etree\\|bugtraq\\|openbsd\\|xemacs-beta\\|linux-security\\|windowmaker\\|redhat-annouce\\|gtk-list\\|UCE\\|mandrake\\|postgres\\|openssh\\|security-audit\\|pygtk\\|mrtg"))) ((lambda () (setq gnus-select-method '(nntp "news.hoover1.al.home.com")))))) (defun message-send-and-exit-with-prefix () "Call the message-send-and-exit function with a positive number argument to make it post the message on the foreign NNTP server of a group, instead of the default NNTP server" (interactive) (message-send-and-exit 1)) (load "gnus-setup.el") (add-hook 'message-setup-hook (lambda () (local-set-key "\C-c\C-c" 'message-send-and-exit-with-prefix))) (add-hook 'message-mode-hook 'auto-fill-mode) ;;(autoload 'bbdb/gnus-lines-and-from "bbdb-gnus") ;;(setq gnus-optional-headers 'bbdb/gnus-lines-and-from) ;; (setq bbdb/gnus-mark-known-posters t) ;;(setq bbdb/gnus-mark-known-posters nil) (copy-face 'default 'gnus-cite-face-5) (set-face-foreground 'font-lock-other-type-face "darkblue") (copy-face 'default 'gnus-cite-face-5) (set-face-foreground 'font-lock-other-type-face "darkgreen") (setq mm-discouraged-alternatives '("text/html" "text/richtext")) (setq mm-automatic-display (delete "text/html" mm-automatic-display)) (defun gnus-group-make-web-group (&optional solid) "Create an ephemeral nnweb group. If SOLID (the prefix), create a solid group." (interactive "P") (require 'nnweb) (let* ((group (if solid (gnus-read-group "Group name: ") (message-unique-id))) (default-type (if (string-match "" (or (car gnus-group-web-type-history) (symbol-name (car (car nnweb-type-definition))))) "dejanews")) (type (gnus-string-or (completing-read (format "Search engine type (default %s): " default-type) (mapcar (lambda (elem) (list (symbol-name (car elem)))) nnweb-type-definition) nil t nil 'gnus-group-web-type-history) default-type)) (search (read-string "Search string: " (cons (or (car gnus-group-web-search-history) "") 0) 'gnus-group-web-search-history)) (method `(nnweb ,group (nnweb-search ,search) (nnweb-type ,(intern type)) (nnweb-ephemeral-p t)))) (if solid (gnus-group-make-group group "nnweb" "" `(,(intern type) ,search)) (gnus-group-read-ephemeral-group group method t (cons (current-buffer) (if (eq major-mode 'gnus-summary-mode) 'summary 'group)))))) ;; From: Ingo Ruhnke (defun my-gnus-summary-show-thread () "Show thread without changing cursor positon." (interactive) (gnus-summary-show-thread) (beginning-of-line) (forward-char 1)) (define-key gnus-summary-mode-map [(right)] 'my-gnus-summary-show-thread) (define-key gnus-summary-mode-map [(left)] 'gnus-summary-hide-thread) (setq gnus-thread-hide-subtree nil) (load-library "mailcrypt") (mc-setversion "gpg") (setq mc-passwd-timeout 600) (setq mail-source-delete-incoming t) (setq mml2015-use 'mailcrypt) (setq mml-default-sign-method "pgpmime") -- Chris Green Let not the sands of time get in your lunch.