Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.el @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 318232e2a3f0
children 25f70ba0133c
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
390 :group 'gnus-article-various) 390 :group 'gnus-article-various)
391 391
392 (defcustom gnus-article-prepare-hook nil 392 (defcustom gnus-article-prepare-hook nil
393 "*A hook called after an article has been prepared in the article buffer. 393 "*A hook called after an article has been prepared in the article buffer.
394 If you want to run a special decoding program like nkf, use this hook." 394 If you want to run a special decoding program like nkf, use this hook."
395 :type 'hook
396 :group 'gnus-article-various)
397
398 (defcustom gnus-article-hide-pgp-hook nil
399 "*A hook called after successfully hiding a PGP signature."
395 :type 'hook 400 :type 'hook
396 :group 'gnus-article-various) 401 :group 'gnus-article-various)
397 402
398 (defcustom gnus-article-button-face 'bold 403 (defcustom gnus-article-button-face 'bold
399 "Face used for highlighting buttons in the article buffer. 404 "Face used for highlighting buttons in the article buffer.
962 (narrow-to-region beg end) 967 (narrow-to-region beg end)
963 (goto-char (point-min)) 968 (goto-char (point-min))
964 (while (re-search-forward "^- " nil t) 969 (while (re-search-forward "^- " nil t)
965 (gnus-article-hide-text-type 970 (gnus-article-hide-text-type
966 (match-beginning 0) (match-end 0) 'pgp)) 971 (match-beginning 0) (match-end 0) 'pgp))
967 (widen)))))) 972 (widen)))
973 (run-hooks 'gnus-article-hide-pgp-hook))))
968 974
969 (defun article-hide-pem (&optional arg) 975 (defun article-hide-pem (&optional arg)
970 "Toggle hiding of any PEM headers and signatures in the current article. 976 "Toggle hiding of any PEM headers and signatures in the current article.
971 If given a negative prefix, always show; if given a positive prefix, 977 If given a negative prefix, always show; if given a positive prefix,
972 always hide." 978 always hide."
1128 (save-window-excursion 1134 (save-window-excursion
1129 (w3-parse-buffer (current-buffer)) 1135 (w3-parse-buffer (current-buffer))
1130 (setq buf (buffer-string)))) 1136 (setq buf (buffer-string))))
1131 (when buf 1137 (when buf
1132 (delete-region (point-min) (point-max)) 1138 (delete-region (point-min) (point-max))
1133 (insert buf) 1139 (insert buf))
1134 (kill-buffer buf))
1135 (widen) 1140 (widen)
1136 (goto-char (point-min)) 1141 (goto-char (point-min))
1137 (set-window-start (get-buffer-window (current-buffer)) (point-min)) 1142 (set-window-start (get-buffer-window (current-buffer)) (point-min))
1138 (set-buffer cbuf)))) 1143 (set-buffer cbuf))))
1139 1144