/[emacs]/emacs/lisp/gnus/gnus-cite.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-cite.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by miles, Thu May 9 01:50:47 2002 UTC revision 1.10 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 480  always hide." Line 480  always hide."
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)
# Line 559  means show, nil means toggle." Line 559  means show, nil means toggle."
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

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26