xface not showing

xface not showing

["Rafael Sepúlveda"]

When I see any mail with an xface it only appears the xface header
with all the info but without the image. Is there anything missing
here?

BTW, I'm using the precompiled Debian version of Xemacs20. I supose
that is is compiled with the xface support, but I really don't know.

gnus.el:

;; -*-Lisp-*-

;;*================================
;;* Xemacs/Gnus 
;;*================================

;;*
;;* GnusWait! Try to speed up Gnus by using a .Gnus.elc/.gnus
;;*================================
(defun GnusWait! ()
  "If ~/etc/emacs/gnus/gnus.el exists and is newer than ~/etc/emacs/gnus/gnus, recompile it to
  ~/etc/emacs/gnus/gnus.elc and move the compiled version to ~/etc/emacs/gnus/gnus."
  (cond
   ((file-newer-than-file-p "~/etc/emacs/gnus/gnus.el" "~/etc/emacs/gnus/gnus")
    (let ((mode-line-format 
           "*** Gnus.el changed: RECOMPILING ... Wait. ***"))
      (yow)
      (sit-for 1)
      (byte-compile-file "~/etc/emacs/gnus/gnus.el")
      (message "Gnus recompiled --- reloading ...")
      (rename-file "~/etc/emacs/gnus/gnus.elc" "~/etc/emacs/gnus/gnus" t))
    (load "~/etc/emacs/gnus/gnus" t t t)
    ;;  (sit-for 2)
    (message "Gnus recompiled")
    )))
(GnusWait!)

