;;; smiley.el --- displaying smiley faces
-;; Copyright (C) 1996,97,98,99 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
;; Author: Wes Hardaker <hardaker@ece.ucdavis.edu>
;; Keywords: fun
;; To use:
;; (require 'smiley)
-;; (setq gnus-treat-display-smileys t)
+;; (add-hook 'gnus-article-display-hook 'gnus-smiley-display t)
;; The smilies were drawn by Joe Reiss <jreiss@vt.edu>.
(defun smiley-popup-menu (e)
(interactive "e")
(popup-menu
- `("Smilies"
+ `("Smilies"
["Toggle This Smiley" (smiley-toggle-extent ,e) t]
["Toggle All Smilies" (smiley-toggle-extents ,e) t])))
(save-excursion
(goto-char start)
(when (and (re-search-backward "[()]" nil t)
- (eq (char-after) ?\()
+ (= (following-char) ?\()
(goto-char end)
(or (not (re-search-forward "[()]" nil t))
- (eq (char-after (1- (point))) ?\()))
+ (= (char-after (1- (point))) ?\()))
t)))
(defvar gnus-article-buffer)