diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 85baeec0e9c..59c956abd45 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2010-11-02 Lars Magne Ingebrigtsen + + * gnus-cite.el (gnus-article-natural-long-line-p): Removed. + 2010-11-02 Julien Danjou * nnir.el: Remove wais support. diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el index 69d64366de1..aa719076e36 100644 --- a/lisp/gnus/gnus-cite.el +++ b/lisp/gnus/gnus-cite.el @@ -592,24 +592,6 @@ longer than the frame width." ;; 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'.