;;*
;;* General data
;;*================================
(require 'message)
(setq message-do-send-housekeeping t)
(setenv "MM_CHARSET" "iso-8859-1")
(setq gnus-signature-separator
     '("^\\(--  \\|^-- *\\|________\\========*\\)$"))
;; BBDB
(require 'bbdb-gnus)
(define-key gnus-summary-mode-map "b" 'bbdb/gnus-show-sender)

;; Suppress duplicates.
(setq gnus-suppress-duplicates t
      gnus-save-duplicate-list t
      gnus-duplicate-file "~/mail/gnus.duplicates"
      nnmail-treat-duplicates 'delete
      nnmail-crosspost nil)
      
;; Fontify emphasized text
(setq gnus-expert-user t)
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(setq gnus-carpal nil
      gnus-nov-is-evil t
      gnus-large-group ' 1000
      gnus-auto-select-first nil)

(setq gnus-show-threads t)
(setq gnus-thread-hide-subtree t)

(setq gnus-article-display-hook
      '(gnus-article-display-x-face 
	gnus-article-hide-headers-if-wanted 
	gnus-article-date-lapsed
	gnus-article-hide-pgp
	gnus-article-hide-boring-headers
	gnus-article-treat-overstrike
	gnus-article-de-quoted-unreadable
	gnus-article-strip-leading-blank-lines
	gnus-article-remove-trailing-blank-lines
	gnus-article-strip-multiple-blank-lines
	gnus-article-highlight
	gnus-article-emphasize
	gnus-smiley-display
	gnus-article-highlight-citation ))

;;*
;;* Make X-Headers visible 
;;*================================
;(setq gnus-visible-headers nil)
;(setq gnus-ignored-headers
;      "^References:\\|^Xref:\\|^Message-ID\\|^Content-Type:\\|^Lines:\\|^MIME-Version:\\|^MBOX-Line\\|^Precedence\\|^Priority:\\|^Content-Transfer\\|^In-Reply-To:\\|^NNTP-Posting-Host:\\|^Approved:\\|^Path:\\|^X-MIME\\|^Return\\|^X400\\|^Status:\\|^Received.*\\|Resent.*")
(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:\\|^X-Face:")
;;*
;;* Make the x-face match the background colour
;;*================================
(set-face-background 'gnus-x-face (face-background 'default))
;; Got an xface? If not, you'll need compface.tar.gz from
;; <ftp://ftp.xemacs.org/pub/tux/xemacs/aux>
(defun xface-insert ()
  (nnheader-temp-write nil
    (insert-file-contents "~/.xface")
    (buffer-string)))
(setq message-required-news-headers
      (nconc message-required-news-headers
	     (list '(X-Face . xface-insert))))
(setq message-required-mail-headers
      (nconc message-required-mail-headers
	     (list '(X-Face . xface-insert))))
;
;(defun xface-insert ()
;  (let (xface temp-buff) 
;    (save-excursion
;      (setq temp-buff (get-buffer-create "*xface-temp*"))
;      (set-buffer temp-buff)
;      (insert-file-contents "~/.xface")
;      (setq xface (buffer-string))
;      (kill-buffer temp-buff))
;    xface))

;;*
;;* Picons
;;*=========================
(setq gnus-use-picons t
      gnus-picons-database "/usr/lib/picon")
(add-hook 'gnus-article-display-hook 'gnus-article-display-picons t)
(add-hook 'gnus-summary-prepare-hook 'gnus-group-display-picons t)
(add-hook 'gnus-article-display-hook 'gnus-picons-article-display-x-face)

;;*
;;* This is to set the font-colors in gnus
;;*=========================
(require 'gnus-cite)
(set-face-foreground 'gnus-cite-face-1 "slateblue")
(set-face-foreground 'gnus-cite-face-2 "royalblue")
(set-face-foreground 'gnus-cite-face-3 "dodgerblue")
(set-face-foreground 'gnus-cite-face-4 "skyblue")
(set-face-foreground 'gnus-cite-face-5 "lightskyblue")
;;*
;;* Stuff for the tree
;;*================================
(setq gnus-use-trees t
      gnus-generate-tree-function 'gnus-generate-horizontal-tree
      gnus-tree-minimize-window nil)
(gnus-add-configuration
 '(article
   (vertical 1.0
	     (horizontal 0.27
			 (summary 0.70 point)
			 (tree 1.0))
	     (article 1.0))))

;;*
;;* Select method
;;*================================
;;
;; Put this is the news work... :)
;;
;(setq gnus-select-method '(nntp "news.interclan.net"))
;(setq gnus-secondary-select-methods '((nnfolder "")))
;;
(setq gnus-select-method '(nnfolder ""))
(setq nnfolder-active-file "~/mail/active"
      nnfolder-directory "~/mail/")
(setq nnmail-spool-file "/var/spool/mail/rafa"
      nnmail-get-new-mail t
      nnmail-use-long-file-names t
      nnmail-message-id-cache-file "~/etc/emacs/gnus/nnmail-cache")
(setq gnus-dribble-directory "~/etc/emacs/gnus/")
(setq gnus-check-new-newsgroups nil)
(setq gnus-save-newsrc-file nil)
(setq gnus-save-killed-list nil)
(setq gnus-uncacheable-groups "^nnfolder.*")

(defun turn-off-backup ()
  (set (make-local-variable 'backup-inhibited) t))
(add-hook 'gnus-save-quick-newsrc-hook 'turn-off-backup)
(add-hook 'gnus-save-standard-newsrc-hook 'turn-off-backup)

(setq gnus-message-archive-method 
      '(nnfolder "archive"
		 (nnfolder-inhibit-expiry t)
		 (nnfolder-active-file "~/mail/sent/active")
		 (nnfolder-directory "~/mail/sent/")))
		 
(setq gnus-message-archive-group
      '(("^debian.*" "debian-sent")
	("^linux.*" "linux.net.mx-sent")
	(".*" "outbox-sent")))

;;*
;;* Split methods
;;*================================
(setq nnmail-split-methods 
      '(("Debian-announce" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*debian-announce")
	("Debian-security-announce" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*debian-security-announce")
	("Debian-news" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*debian-news")
	("Debian-changes" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*debian-changes")
	("Debian-hurd" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*debian-hurd")
	("Gnome-announce" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*gnome-announce-list")
	("Powerslave" "^To:.*root")
	("Slashdot" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*slashdot")
	("Saltillo" "^\\([Cc][Cc]\\|To\\).*slug")
	("Linux-net" "^\\([Cc][Cc]\\|To\\).*linux-net")
	("Linux-noticias" "^\\([Cc][Cc]\\|To\\).*linux-noticias")
	("Linux" "^\\([Cc][Cc]\\|To\\).*linux")
	("Miscellaneous" "")))

;;*
;;* Paths
;;*================================
(setq gnus-home-directory "~/etc/emacs/gnus"
      gnus-directory "~/mail")

(setq gnus-auto-expirable-newsgroups "Debian.*\\|Linux.*\\|Saltillo\\|Powerslave\\|Miscellaneous\\|Slashdot\\|Gnome.*")
(setq nnmail-expiry-wait-function
      (lambda (group)
	(cond ((string= group "Powerslave") 7)
;	      ((string= group "Miscellaneous") 'never)
	      ((string= group "Miscellaneous") 365)
	      ((string= group "Debian-announce") 21)
	      ((string= group "Debian-hurd") 7)
	      ((string= group "Debian-security-announce") 21)
	      ((string= group "Debian-news") 7)
	      ((string= group "Debian-changes") 7)
	      ((string= group "Gnome-announce") 21)	      
	      ((string= group "Slashdot") 7)
	      ((string= group "Saltillo") 14)
	      ((string= group "Linux") 14)
	      ((string= group "Linux-net") 14)
	      ((string= group "Linux-noticias") 14)
	      (t 3))))

(setq browse-url-browser-function 
      'browse-url-netscape)

;;*
;;* Group buffer configuration
;;*================================
(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)
(setq gnus-group-line-format 
      " %M\%S\%p\%P\%5y:%(%-40,40g%) %6,6~(cut 2)d\n") 

;;*
;;* END
;;*================================


-- 
Rafael Sepúlveda <rsepulveda@interclan.net>
Grupo de Usuarios de GNU/Linux de Monterrey
<http://monterrey1.linux.net.mx>

Re: xface not showing

[Lars Magne Ingebrigtsen]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=us-ascii, Size: 340 bytes --]

"Rafael Sepúlveda" <rsepulveda@interclan.net> writes:

> BTW, I'm using the precompiled Debian version of Xemacs20. I supose
> that is is compiled with the xface support, but I really don't know.

What does

(featurep 'xface)

eval to?

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen