From xemacs-m  Fri Feb 14 03:45:07 1997
Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2])
	by xemacs.org (8.8.5/8.8.5) with SMTP id DAA16013
	for <xemacs-beta@xemacs.org>; Fri, 14 Feb 1997 03:45:04 -0600 (CST)
Received: from proletcult.slip.ifi.uio.no (root@xyplex21.uio.no [129.240.154.41]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <KAA19375@ifi.uio.no> for <xemacs-beta@xemacs.org> ; Fri, 14 Feb 1997 10:44:52 +0100
Received: (from larsi@localhost) by proletcult.slip.ifi.uio.no (8.8.2/8.8.2) id JAA26155; Fri, 14 Feb 1997 09:46:47 +0100
Sender: larsi@proletcult.slip.ifi.uio.no
To: xemacs-beta@xemacs.org
Subject: Re: .xemacs-options gripe
References: <yvtbu9stk18.fsf@corona.pixar.com> 	<kigu3nk9vg3.fsf@jagor.srce.hr> 	<m2afpcuvac.fsf@altair.xemacs.org> 	<yvt20aotcff.fsf@corona.pixar.com> 	<m2rain7qn6.fsf@altair.xemacs.org> 	<m2d8u77qi4.fsf@proletcult.slip.ifi.uio.no> <199702140327.TAA06933@xemacs.eng.sun.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
From: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
Date: 14 Feb 1997 09:46:38 +0100
In-Reply-To: Martin Buchholz's message of Thu, 13 Feb 1997 19:27:16 -0800
Message-ID: <m2iv3v7p1t.fsf@proletcult.slip.ifi.uio.no>
Lines: 235
X-Mailer: Gnus v5.4.13/Emacs 19.34
X-Face: &w!^oO<W.WBH]FsTP:P0f9X6M-ygaADlA_)eF$<UwQzj7:C=Gi<a?/_4$LX^@$Qq7-O&XHp
 lDARi8e8iT<(A$LWAZD*xjk^')/wI5nG;1cNB>~dS|}-P0~ge{$c!h\<y

Martin Buchholz <mrb@Eng.Sun.COM> writes:

> Lars> A man's .gnus file is his own business.  :-)
> 
> Like the leader of a nation, you (Lars) are no longer a private
> citizen.  All the sordid personal details of your dot files are
> now matters of public interest.

Aw, shucks!

> Lars> No, really, there's nothing exciting there.  Gnus does what I want it
> Lars> to by default.  :-)
> 
> I was once curious what RMS had in his .emacs.  Just like Lars and
> Gnus, he made Emacs do what he wanted, so the .emacs had nothing
> interesting in it, just some personal abbrevs.  In particular, the
> function and arrow keys were unbound, since RMS never used them.

I had a peek at my .gnus.el file, and it was actually rather big.
Most of the settings just set the variables to their default values,
so I guess I had most of that for testing purposes.  After cleaning
those out, there was still quite a lot of...  stuff.  So here it is,
for those who are morbidly curious:

