Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents e04119814345
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
1015 ;; Then replace multiple empty lines with a single empty line. 1015 ;; Then replace multiple empty lines with a single empty line.
1016 (goto-char (point-min)) 1016 (goto-char (point-min))
1017 (search-forward "\n\n" nil t) 1017 (search-forward "\n\n" nil t)
1018 (while (re-search-forward "\n\n\n+" nil t) 1018 (while (re-search-forward "\n\n\n+" nil t)
1019 (replace-match "\n\n" t t))))) 1019 (replace-match "\n\n" t t)))))
1020
1021 (defun article-strip-leading-space ()
1022 "Remove all white space from the beginning of the lines in the article."
1023 (interactive)
1024 (save-excursion
1025 (let ((inhibit-point-motion-hooks t)
1026 buffer-read-only)
1027 (goto-char (point-min))
1028 (search-forward "\n\n" nil t)
1029 (while (re-search-forward "^[ \t]+" nil t)
1030 (replace-match "" t t)))))
1020 1031
1021 (defun article-strip-blank-lines () 1032 (defun article-strip-blank-lines ()
1022 "Strip leading, trailing and multiple blank lines." 1033 "Strip leading, trailing and multiple blank lines."
1023 (interactive) 1034 (interactive)
1024 (article-strip-leading-blank-lines) 1035 (article-strip-leading-blank-lines)
1667 article-hide-pem 1678 article-hide-pem
1668 article-hide-signature 1679 article-hide-signature
1669 article-remove-trailing-blank-lines 1680 article-remove-trailing-blank-lines
1670 article-strip-leading-blank-lines 1681 article-strip-leading-blank-lines
1671 article-strip-multiple-blank-lines 1682 article-strip-multiple-blank-lines
1683 article-strip-leading-space
1672 article-strip-blank-lines 1684 article-strip-blank-lines
1673 article-date-local 1685 article-date-local
1674 article-date-original 1686 article-date-original
1675 article-date-ut 1687 article-date-ut
1676 article-date-user 1688 article-date-user