480 |
gnus-hidden-properties)) |
gnus-hidden-properties)) |
481 |
(point (point-min)) |
(point (point-min)) |
482 |
found beg end start) |
found beg end start) |
483 |
(while (setq point |
(while (setq point |
484 |
(text-property-any point (point-max) |
(text-property-any point (point-max) |
485 |
'gnus-callback |
'gnus-callback |
486 |
'gnus-article-toggle-cited-text)) |
'gnus-article-toggle-cited-text)) |
487 |
(setq found t) |
(setq found t) |
559 |
(and (< arg 0) hidden)) |
(and (< arg 0) hidden)) |
560 |
(if hidden |
(if hidden |
561 |
(gnus-remove-text-properties-when |
(gnus-remove-text-properties-when |
562 |
'article-type 'cite beg end |
'article-type 'cite beg end |
563 |
(cons 'article-type (cons 'cite |
(cons 'article-type (cons 'cite |
564 |
gnus-hidden-properties))) |
gnus-hidden-properties))) |
565 |
(gnus-add-text-properties-when |
(gnus-add-text-properties-when |
566 |
'article-type nil beg end |
'article-type nil beg end |
567 |
(cons 'article-type (cons 'cite |
(cons 'article-type (cons 'cite |
568 |
gnus-hidden-properties)))) |
gnus-hidden-properties)))) |
569 |
(save-excursion |
(save-excursion |