;;; .gnus.5.8.el --- 

;; Copyright (C) 1999 Sebastien Tanguy
;;

(setq 
 gnus-novice-user nil
  ;; Me demande pas pour sortir
 gnus-interactive-exit nil
 ;; don't confirm catchup
 gnus-interactive-catchup nil
 gnus-large-newsgroup 500
 ;; **************
 ;; PGnus n'utilise plus le gnus-article-display-hook
 ;; mais différentes variables.
 ;; Hide the signature
 gnus-treat-hide-signature nil
 ;; Add buttons
 gnus-treat-buttonize t
 ;; Add buttons to the head
 gnus-treat-buttonize-head 'head
 ;; Emphasize text
 gnus-treat-emphasize t
 ;; Fill the article
; gnus-treat-fill-article 'last
 ;; Remove carriage returns
 gnus-treat-strip-cr 'last
 ;; Hide headers
 gnus-treat-hide-headers 'head
 ;; Hide boring headers
 gnus-treat-hide-boring-headers 'head
 ;; Hide the signature
 gnus-treat-hide-signature nil
 ;; Hide cited text
 gnus-treat-hide-citation nil
 ;; Strip PGP signatures
 gnus-treat-strip-pgp 'last
 ;; Strip PEM signatures
 gnus-treat-strip-pem 'last
 ;; Highlight the headers
 gnus-treat-highlight-headers 'head
 ;; Highlight cited text
 gnus-treat-highlight-citation 'last
 ;; Highlight the signature
 gnus-treat-highlight-signature 'last
 ;; Display the Date in UT (GMT)
 gnus-treat-date-ut nil
 ;; Display the Date in the local timezone
 gnus-treat-date-local nil
 ;; Display the Date header in a way that says how much time has elapsed
 gnus-treat-date-lapsed 'head
 ;; Display the date in the original timezone
 gnus-treat-date-original nil
 ;; Strip trailing blank lines
 gnus-treat-strip-trailing-blank-lines 'last
 ;; Strip leading blank lines
 gnus-treat-strip-leading-blank-lines 'last
 ;; Strip multiple blank lines
 gnus-treat-strip-multiple-blank-lines 'last
 ;; Strip all blank lines
 gnus-treat-strip-blank-lines nil
 ;; Treat overstrike highlighting
 gnus-treat-overstrike 'last
 gnus-group-line-format
 "%M%S%p%5y: %(%~(pad-right 40)g  Last read on %6,6~(cut 2)d%)\n"
 ;; gnus-summary-mode-line-format "%V  %p [%A] %Z"
 ;; gnus-summary-line-format "%U%R%z%6N%I%(%[%-14,14n%]%) %e%s\n"
 gnus-topic-line-format "%i[%{ %n %}(%A / %g )%{]%} %v\n"
 )

(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)


;;
;; J'aime bien conserver des archives de mes envois.
;;
(setq gnus-message-archive-method
      '(nnfolder "archive"
		 (nnfolder-inhibit-expiry t)))

(setq gnus-message-archive-group
      '((if (message-news-p)
	    "sent-news"
	  "sent-mail")))


(custom-set-variables
 '(message-default-headers my-message-default-headers)
)

;; On garde les threads en un seul morceau meme si le sujet change
(setq gnus-gather-loose-threads t)
(setq gnus-thread-ignore-subject t)
(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:\\|^Approved:\\|^User-Agent:")



;; tout ça pour une signature...
(setq seb-sig-dir-base (expand-file-name "~/.sigs-"))

(setq message-signature t)

      

(setq gnus-posting-styles
      '((".*"
	 (signature-file (je-signe "en")))
	("^nn.+:lug"
	 (signature-file (je-signe "lug"))
;	 (signature-file (je-signe "fr"))
	 )
	("^fr.*"
	 (signature-file (je-signe "fr")))
	("^fr.misc.bavardages.*"
	 ("Approved" "eloignez les drosophiles !"))
	("^alt.sysadmin.recovery"
	 ("Approved" "probably"))
	))

;; scoring on
(setq gnus-use-scoring t)
;; On vire les articles qui sont vraiment trop mauvais
(setq gnus-summary-expunge-below -500)

;; On garde les scores tant qu'ils servent a quelque chose
(setq gnus-update-score-entry-dates t)