(require 'cl)

(setq gnus-last-shell-command "patch --force -d ~/rgnus/lisp")

(setq gnus-summary-prepare-exit-hook nil)

(setq gnus-check-new-newsgroups 'ask-server)

(setq gnus-visible-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^X-Newsreader:\\|^X-Mailer:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:")

(add-hook 'gnus-group-mode-hook 
	  (lambda () 
	    (local-set-key "\C-cs" 
			   (lambda ()
			     (interactive)
			     (nntp-close-server)))))

(setq nnmail-split-methods
  '(("4ad" "^Sender: +4ad record")
    ("idm" "^Sender: +\\(owner-idm\\|idm-owner\\)")
    ("subbacultcha" "^\\(Sender\\|To\\|Cc\\):.*subbacultcha")
    ("meatbeat" "^\\(Sender\\|To\\|Cc\\):.*zombies@")
    ("ding-request" "^To:.*ding-request")
    ;;("ding-bounces" "^From MAILER-DAEMON")
    ("ding" "^\\(To\\|Cc\\):.*\\bding@")
    ("ietf.nntp" "^\\(To\\|Cc\\):.*ietf-nntp@")
    ("xemacs" "^\\(To\\|[cC]c\\):.*xemacs-beta.*@")
    ("lackey" "^Sender: mercedes-lackey@")
    ("nordenstam" "^\\(To\\|Cc\\):.*life-on-earth-is-a-dream@")
    ("sanemail" "^\\(To\\|Cc\\):.*sanemail")
    ("gnus-bug" "^\\(To\\|From\\|Cc\\):.*gnus-bug@")
    ("is" "^\\(To\\|Cc\\):\\(\\([ \t]*is\\b\\)\\|is@ifi\\)")
    ("www-stats" "^From: World Wide Web <www>")
    ("emacs" "^\\(To\\|Cc\\):.*rms@")
    ("efs" "^\\(To\\|Cc\\):.*efs[-@]")
    ("spam" "^\\(To\\|Cc\\):.*larsi@trym.ifi.uio.no")
    ("mailnews" "^\\(To\\|Cc\\):.*mailnews-l")
    ("custom" "^\\(Sender\\|To\\|Cc\\):.*custom@")
    ("ei18n" "^X-Loop: +ei18n@riker.miranova.com")
    ("pure-impure" "^Reply-To: ctip@dhar")
    ("nagnagnag" "^\\(To\\|[cC]c\\):.*nagnagnag@")
    ("livonia" "^\\(To\\|[cC]c\\):.*livonia@")
    ("arm" "^\\(To\\|[cC]c\\):.*arm@pvv.ntnu.no@")
    ("junk" "^From:.*igg@his\\|From:.*<ijk>\\|From:.*Peter.Cigehn@\\|^From:.*L-Soft list server\\|^Sender: +owner-altaccess@\\|^From:.*luna@bluemarble.net>")
    ("salg" "^Subject:.*til salgs")
    ("crosspost" "^Subject:.*(crosspost notification)")
    ("moderation-test" "^Subject: Moderasjons-test")
    ("test" "^Subject: This is a Gnus test from Lars$")
    ("misc" "")
    ))

(setq gnus-secondary-select-methods 
      '((nnml "")
	;;(nnsoup "")
	))

(setq gnus-activate-foreign-newsgroups 2)

(add-hook 'nnmail-read-incoming-hook 
	  (lambda () 
	    (start-process "mailsend" nil 
			   "/local/bin/mailsend" "read" "mbox")))

(setq gnus-expert-user t)

(setq gnus-summary-goto-unread nil)
(setq gnus-thread-ignore-subject t)
(setq grouplens-pseudonym "eyesore")
(setq gnus-single-article-buffer nil)

(setq gnus-message-archive-group
      '((concat "sent." 
		(if (fboundp 'format-time-string)
		    (format-time-string 
		     "%Yw%U" (current-time))
		  "xemacs"))))

(add-hook 'gnus-summary-mode-hook 'lars-setup-group)
(defun lars-setup-group ()
  (local-set-key "c" (lambda ()
		       (interactive)
		       (gnus-summary-catchup-and-exit)
		       (discard-input))))

(setq gnus-article-display-hook
      '(gnus-article-hide-headers-if-wanted 
	gnus-article-date-lapsed
	gnus-article-hide-pgp
	gnus-article-hide-boring-headers
	gnus-article-treat-overstrike
	gnus-article-de-quoted-unreadable
	gnus-article-strip-leading-blank-lines
	gnus-article-remove-trailing-blank-lines
	gnus-article-strip-multiple-blank-lines
	gnus-article-highlight
	gnus-article-emphasize))

(when (string-match "XEmacs" emacs-version)
  (add-hook 'gnus-article-display-hook 'gnus-article-display-x-face t)
  (add-hook 'gnus-article-display-hook 'gnus-smiley-display t))

(setq nnmail-delete-incoming nil)

(gnus-add-configuration
 '(article
   (cond 
    (gnus-use-trees
     '(vertical 1.0
		(summary 0.25 point)
		(tree 0.25)
		(article 1.0)))
    (t
     '(vertical 1.0
		(summary 0.25 point)
		(if gnus-carpal '(summary-carpal 4))
		(if gnus-use-trees '(tree 0.25))
		(article 1.0))))))

