From: Chris Green <cmg@uab.edu>
Subject: Re: problem triggered by gnus
Date: 13 Feb 2001 09:48:39 -0600 [thread overview]
Message-ID: <m2wvaushwn.fsf@phosphorus.tucc.uab.edu> (raw)
In-Reply-To: <5br913k6qq.fsf@avocet.cs.rochester.edu> (ShengHuo ZHU's message of "12 Feb 2001 15:04:45 -0500")
ShengHuo ZHU <zsh@cs.rochester.edu> 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 <grumbel@gmx.de>
(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 <cmg@uab.edu>
Let not the sands of time get in your lunch.
next prev parent reply other threads:[~2001-02-13 15:48 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2001-02-08 15:13 Chris Green
2001-02-12 19:37 ` Chris Green
2001-02-12 20:04 ` ShengHuo ZHU
2001-02-13 15:48 ` Chris Green [this message]
2001-02-13 15:53 ` Chris Green
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2wvaushwn.fsf@phosphorus.tucc.uab.edu \
--to=cmg@uab.edu \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).