Re: smiley.el (was Re: gnus-smiley.el -- new version)

[Colin Rafferty <craffert@spspme.ml.com>]

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