      (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) "")))
-                      
+

 gnus-read-newsrc-file nil)                                  ; don't read ~/.newsrc

;; MIME
(eval-after-load "mm-decode" 
  '(progn 
     (add-to-list 'mm-discouraged-alternatives "text/html") 
     (add-to-list 'mm-discouraged-alternatives "text/richtext"))) 

;; Apple Address Book
(require 'external-abook)
(setq external-abook-command 
      (concat "ressbo-mutt -c " pmade-gnus-etc "/ressbo.db '%s'"))

;; Checking for New Mail

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

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