Mercurial > emacs
comparison lisp/gnus/gnus-art.el @ 34833:aaf69bc74739
* gnus-art.el (gnus-article-check-hidden-text): Return t.
* gnus-util.el (gnus-remove-text-properties-when): Return t.
* mm-decode.el (mm-dissect-multipart): Avoid errors owing to
malformatted messages.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Fri, 22 Dec 2000 14:19:33 +0000 |
| parents | 2c66e24f2398 |
| children | 26726eff41ca |
comparison
equal
deleted
inserted
replaced
| 34832:02fc33c28963 | 34833:aaf69bc74739 |
|---|---|
| 1966 (cond | 1966 (cond |
| 1967 ((or (null arg) | 1967 ((or (null arg) |
| 1968 (> arg 0)) | 1968 (> arg 0)) |
| 1969 nil) | 1969 nil) |
| 1970 ((< arg 0) | 1970 ((< arg 0) |
| 1971 (gnus-article-show-hidden-text type)) | 1971 (gnus-article-show-hidden-text type) |
| 1972 t) | |
| 1972 (t | 1973 (t |
| 1973 (if (eq hide 'hidden) | 1974 (if (eq hide 'hidden) |
| 1974 (gnus-article-show-hidden-text type) | 1975 (progn |
| 1976 (gnus-article-show-hidden-text type) | |
| 1977 t) | |
| 1975 nil))))))) | 1978 nil))))))) |
| 1976 | 1979 |
| 1977 (defun gnus-article-hidden-text-p (type) | 1980 (defun gnus-article-hidden-text-p (type) |
| 1978 "Say whether the current buffer contains hidden text of type TYPE." | 1981 "Say whether the current buffer contains hidden text of type TYPE." |
| 1979 (let ((pos (text-property-any (point-min) (point-max) 'article-type type))) | 1982 (let ((pos (text-property-any (point-min) (point-max) 'article-type type))) |