Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 80309:99d3beccda6b
Merge from gnus--rel--5.10
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-246
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 10 Mar 2008 02:39:57 +0000 |
parents | 2b8718a2482e |
children | 1e3a4955a638 |
comparison
equal
deleted
inserted
replaced
80308:aed5a2e20d31 | 80309:99d3beccda6b |
---|---|
8840 (gnus-eval-in-buffer-window gnus-article-buffer | 8840 (gnus-eval-in-buffer-window gnus-article-buffer |
8841 (widen) | 8841 (widen) |
8842 (goto-char (point-max)) | 8842 (goto-char (point-max)) |
8843 (recenter -3) | 8843 (recenter -3) |
8844 (when gnus-break-pages | 8844 (when gnus-break-pages |
8845 (when (re-search-backward page-delimiter nil t) | |
8846 (narrow-to-region (match-end 0) (point-max))) | |
8847 (gnus-narrow-to-page)))) | 8845 (gnus-narrow-to-page)))) |
8848 | 8846 |
8849 (defun gnus-summary-print-truncate-and-quote (string &optional len) | 8847 (defun gnus-summary-print-truncate-and-quote (string &optional len) |
8850 "Truncate to LEN and quote all \"(\"'s in STRING." | 8848 "Truncate to LEN and quote all \"(\"'s in STRING." |
8851 (gnus-replace-in-string (if (and len (> (length string) len)) | 8849 (gnus-replace-in-string (if (and len (> (length string) len)) |