From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/46303 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: gnus-pointer.gif (no LZW compression) Date: Thu, 29 Aug 2002 11:10:08 +0900 Organization: Emacsen advocacy group Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1030587061 5884 127.0.0.1 (29 Aug 2002 02:11:01 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 29 Aug 2002 02:11:01 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17kElt-0001Vs-00 for ; Thu, 29 Aug 2002 04:10:57 +0200 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 17kEln-0000pm-00; Wed, 28 Aug 2002 21:10:51 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 28 Aug 2002 21:11:25 -0500 (CDT) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id VAA14085 for ; Wed, 28 Aug 2002 21:11:13 -0500 (CDT) Original-Received: (qmail 6754 invoked by alias); 29 Aug 2002 02:10:33 -0000 Original-Received: (qmail 6749 invoked from network); 29 Aug 2002 02:10:33 -0000 Original-Received: from unknown (HELO mars.web-hosting.com) (207.228.244.150) by gnus.org with SMTP; 29 Aug 2002 02:10:33 -0000 Original-Received: from localhost ([207.228.245.242]) by mars.web-hosting.com (8.11.1/8.11.1) with ESMTP id g7T2AWT10299 for ; Wed, 28 Aug 2002 22:10:32 -0400 (EDT) Original-To: ding@gnus.org User-Agent: Gnus/5.090008 (Oort Gnus v0.08) XEmacs/21.5 (broccoli, sparc-sun-solaris2.6) 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&( Cancel-Lock: sha1:/fX1XvzY5bkhwrXpsrKVEfRS0dw= X-Hashcash: 020829:ding@gnus.org:b3109aae01614725 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:46303 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:46303 --=-=-= Hi, Here's an omni-color gnus-pointer for XEmacs. This requires the gifsicle[1] program to change the background color[2]. [1] http://www.lcdf.org/gifsicle/ [2] XEmacs doesn't support gif's transparent color on modelines. --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline (if (and (featurep 'xemacs) (executable-find "gifsicle")) (let ((data (base64-decode-string "\ R0lGODlhEAAOAPQAAP8iAP///8wzAPj/uMDMk6HMk9L/uAX/lwTMkAXe/wSazIK2/2iGzHxo zIyC/7JkzM99/8xkwv19//99tcxkhXJCFB4/A4eHh7S0tP/MAL+ZAAAAAAAAAAAAAAAAAAAA ACH5BAEhAAEALAAAAAAQAA4AAAJCjI+pIsZ6mJRIGAEAy9JMcAhAAEwSYAjZAUgZYAiA8iZA IkCBABgCwNABAgxAACCATAAGgADCyBwAAkgmARDotogCACH5BAEhAAEALAAAAAAQAA4AAANE GLrcTkRBt6C1jCgyBuyWcg0LMQTDZQ0K0S2D1Q0KMThzMzQEFRADBWEA8Q0CkEFgQKBcBooB gQLpLAYESqcxIPi+jAQAIfkEASEAAQAsAAAAABAADgAAA0QYutxeRUG3oLWsqGIM7JZyGUth BMZlGUrRLYbVGUphOHNjNAUVFAZFwQDxGQIQQ8BQoFwMCkOBAuksDAVKp2Eo+L6MBAAh+QQB IQABACwAAAAAEAAOAAAERzDISatFSGI7sfcUIiHHgZWe9B0TcgTH5x0SUk6HVx4Scli7yqGC 4AQQBwnigDEeAphD4IDgfA6SA4KDKU0OCE6pckAYz5QIACH5BAEhAAEALAAAAAAQAA4AAARH MMhJq1VKYjux95QiKUmClZ70JZOSBMnnJZJSTolXJpKSWLtKoqLgBBQJiSKBMSYCmEQgoeB8 EpKEgoMpTRIKTqmSUBjPlAgAIfkEASEAAQAsAAAAABAADgAABEcwyEmrZUxiO7H3FCMxy4KV nvQtE7MEy+ctElNOi1cuErNYu8qiwuAEGAsJY4ExLgKYRWDB4HwWkgWDgylNFgxOqbJgGM+U CAAh+QQBIQABACwAAAAAEAAOAAAERzDISattTWI7sfdUIzWOg5We9DlT4wTO5zlSU06OVzpS 41i7iqPS4AQaDknDgTE6AhhHwNHgfBwSR4ODKU0cDU6p4mgYz5QIACH5BAEhAAEALAAAAAAQ AA4AAAVLYCCOZGk+j4iaI+q65CM+EITWrvhC4wMFkJcLInrURhBXDSJ6QEzLEqT0YAUeENED grJCAihIAPJgvSAiyIOFqo0gD1atBHlY76QQACH5BAEhAAEALAAAAAAQAA4AAAVLYCCOZGlG kYiaI+q6ZCRGkoTWrvhKYyQFkpdLIorURhJXTSKKSEzLkqQUYQUiElFEgrJKAihJQBJhvSQi SYSFqo0kEVatJIlY76QQACH5BAEhAAEALAAAAAAQAA4AAAVLYCCOZGlSlIiaI+q6JCVS04TW rvhOIzUFk5drIqLURhNXbSKiTEzL0qREYQUoExFlgrJOAqhJYEJhvSaiCYWFqo0mFFatNKFY 76QQACH5BAEhAAEALAAAAAAQAA4AAAVLYCCOZGlWlYiaI+q6ZCVWloXWrvhaY2UFlpfLIqrU RhZXzSKqWEzLkqVUYQUqFlHFgrJaAihLwFJhvSwiS4WFqo0sFVatZKlY76QQACH5BAEhAAEA LAAAAAAQAA4AAAVLYCCOZGlimIiaI+q6JCZi14XWrvheI3YFl5frIsLURhdX7SLCXEzL0qWE YQUwFxHmgrJeAqhL4IJhvS6iC4aFqo0uGFatdMFY76QQACH5BAEhAAEALAAAAAAQAA4AAAVL YCCOZGlqmoiaI+q6pCZqWYbWrvhmo5YFmZcrI9LURhlXLSPSZEzLUqakYQU0GZEmg7JmAqhM IKNhvTKijIaFqo0yGlatlNFY76QQADs=")) (background (mapconcat (lambda (c) (number-to-string (% c 256))) (color-rgb-components (face-background 'modeline)) ",")) (coding-system-for-read 'binary) (coding-system-for-write 'binary)) (with-temp-buffer (insert data) (call-process-region (point-min) (point-max) "gifsicle" t t nil "--careful" "--delay" "33" "--change-color" "255,255,255" background) (setq gnus-xmas-modeline-glyph (make-glyph (make-image-instance (vector 'gif :data (buffer-string)))))))) --=-=-=--