1 |
;;; gnus-cite.el --- parse citations in articles for Gnus |
;;; gnus-cite.el --- parse citations in articles for Gnus |
2 |
|
|
3 |
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 |
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Per Abhiddenware |
;; Author: Per Abhiddenware |
127 |
:group 'gnus-cite |
:group 'gnus-cite |
128 |
:type 'regexp) |
:type 'regexp) |
129 |
|
|
130 |
|
(defcustom gnus-cite-ignore-quoted-from t |
131 |
|
"Non-nil means don't regard lines beginning with \">From \" as cited text. |
132 |
|
Those lines may have been quoted by MTAs in order not to mix up with |
133 |
|
the envelope From line." |
134 |
|
:group 'gnus-cite |
135 |
|
:type 'boolean) |
136 |
|
|
137 |
(defface gnus-cite-attribution-face '((t |
(defface gnus-cite-attribution-face '((t |
138 |
(:italic t))) |
(:italic t))) |
139 |
"Face used for attribution lines.") |
"Face used for attribution lines.") |
746 |
;; Ignore very long prefixes. |
;; Ignore very long prefixes. |
747 |
(when (> end (+ begin gnus-cite-max-prefix)) |
(when (> end (+ begin gnus-cite-max-prefix)) |
748 |
(setq end (+ begin gnus-cite-max-prefix))) |
(setq end (+ begin gnus-cite-max-prefix))) |
749 |
|
;; Ignore quoted envelope From_. |
750 |
|
(when (and gnus-cite-ignore-quoted-from |
751 |
|
(prog2 |
752 |
|
(setq case-fold-search nil) |
753 |
|
(looking-at ">From ") |
754 |
|
(setq case-fold-search t))) |
755 |
|
(setq end (1+ begin))) |
756 |
(while (re-search-forward prefix-regexp (1- end) t) |
(while (re-search-forward prefix-regexp (1- end) t) |
757 |
;; Each prefix. |
;; Each prefix. |
758 |
(setq end (match-end 0) |
(setq end (match-end 0) |