;;; gnus-cite.el --- parse citations in articles for Gnus
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;; 2005
;; Free Software Foundation, Inc.
;; Author: Per Abhiddenware
(defcustom gnus-cite-unsightly-citation-regexp
"^-----Original Message-----\nFrom: \\(.+\n\\)+\n"
"Regexp matching Microsoft-type rest-of-message citations."
+ :version "22.1"
:group 'gnus-cite
:type 'regexp)
"Non-nil means don't regard lines beginning with \">From \" as cited text.
Those lines may have been quoted by MTAs in order not to mix up with
the envelope From line."
+ :version "22.1"
:group 'gnus-cite
:type 'boolean)
(defface gnus-cite-attribution-face '((t
(:italic t)))
- "Face used for attribution lines.")
+ "Face used for attribution lines."
+ :group 'gnus-cite)
(defcustom gnus-cite-attribution-face 'gnus-cite-attribution-face
"Face used for attribution lines.
It is merged with the face for the cited text belonging to the attribution."
+ :version "22.1"
:group 'gnus-cite
:type 'face)
(:foreground "MidnightBlue"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defface gnus-cite-face-2 '((((class color)
(background dark))
(:foreground "firebrick"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defface gnus-cite-face-3 '((((class color)
(background dark))
(:foreground "dark green"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defface gnus-cite-face-4 '((((class color)
(background dark))
(:foreground "OrangeRed"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defface gnus-cite-face-5 '((((class color)
(background dark))
(:foreground "dark khaki"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defface gnus-cite-face-6 '((((class color)
(background dark))
(:foreground "dark violet"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defface gnus-cite-face-7 '((((class color)
(background dark))
(:foreground "SteelBlue4"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defface gnus-cite-face-8 '((((class color)
(background dark))
(:foreground "magenta"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defface gnus-cite-face-9 '((((class color)
(background dark))
(:foreground "violet"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defface gnus-cite-face-10 '((((class color)
(background dark))
(:foreground "medium purple"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defface gnus-cite-face-11 '((((class color)
(background dark))
(:foreground "turquoise"))
(t
(:italic t)))
- "Citation face.")
+ "Citation face."
+ :group 'gnus-cite)
(defcustom gnus-cite-face-list
'(gnus-cite-face-1 gnus-cite-face-2 gnus-cite-face-3 gnus-cite-face-4
(when (< from to)
(push (setq overlay (gnus-make-overlay from to))
gnus-cite-overlay-list)
+ (gnus-overlay-put overlay 'evaporate t)
(gnus-overlay-put overlay 'face face))))))
(defun gnus-cite-toggle (prefix)