Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents d2f30a177268
children b980b6286996
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
565 (add-text-properties b (incf b) gnus-hidden-properties))))) 565 (add-text-properties b (incf b) gnus-hidden-properties)))))
566 566
567 (defun gnus-article-delete-text-of-type (type) 567 (defun gnus-article-delete-text-of-type (type)
568 "Delete text of TYPE in the current buffer." 568 "Delete text of TYPE in the current buffer."
569 (save-excursion 569 (save-excursion
570 (let ((b (point-min))) 570 (let ((e (point-min))
571 (while (setq b (text-property-any b (point-max) 'article-type type)) 571 b)
572 (delete-region b (incf b)))))) 572 (while (setq b (text-property-any e (point-max) 'article-type type))
573 (setq e (text-property-not-all b (point-max) 'article-type type))
574 (delete-region b e)))))
573 575
574 (defun gnus-article-delete-invisible-text () 576 (defun gnus-article-delete-invisible-text ()
575 "Delete all invisible text in the current buffer." 577 "Delete all invisible text in the current buffer."
576 (save-excursion 578 (save-excursion
577 (let ((b (point-min))) 579 (let ((e (point-min))
578 (while (setq b (text-property-any b (point-max) 'invisible t)) 580 b)
579 (delete-region b (incf b)))))) 581 (while (setq b (text-property-any e (point-max) 'invisible t))
582 (setq e (text-property-not-all b (point-max) 'invisible t))
583 (delete-region b e)))))
580 584
581 (defun gnus-article-text-type-exists-p (type) 585 (defun gnus-article-text-type-exists-p (type)
582 "Say whether any text of type TYPE exists in the buffer." 586 "Say whether any text of type TYPE exists in the buffer."
583 (text-property-any (point-min) (point-max) 'article-type type)) 587 (text-property-any (point-min) (point-max) 'article-type type))
584 588