# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1288746173 0
# Node ID 34e6178fa4379ae435704353e64c8512732558fb
# Parent  e282e3411e9a4ee4aa8ece476c384e3a4174b708
gnus-cite.el (gnus-article-natural-long-line-p): Removed.

diff -r e282e3411e9a -r 34e6178fa437 lisp/gnus/ChangeLog
--- 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.
diff -r e282e3411e9a -r 34e6178fa437 lisp/gnus/gnus-cite.el
--- 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'.