From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/7205 Path: main.gmane.org!not-for-mail From: Jan Vroonhof Newsgroups: gmane.emacs.gnus.general Subject: Smileys again... Date: 15 Jul 1996 19:35:51 +0200 Sender: vroonhof@math.ethz.ch Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035147547 6281 80.91.224.250 (20 Oct 2002 20:59:07 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:59:07 +0000 (UTC) Cc: ding@ifi.uio.no 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 LAA14738 for ; Mon, 15 Jul 1996 11:14:17 -0700 Original-Received: from frege.math.ethz.ch (root@frege-math-bb.math.ethz.ch [129.132.148.14]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id ; Mon, 15 Jul 1996 19:36:28 +0200 Original-Received: from fresnel.math.ethz.ch (vroonhof@fresnel-d-math-south-g-servers.math.ethz.ch [129.132.145.6]) by frege.math.ethz.ch (8.6.4/Main-mathdept-mailer) with ESMTP id TAA04719; Mon, 15 Jul 1996 19:36:26 +0200 Original-Received: (vroonhof@localhost) by fresnel.math.ethz.ch (8.6.9/D-MATH-client) id TAA14425; Mon, 15 Jul 1996 19:35:52 +0200 Original-To: Lars Magne Ingebrigtsen In-Reply-To: Lars Magne Ingebrigtsen's message of 14 Jul 1996 20:01:48 +0200 Original-Lines: 102 X-Mailer: Gnus v5.2.35/XEmacs 19.14 Xref: main.gmane.org gmane.emacs.gnus.general:7205 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:7205 The following fixes the two aggressive matching of "://" in 5.2.35 and adds some more mild regexps such that you can read Tom Cristiansen's messsages. Patch follows *** ChangeLog.orig Sun Jul 14 18:44:48 1996 --- ChangeLog Mon Jul 15 19:21:23 1996 *************** *** 1,3 **** --- 1,8 ---- + Mon Jul 15 18:11:13 1996 Jan Vroonhof + + * smiley.el (smiley-regexp-alist): Don't match important parts of URLs + (smiley-nosey-regexp-alist): New variable. + Sun Jul 14 18:21:14 1996 Lars Magne Ingebrigtsen * gnus-uu.el (gnus-uu-mark-over): Would bug out. *** smiley.el.orig Sun Jul 14 18:40:45 1996 --- smiley.el Mon Jul 15 19:20:08 1996 *************** *** 42,53 **** (defvar smiley-data-directory (message-xmas-find-glyph-directory "smilies") "Location of the smiley faces files.") ! (defvar smiley-regexp-alist '(("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm") ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm") ("\\(:-*D\\)\\W" 1 "FaceGrinning.xpm") ("\\(:-*[)>}»]+\\)\\W" 1 "FaceHappy.xpm") ! ("\\(:-*[/\\\"]+\\)\\W" 1 "FaceIronic.xpm") ("\\([8|]-*[|Oo%]\\)\\W" 1 "FaceKOed.xpm") ("\\([:|]-*#+\\)\\W" 1 "FaceNyah.xpm") ("\\(:-*[({]+\\)\\W" 1 "FaceSad.xpm") --- 42,55 ---- (defvar smiley-data-directory (message-xmas-find-glyph-directory "smilies") "Location of the smiley faces files.") ! ;; Notice the subtle differences in the regular expessions in the two alists below ! ! (defvar smiley-deformed-regexp-alist '(("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm") ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm") ("\\(:-*D\\)\\W" 1 "FaceGrinning.xpm") ("\\(:-*[)>}»]+\\)\\W" 1 "FaceHappy.xpm") ! ("\\(:-*[/\\\"]\\)[^\\]" 1 "FaceIronic.xpm") ("\\([8|]-*[|Oo%]\\)\\W" 1 "FaceKOed.xpm") ("\\([:|]-*#+\\)\\W" 1 "FaceNyah.xpm") ("\\(:-*[({]+\\)\\W" 1 "FaceSad.xpm") *************** *** 58,65 **** ("\\(;-*[>)}»]+\\)\\W" 1 "FaceWinking.xpm") ("\\(:-*[Vvµ]\\)\\W" 1 "FaceWry.xpm") ("\\([:|]-*P\\)\\W" 1 "FaceYukky.xpm")) ! "A list of regexps to map smilies to real images.") (defvar smiley-flesh-color "yellow" "Flesh color.") --- 60,92 ---- ("\\(;-*[>)}»]+\\)\\W" 1 "FaceWinking.xpm") ("\\(:-*[Vvµ]\\)\\W" 1 "FaceWry.xpm") ("\\([:|]-*P\\)\\W" 1 "FaceYukky.xpm")) ! "Normal and deformed faces for smilies.") + (defvar smiley-nosey-regexp-alist + '(("\\(:-+[<«]+\\)\\W" 1 "FaceAngry.xpm") + ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm") + ("\\(:-+D\\)\\W" 1 "FaceGrinning.xpm") + ("\\(:-+[}»]+\\)\\W" 1 "FaceHappy.xpm") + ("\\(:-*)+\\)\\W" 1 "FaceHappy.xpm") ;; The exception that confirms the rule + ("\\(:-+[/\\\"]+\\)\\W" 1 "FaceIronic.xpm") + ("\\([8|]-+[|Oo%]\\)\\W" 1 "FaceKOed.xpm") + ("\\([:|]-+#+\\)\\W" 1 "FaceNyah.xpm") + ("\\(:-+[({]+\\)\\W" 1 "FaceSad.xpm") + ("\\(:-+[Oo\*]\\)\\W" 1 "FaceStartled.xpm") + ("\\(:-+|\\)\\W" 1 "FaceStraight.xpm") + ("\\(:-+p\\)\\W" 1 "FaceTalking.xpm") + ("\\(:-+d\\)\\W" 1 "FaceTasty.xpm") + ("\\(;-+[>)}»]+\\)\\W" 1 "FaceWinking.xpm") + ("\\(:-+[Vvµ]\\)\\W" 1 "FaceWry.xpm") + ("\\([:|]-+P\\)\\W" 1 "FaceYukky.xpm")) + "Smileys with noses. These get less false matches.") + + (defvar smiley-regexp-alist smiley-deformed-regexp-alist + "A list of regexps to map smilies to real images. + Defaults to the content of smiley-deformed-regexp-alist. + An alternative smiley-nose-regexp-alist that + matches less aggresively is available.") + (defvar smiley-flesh-color "yellow" "Flesh color.") -- Jan Vroonhof http://www.math.ethz.ch/~vroonhof/ Mathematik, vroonhof@math.ethz.ch HG E16, ETH-Zentrum, Tel: +41-1-6325456/25154 Raemistrasse 101, CH-8092 Zuerich. Fax: +41-1-6321085