/[emacs]/emacs/lisp/gnus/gnus-cite.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-cite.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11.2.1 by schwab, Thu Jul 22 16:45:46 2004 UTC revision 1.11.2.2 by rsteib, Tue Aug 31 14:47:59 2004 UTC
# Line 1  Line 1 
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
# Line 127  The text matching the first grouping wil Line 127  The text matching the first grouping wil
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.")
# Line 739  See also the documentation for `gnus-art Line 746  See also the documentation for `gnus-art
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)

Legend:
Removed from v.1.11.2.1  
changed lines
  Added in v.1.11.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26