mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

gnus-cite.el (gnus-article-natural-long-line-p): Removed.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-11-03 01:02:53 +00:00 committed by Katsumi Yamaoka
parent fa14dc1800
commit dc9791eba6
2 changed files with 4 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -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.

18
lisp/gnus/gnus-cite.el
View File

@ -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'.