Mercurial > hg > xemacs-beta
comparison lisp/gnus/gnus-art.el @ 167:85ec50267440 r20-3b10
Import from CVS: tag r20-3b10
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:45:46 +0200 |
| parents | 0132846995bd |
| children | 15872534500d |
comparison
equal
deleted
inserted
replaced
| 166:7a77eb660975 | 167:85ec50267440 |
|---|---|
| 979 (narrow-to-region beg end) | 979 (narrow-to-region beg end) |
| 980 (goto-char (point-min)) | 980 (goto-char (point-min)) |
| 981 (while (re-search-forward "^- " nil t) | 981 (while (re-search-forward "^- " nil t) |
| 982 (gnus-article-hide-text-type | 982 (gnus-article-hide-text-type |
| 983 (match-beginning 0) (match-end 0) 'pgp)) | 983 (match-beginning 0) (match-end 0) 'pgp)) |
| 984 (widen))) | 984 (widen)) |
| 985 (run-hooks 'gnus-article-hide-pgp-hook))))) | 985 (run-hooks 'gnus-article-hide-pgp-hook)))))) |
| 986 | 986 |
| 987 (defun article-hide-pem (&optional arg) | 987 (defun article-hide-pem (&optional arg) |
| 988 "Toggle hiding of any PEM headers and signatures in the current article. | 988 "Toggle hiding of any PEM headers and signatures in the current article. |
| 989 If given a negative prefix, always show; if given a positive prefix, | 989 If given a negative prefix, always show; if given a positive prefix, |
| 990 always hide." | 990 always hide." |
| 1748 (put 'gnus-article-mode 'mode-class 'special) | 1748 (put 'gnus-article-mode 'mode-class 'special) |
| 1749 | 1749 |
| 1750 (gnus-define-keys gnus-article-mode-map | 1750 (gnus-define-keys gnus-article-mode-map |
| 1751 " " gnus-article-goto-next-page | 1751 " " gnus-article-goto-next-page |
| 1752 "\177" gnus-article-goto-prev-page | 1752 "\177" gnus-article-goto-prev-page |
| 1753 [backspace] gnus-article-goto-prev-page | |
| 1754 [delete] gnus-article-goto-prev-page | 1753 [delete] gnus-article-goto-prev-page |
| 1755 "\C-c^" gnus-article-refer-article | 1754 "\C-c^" gnus-article-refer-article |
| 1756 "h" gnus-article-show-summary | 1755 "h" gnus-article-show-summary |
| 1757 "s" gnus-article-show-summary | 1756 "s" gnus-article-show-summary |
| 1758 "\C-c\C-m" gnus-article-mail | 1757 "\C-c\C-m" gnus-article-mail |