info-gnus-english
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

No color in console xemacs


From: lance
Subject: No color in console xemacs
Date: Fri, 01 Jul 2005 07:05:10 -0500
User-agent: Gnus/5.1007 (Gnus v5.10.7) XEmacs/21.4 (Jumbo Shrimp, linux)

Hi all,


I only get greyscale in xemacs in a console.  The splashscreen
has color but gnus does not.  The color formatting I use works
fine in X.



;; Information on nnimap authinfo file

;;; You will want to look at topics -- slrn doesn't have them.
;;;; This needs to be placed high up in the config file
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)

(load-library "smtpmail")
(load-library "message")
(load-library "gnus-group") ;; Needed for gnus-group-list-all-groups :P

(gnus-group-list-all-groups) ;; Show all the groups, even empty ones
(setq gnus-ignored-headers "^References:\\|^Xref:") ;; Hide boring headers
(setq message-signature-file "~/.signature")
;;;*** VIEW IMAP LOG ***
;(setq imap-log t) 


;;*** DEFINE SOME KEYS ***

(define-key gnus-group-mode-map "n" 'gnus-group-next-group)
(define-key gnus-group-mode-map "p" 'gnus-group-prev-group)
(define-key gnus-summary-mode-map [delete] 'gnus-summary-delete-article)
(define-key gnus-summary-mode-map "d" 'gnus-summary-mark-as-expirable)
(define-key gnus-summary-mode-map "D" 'gnus-summary-expire-articles-now)
(define-key gnus-summary-mode-map "s" 'gnus-summary-move-article)


;;===============================================================
;;                   Setup the BBDB stuff.
;;===============================================================
(autoload 'bbdb         "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-name    "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-net     "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-company "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-notes   "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-insinuate-gnus     "bbdb-gnus"  "Hook BBDB into GNUS")
(setq gnus-startup-hook 'bbdb-insinuate-gnus) 
(setq mail-setup-hook 'bbdb-insinuate-sendmail)
(add-hook 'message-setup-hook 'bbdb-insinuate-message)

(defun bbdb-insinuate-message ()
  "Call this function to hook BBDB into the message package."
  (define-key message-mode-map "\M-\t" 'bbdb-complete-name))
(setq bbdb-always-add-addresses t)
(setq bbdb-new-nets-always-primary 'never)
(setq bbdb-default-area-code 940)
(setq bbdb-use-pop-up t)
 ;; Prevent annoying popup on completion
(setq bbdb-completion-display-record nil)
(setq bbdb-pop-up-target-lines 4)

(copy-face 'default 'face-1)
(set-face-foreground 'face-1 "steelblue")
(setq gnus-face-1 'face-1)

(copy-face 'default 'face-2)
(set-face-foreground 'face-2 "darkgreen")
(setq gnus-face-2 'face-2)

(copy-face 'default 'face-3)
(set-face-foreground 'face-3 "dark red")
(setq gnus-face-3 'face-3)

(setq gnus-thread-indent-level 3)
(setq gnus-summary-line-format "%U%R%z: %1{%-15,15n%} %2{%d%} %3{%[%4L%]%}  
%(%I%S%)\n") 
(setq gnus-topic-line-format   "\n%i[ %(%{%n%}%) -- %A ]%v\n")
(setq gnus-group-line-format   "%M%S%3{%5y%}%1[:%] %(%2{%g%}%)\n")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Faces                     (Info-goto-node "(Gnus)Group Highlighting")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;(set-face-foreground 'gnus-group-news-1-face "CadetBlue")   
;(set-face-foreground 'gnus-group-news-1-empty-face "CadetBlue")   
;(set-face-foreground 'gnus-group-news-2-face "ForestGreen")   
;(set-face-foreground 'gnus-group-news-2-empty-face "ForestGreen")   
;(set-face-foreground 'gnus-group-news-3-face "DarkGreen")   
;(set-face-foreground 'gnus-group-news-3-empty-face "DarkGreen")   
;(set-face-foreground 'gnus-group-news-4-face "DarkOliveGreen")   
;(set-face-foreground 'gnus-group-news-4-empty-face "DarkOliveGreen")   
;(set-face-foreground 'gnus-group-news-5-face "DarkSlateGrey")   
;(set-face-foreground 'gnus-group-news-5-empty-face "DarkSlateGrey")   
;(set-face-foreground 'gnus-group-news-low-face "Black")   
;(set-face-foreground 'gnus-group-news-low-empty-face "Black")



-- 

                                Lance Hoffmeyer
                              lance@augustmail.com

-------------------------------------------------------------------------------
          The natural progress of things is for liberty to yield and
                          governments to gain ground.
                                       -
                                Thomas Jefferson


reply via email to

[Prev in Thread] Current Thread [Next in Thread]