From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/30846 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: compface-1.2 Date: 12 May 2000 09:15:52 -0400 (EDT) Organization: Emacsen advocacy group Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035167326 10646 80.91.224.250 (21 Oct 2002 02:28:46 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:28:46 +0000 (UTC) Return-Path: Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49]) by mailhost.sclp.com (Postfix) with ESMTP id 3648DD051F for ; Fri, 12 May 2000 09:16:44 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id IAB07848; Fri, 12 May 2000 08:16:38 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 12 May 2000 08:15:56 -0500 (CDT) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id IAA08777 for ; Fri, 12 May 2000 08:15:46 -0500 (CDT) Original-Received: from jpl.org (mars.web-hosting.com [209.40.104.5]) by mailhost.sclp.com (Postfix) with ESMTP id 07900D051F for ; Fri, 12 May 2000 09:16:01 -0400 (EDT) Original-Received: (from yamaoka@localhost) by jpl.org (8.9.3/8.9.3) id JAA00268; Fri, 12 May 2000 09:15:59 -0400 (EDT) Original-To: ding@gnus.org 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.0807 (Gnus v5.8.7) Emacs/20.6 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:30846 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:30846 --=-=-= Does anyone know who is the maintainer of compface-1.2 package? Shenghuo? I would like to give notice that the option "-X" of uncompface does not work. If it works, it might make Gnus display X-Face a little bit faster. The patches for it follows. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=compface-1.2.patch --- compface-1.2/uncmain.c~ Fri Aug 20 04:10:23 1999 +++ compface-1.2/uncmain.c Fri Dec 24 02:27:53 1999 @@ -48,8 +48,6 @@ int outfile = 1; char *outname = ""; -int xbitmap=0; - /* basename of executable */ char *cmdname; @@ -84,7 +82,7 @@ if (argc > 1 && !strcmp(argv[1], "-X")) { - xbitmap++; + compface_xbitmap++; argc--; argv++; } --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=Gnus.patch --- gnus-art.el~ Sun May 7 21:42:54 2000 +++ gnus-art.el Fri May 12 13:03:45 2000 @@ -203,7 +203,7 @@ (or (image-type-available-p 'xpm) (image-type-available-p 'xbm))) 'gnus-article-display-xface - "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | display -") + "uncompface -X | display -") "*String or function to be executed to display an X-Face header. If it is a string, the command will be executed in a sub-shell asynchronously. The compressed face will be piped to this command." --- gnus-ems.el~ Sun May 7 21:42:54 2000 +++ gnus-ems.el Fri May 12 13:03:45 2000 @@ -209,10 +209,9 @@ (defun gnus-article-display-xface (beg end) "Display an XFace header from between BEG and END in the current article. -This requires support images in your Emacs and the external programs -`uncompface', `icontopbm' and `ppmtoxbm'. On a GNU/Linux system these -might be in packages with names like `compface' or `faces-xface' and -`netpbm' or `libgr-progs', for instance. +This requires support images in your Emacs and the external program +`uncompface'. On a GNU/Linux system this might be in package with names like +`compface' or `faces-xface', for instance. This function is for Emacs 21+. See `gnus-xmas-article-display-xface' for XEmacs." @@ -235,15 +234,7 @@ (insert data) (and (eq 0 (call-process-region (point-min) (point-max) "uncompface" - 'delete '(t nil))) - (goto-char (point-min)) - (progn (insert "/* Width=48, Height=48 */\n") t) - (eq 0 (call-process-region (point-min) (point-max) - "icontopbm" - 'delete '(t nil))) - (eq 0 (call-process-region (point-min) (point-max) - "pbmtoxbm" - 'delete '(t nil))) + 'delete '(t nil) nil "-X")) (setq image (create-image (buffer-string) 'xbm t))))) (ring-insert gnus-article-xface-ring-internal (cons data image)))) (when image --=-=-= I'm not sure whether Gnus does work under Emacs 21+. :-p -- Katsumi Yamaoka --=-=-=--