From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6698 Path: main.gmane.org!not-for-mail From: Colin Rafferty Newsgroups: gmane.emacs.gnus.general Subject: Re: smiley.el (was Re: gnus-smiley.el -- new version) Date: 14 Jun 1996 17:11:50 -0400 Message-ID: References: <199606141723.AA017493012@teal.ece.ucdavis.edu> <199606141842.LAA07706@monolith.spry.com> Reply-To: Colin Rafferty NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035147116 4460 80.91.224.250 (20 Oct 2002 20:51:56 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:51:56 +0000 (UTC) Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id OAA19975 for ; Fri, 14 Jun 1996 14:38:45 -0700 Original-Received: from mlfire.ml.com (mlfire.ml.com [192.246.100.1]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Fri, 14 Jun 1996 23:12:25 +0200 Original-Received: from commpost.ml.com ([146.125.4.24]) by mlfire.ml.com (8.7.5/8.7.3/MLgw-2.05) with SMTP id RAA03690 for ; Fri, 14 Jun 1996 17:16:10 -0400 (EDT) Original-Received: from spssunp.spspme.ml.com (spssunp.spspme.ml.com [192.168.111.13]) by commpost.ml.com (8.6.12/8.6.12) with ESMTP id RAA23208; Fri, 14 Jun 1996 17:15:05 -0400 (EST) Original-Received: by spssunp.spspme.ml.com (SMI-8.6/SMI-4.1) id RAA05286; Fri, 14 Jun 1996 17:11:51 -0400 Original-To: (ding) GNUS Mailing List X-Face: D>:hrrB{l6#\wU;)0R:OHSTA@ayd.Oq?s@Rrc;[+z0m+<-U"$G-J6L)F2QY`qK~uPu!s1(6{\#uy!Ag/D)?'L[}xErXvxoPn8T_hKi{M]/(`BF{e}X7;hby`p\.E$rJ}Aff#BT,rdDIw\y X-Y-Zippy: Xerox your lunch and file it under ``sex offenders!'' In-Reply-To: William Perry's message of Fri, 14 Jun 1996 11:42:20 -0700 Original-Lines: 29 X-Mailer: Gnus v5.2.6/XEmacs 19.13 Xref: main.gmane.org gmane.emacs.gnus.general:6698 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6698 William Perry writes: > Here is a slightly modified version... I have my own minor modification. I think that the logic here is great, but I would love to just get rid of them altogether. You can change the variable name if you like. (defvar smiley-is-the-spawn-of-satan 'nil "If non-nil, `smiley-buffer' just dump all smileys.") > (defun smiley-buffer (&optional buffer st nd) > ... > (let* ((start (match-beginning 0)) > (end (match-end 0)) > (file (nth 1 entry)) > (glyph (smiley-create-glyph (buffer-substring start end) > file))) > ... (let* ((start (match-beginning 0)) (end (match-end 0)) (file (nth 1 entry)) (glyph (if smiley-is-the-spawn-of-satan "" (smiley-create-glyph (buffer-substring start end) file)))) -- Colin