Mercurial > emacs
changeset 111323:34e6178fa437
gnus-cite.el (gnus-article-natural-long-line-p): Removed.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 03 Nov 2010 01:02:53 +0000 |
| parents | e282e3411e9a |
| children | ab83881bb97a |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-cite.el |
| diffstat | 2 files changed, 4 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Nov 02 15:51:25 2010 -0700 +++ b/lisp/gnus/ChangeLog Wed Nov 03 01:02:53 2010 +0000 @@ -1,3 +1,7 @@ +2010-11-02 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * gnus-cite.el (gnus-article-natural-long-line-p): Removed. + 2010-11-02 Julien Danjou <julien@danjou.info> * nnir.el: Remove wais support.
--- a/lisp/gnus/gnus-cite.el Tue Nov 02 15:51:25 2010 -0700 +++ b/lisp/gnus/gnus-cite.el Wed Nov 03 01:02:53 2010 +0000 @@ -592,24 +592,6 @@ ;; like code? Check for ragged edges on the left. (< (length columns) 3)))) -(defun gnus-article-natural-long-line-p () - "Return true if the current line is long, and it's natural text." - (save-excursion - (beginning-of-line) - (and - ;; The line is long. - (> (- (line-end-position) (line-beginning-position)) - (window-width)) - ;; It doesn't start with spaces. - (not (looking-at " ")) - ;; Not cited text. - (let ((line-number (1+ (count-lines (point-min) (point)))) - citep) - (dolist (elem gnus-cite-prefix-alist) - (when (member line-number (cdr elem)) - (setq citep t))) - (not citep))))) - (defun gnus-article-hide-citation (&optional arg force) "Toggle hiding of all cited text except attribution lines. See the documentation for `gnus-article-highlight-citation'.