-(defun gnus-xmas-article-show-hidden-text (type &optional hide)
- "Show all hidden text of type TYPE.
-If HIDE, hide the text instead."
- (save-excursion
- (set-buffer gnus-article-buffer)
- (let ((buffer-read-only nil)
- (inhibit-point-motion-hooks t)
- (beg (point-min)))
- (while (gnus-goto-char (text-property-any
- beg (point-max) 'gnus-type type))
- (setq beg (point))
- (forward-char)
- (if hide
- (article-hide-text beg (point) gnus-hidden-properties)
- (article-unhide-text beg (point)))
- (setq beg (point)))
- (save-window-excursion
- (select-window (get-buffer-window (current-buffer)))
- (recenter))
- t)))
-
-(defvar gnus-xmas-pointer-glyph