Mercurial > emacs

comparison lisp/gnus/gnus-sum.el @ 80309:99d3beccda6b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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))