From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/72082 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Gravatar and XEmacs Date: Tue, 28 Sep 2010 14:59:43 +0900 Organization: Emacsen advocacy group Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1285653644 13134 80.91.229.12 (28 Sep 2010 06:00:44 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 28 Sep 2010 06:00:44 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M20455@lists.math.uh.edu Tue Sep 28 08:00:42 2010 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1P0TF3-0004u3-81 for ding-account@gmane.org; Tue, 28 Sep 2010 08:00:41 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1P0TEr-00008z-NG; Tue, 28 Sep 2010 01:00:29 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1P0TEk-00008i-Bf for ding@lists.math.uh.edu; Tue, 28 Sep 2010 01:00:22 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1P0TEj-0006IP-6Y for ding@lists.math.uh.edu; Tue, 28 Sep 2010 01:00:22 -0500 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1P0TEi-0000Oo-00 for ; Tue, 28 Sep 2010 08:00:20 +0200 Original-Received: from localhost ([127.0.0.1]:40969) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1P0TE8-0002FR-FH for ding@gnus.org; Tue, 28 Sep 2010 00:59:44 -0500 X-Hashcash: 1:20:100928:ding@gnus.org::KH3pfDFoqoU1lx1I:00004pQs X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:4B+lfReMfNx8Eg3ZkD8fb1yX5fQ= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:72082 Archived-At: Hi, Currently gravatar.el is unable to compile with XEmacs because image.el is not available: Compiling gnus/lisp/gravatar.el... While compiling toplevel forms in file gnus/lisp/gravatar.el: !! File error (("Cannot open load file" "image")) Is there a plan to make it work? It seems only the create-image function is the reason image.el is required. If so: --8<---------------cut here---------------start------------->8--- --- gravatar.el~ 2010-09-26 22:53:00 +0000 +++ gravatar.el 2010-09-28 05:58:08 +0000 @@ -24,7 +24,6 @@ ;;; Code: -(require 'image) (require 'url) (require 'url-cache) @@ -84,12 +83,22 @@ (when (search-forward "\n\n" nil t) (buffer-substring (point) (point-max))))) +(eval-and-compile + (cond ((featurep 'xemacs) + (require 'gnus-xmas) + (defalias 'gravatar-create-image 'gnus-xmas-create-image)) + ((featurep 'gnus-ems) + (defalias 'gravatar-create-image 'gnus-create-image)) + (t + (require 'image) + (defalias 'gravatar-create-image 'create-image)))) + (defun gravatar-data->image () "Get data of current buffer and return an image. If no image available, return 'error." (let ((data (gravatar-get-data))) (if data - (create-image data nil t) + (gravatar-create-image data nil t) 'error))) ;;;###autoload --8<---------------cut here---------------end--------------->8--- Though it may be no more than a starting point to make it work since I haven't tried Gravatar yet, though. ;-)