+(eval-when-compile
+  (require 'gnus)
+  (require 'nnheader))
+
 ;; Personal Settings
-(setq gnus-ignored-from-addresses 
-      (regexp-opt 
+(setq gnus-ignored-from-addresses
+      (regexp-opt
        `(,user-mail-address "mlists@pmade.com" "suv8@pmade.org")))
 
 ;; Various Settings

(add-hook 'gnus-group-mode-hook   'pmade-gnus-index-hook)
(add-hook 'gnus-summary-mode-hook 'pmade-gnus-index-hook)

;; ;; Window Layout
;; (gnus-add-configuration
;;  '(article
;;    (horizontal 1.0
;; 	       (vertical 0.35
;; 			 (group 1.0))
;; 	       (vertical 1.0
;; 			 (summary 0.25 point)
;; 			 (article 1.0)))))
;; (gnus-add-configuration
;;  '(summary
;;    (horizontal 1.0
;; 	       (vertical 0.35
;; 			 (group 1.0))
;; 	       (vertical 1.0
;; 			 (summary 1.0 point)))))

;; User Format Functions
(defun gnus-user-format-function-d (header)
  "Display group and article dates in an easy to read format."

     (header (setq date (gnus-date-get-time (mail-header-date header))))
     (t      (setq date (gnus-group-timestamp gnus-tmp-group))))
    (if date (format-time-string "%a %b %d, %Y %R" date) "")))

