;;;; -*- Mode: Emacs-Lisp; -*-

(setq gnus-home-directory (expand-file-name "~/Mail-News")
      gnus-directory gnus-home-directory
      gnus-article-save-directory gnus-directory)
(defconst gnus-read-newsrc-file nil)
(defconst gnus-save-newsrc-file nil)

(setq gnus-select-method 
      '(nntp "nntp.dragonflybsd.org")
      )
(add-to-list 'gnus-secondary-select-methods
	     '(nntp "news.gatech.edu"))

;; (setq gnus-secondary-select-methods
;;       '((nnimap "imap"
;; 		(nnimap-address "imap.ece.gatech.edu")
;; 		(nnimap-list-pattern ("INBOX.*"))
;; 		)
;; 	)
;;       )

;; (setq gnus-message-archive-group 
;;       '((if (message-news-p)
;; 	    nil
;; 	  (concat "nnimap+imap:INBOX.Sent-" (format-time-string "%b-%y"))
;; 	  )
;; 	)
;;       )

(defun gnus-user-format-function-d (header)
  (format-time-string
   "%b %e, %Y" (gnus-group-timestamp gnus-tmp-group)
   ))

(add-hook 'gnus-summary-mode-hook
	  (lambda()
	    (if (string-match "nnimap" gnus-newsgroup-name)
		(progn
		  (make-local-variable 'gnus-thread-sort-functions)
                  (setq gnus-thread-sort-functions 
                        '(gnus-thread-sort-by-author
                          gnus-thread-sort-by-date
                        )
		  )
	      )
	    )
	  )
)
(setq
 gnus-group-line-format
 "%M\%S\%p\%P\%5y: %(%-35,35G%) Last read %ud\n"
 gnus-summary-line-format
 "%U%R%z %6d %(%[%-14,14n%]%) (%3L): %(%>%>%>%-45,45s%)\n"
 gnus-summary-same-subject "`->"
 )

(setq
 nnimap-expunge-on-close 'ask
 )
(add-hook 'gnus-group-mode-hook
	  'gnus-topic-mode)


(cond 
 (window-system 'x
		(add-hook 'gnus-exit-gnus-hook
			  'delete-frame)
		
		)
 )

(add-hook 'message-mode-hook
          '(lambda ()
             (turn-on-auto-fill)
             (turn-on-font-lock)
	     ))


(defconst gnus-posting-styles
  '(
					; default style
    (".*"
     (name "Dheeraj Reddy")
     (address "dheeraj@ece.gatech.edu")
     (organization "ECE/GATECH")
     (signature-file ".signature")
     ("X-Attribution" "SDR")
     ("X-Operating-System" system-configuration))
    )
  )
 
(defconst gnus-visible-headers
  (concat
   "^From:\\|"
   "^To:\\|"
   "^Cc:\\|"
   "^Organization:\\|"
   "^Newsgroups:\\|"
   "^Subject:\\|"
   "^Date:\\|"
   "^Followup-To:\\|"
   "^Reply-To:\\|"
   "^X-Newsreader:\\|"
   "^X-Mailer:\\|"
   "^User-Agent:\\|"
   "^X-Operating-System:")
  )

(gnus-add-configuration
 '(article (vertical 1.0
		     (summary .33 point)
		     (article 1.0)
		     )
	   ))

(setq gnus-thread-sort-functions
      '(gnus-thread-sort-by-number
	gnus-thread-sort-by-author
	gnus-thread-sort-by-date
	gnus-thread-sort-by-subject
	)
      )
(setq nnimap-split-inbox '("INBOX"))
(setq nnimap-split-crosspost nil)
(setq nnimap-split-rule
      '(	
;	("INBOX.ns-users" "^Sender: ns-users-admin@ISI.EDU")
        ("INBOX.primary" "")
        )		
      )
(setq gnus-uncacheable-groups "^\\(nnml\\|nnimap\\)")
(setq mm-content-transfer-encoding-defaults
  '(("text/x-patch" 8bit)
    ("text/.*" qp-or-base64)
    ("message/rfc822" 8bit)
    ("application/emacs-lisp" 8bit)
    ("application/x-emacs-lisp" 8bit)
    ("application/x-patch" 8bit)
    (".*" base64)))