(setq gnus-auto-select-next 'quietly)
(setq gnus-suppress-duplicates t)
(setq gnus-save-duplicate-list t)

(defun xface-insert ()
  (nnheader-temp-write nil
    (insert-file-contents "~/.xface")
    (buffer-string)))

(require 'message)
(setq message-required-news-headers
      (nconc message-required-news-headers
	     (list '(X-Face . xface-insert))))
(setq message-required-mail-headers
      (nconc message-required-mail-headers
	     (list '(X-Face . xface-insert))))

(setq gnus-home-score-file 'gnus-hierarchial-home-score-file)
(setq gnus-nocem-groups '("alt.nocem.misc"))
(setq gnus-uu-tmp-dir "~/tmp/tmp/tmp/")

;(setq gnus-moderated-groups "nnml:moderation-test\\|uio.test")
;(add-hook 'gnus-summary-mode-hook 'gnus-moderate)

(setq gnus-default-directory "~/rgnus/lisp/")
(setq smiley-regexp-alist 'smiley-nosey-regexp-alist)
(setq nnmail-default-file-modes (default-file-modes))

(setq nnmail-spool-file '("/home/larsi/Mail/in.coming/"
			  "/usr/spool/mail/larsi"))
(setq message-default-news-headers
      "From: Lars Magne Ingebrigtsen <larsi@trym.ifi.uio.no>\n")
;(setq nnmail-movemail-program "movemail")
(setq nnmail-movemail-program "/bin/mv")

(setq gnus-read-active-file 'some)

(add-hook 'nnmail-prepare-incoming-header-hook 'nnmail-remove-list-identifiers)
(setq nnmail-list-identifiers '("(idm)" "nagnagnag" "ietf-nntp"))

(setq gnus-mode-non-string-length 45)

(defun lars-xmas-set-faces-font ()
  "Set the font of all faces in the buffer to one font."
  (let ((faces (face-list))
	(font 
	 ;;"-adobe-new century schoolbook-medium-r-normal--14-140-75-75-p-82-iso8859-1"
	 "-adobe-new century schoolbook-medium-r-normal--18-180-75-75-p-104-iso8859-1"
	 ;;"-adobe-times-medium-r-normal--18-180-75-75-p-98-iso8859-1"
	 )
	face props)
    (while (setq face (pop faces))
      (setq props (font-properties (face-font face)))
      (cond
       ((equal (downcase (or (cdr (assq 'WEIGHT_NAME props)) "")) "bold")
	(set-face-font 
	 face 
	 (if (equal (downcase (or (cdr (assq 'SLANT props)) "")) "i")
"-adobe-times-bold-i-normal--18-180-75-75-p-98-iso8859-1"
"-adobe-times-bold-r-normal--18-180-75-75-p-98-iso8859-1"
)
	 (current-buffer)))
       (t
	(set-face-font 
	 face 
	 (if (equal (downcase (or (cdr (assq 'SLANT props)) "")) "i")
"-adobe-times-medium-i-normal--18-180-75-75-p-98-iso8859-1"
"-adobe-times-medium-r-normal--18-180-75-75-p-98-iso8859-1"
)
	 (current-buffer)))))))

(when (string-match "XEmacs" emacs-version)
  (add-hook 'gnus-article-mode-hook 'lars-xmas-set-faces-font)
  (setq gnus-single-article-buffer t)

  (when nil
  (when (>= emacs-major-version 20)
    (setq gnus-show-mime t
	  gnus-show-mime-method 'gnus-article-preview-mime-message
	  gnus-decode-encoded-word-method 'gnus-article-decode-encoded-word
	  gnus-parse-headers-hook
	  '(gnus-set-summary-default-charset gnus-decode-rfc1522))
    (require 'gnus-mime))))

(setq gnus-xmas-force-redisplay nil)

;(add-hook 'gnus-summary-mode-hook 'gnus-pick-mode)

(setq message-post-method '(nntp "proletcult"))

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Ingebrigtsen