;; Le scoring adaptif
(setq gnus-summary-mark-below -300)
(setq gnus-use-adaptive-scoring t)
(defvar gnus-default-adaptive-score-alist
  '((gnus-unread-mark)
    (gnus-ticked-mark (from 4))
    (gnus-dormant-mark (from 5))
    (gnus-del-mark (from -5) (subject -2))
    (gnus-read-mark (from 1) (subject 1))
    (gnus-expirable-mark)
    (gnus-killed-mark (from -1) (subject -3))
    (gnus-kill-file-mark)
    (gnus-ancient-mark (subject -1))
    (gnus-low-score-mark (subject -3) (from -2))
    (gnus-catchup-mark (from -1) (subject -1))))

;; On zappe les scores trop faibles dans le summary buffer
(setq gnus-summary-zcore-fuzz 100)


(setq gnus-select-method '(nntp "news.wanadoo.fr"))

;; mail


;; nnfolder
(setq 
 gnus-secondary-select-methods '((nnfolder ""))
 nnfolder-directory "~/.gnus.mail/"
 nnfolder-active-file (expand-file-name "~/News/nnfolder.active")
 nnfolder-newsgroups-file (expand-file-name "~/News/nnfolder.newsgroups")
 gnus-permanently-visible-groups "^nnfolder"
;; On ne recupere pas le courrier, on laisse faire fetchmail
;; Les mailbox ont le meme nom dans les deux repertoires
; nnmail-procmail-suffix ""
;(setq nnmail-procmail-directory "~/.gnus.in/")
 mail-sources
 '((directory :path "~/.gnus.in/"
              :suffix ""))

;;; Control who can get incoming mail
; nnfolder-get-new-mail t
; nnmh-get-new-mail nil
; nnml-get-new-mail nil
; nnbabyl-get-new-mail nil
; rmail-spool-file nil
; nnmail-spool-file nil
)





;; Quelques outils

(require 'mm-util)
;*================================
;;* Decode RFC2047-encoded words in the article headers
;;*================================
(setq  gnus-article-decode-mime-words t)
(setq gnus-mime-view-all-parts t)
(setq gnus-ignored-mime-types
      '("text/x-vcard"))
(require 'balloon-help)

(autoload 'message-mark-inserted-region "message-utils" nil t)
(autoload 'message-mark-insert-file "message-utils" nil t)
(autoload 'message-strip-subject-was "message-utils" nil t)
(autoload 'message-change-subject "message-utils" nil t)
(autoload 'message-xpost-fup2 "message-utils" nil t)
(autoload 'message-add-archieve-header "message-utils" nil t)
;;;; Key bindings :
;; (define-key message-mode-map '[(control c) m] 'message-mark-inserted-region)
;; (define-key message-mode-map '[(control c) f] 'message-mark-insert-file)
;; (define-key message-mode-map '[(control c) x] 'message-xpost-fup2)
;; (define-key message-mode-map '[(control c) s] 'message-change-subject)
;; (define-key message-mode-map '[(control c) a] 'message-archieve-header)

;; (add-hook 'message-header-setup-hook 'message-strip-subject-was)
(defun message-utils-setup ()
  "Add menu-entries for message-utils."
  (easy-menu-add-item nil '("Message")
		      ["Insert Region Marked" 
		       message-mark-inserted-region t] "Spellcheck")
  (easy-menu-add-item nil '("Message")
		      ["Insert File Marked" 
		       message-mark-insert-file t] "Spellcheck")
  (easy-menu-add-item nil '("Field")
		      ["Crosspost / Followup" 
		       message-xpost-fup2 t] "----")
  (easy-menu-add-item nil '("Field")
   ["New Subject" message-mark-inserted-region t] "----")
  (easy-menu-add-item nil '("Field")
		      [ "X-No-Archieve:" 
			message-mark-inserted-region t ]))
(add-hook 'message-mode-hook 'message-utils-setup)

;; Pour avoir les heures qui défilent dans les dates de messages
(gnus-start-date-timer)

;; moi aussi j'aime savoir ce qu'on me répond
(add-hook 'message-sent-hook 'gnus-score-followup-article)
(add-hook 'message-sent-hook 'gnus-score-followup-thread)
;; hortografe
(add-hook 'message-send-hook 'ispell-message)


(setq mm-body-charset-encoding-alist (quote 8bit))
(setq message-default-charset (quote iso-8859-1))



;;; .gnus.5-8-3.el ends here