[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cite.el [gnus-5_10-branch]

[Reiner Steib]

Index: emacs/lisp/gnus/gnus-cite.el
diff -c emacs/lisp/gnus/gnus-cite.el:1.11.2.1 
emacs/lisp/gnus/gnus-cite.el:1.11.2.2
*** emacs/lisp/gnus/gnus-cite.el:1.11.2.1       Thu Jul 22 16:45:46 2004
--- emacs/lisp/gnus/gnus-cite.el        Tue Aug 31 14:47:59 2004
***************
*** 1,6 ****
  ;;; gnus-cite.el --- parse citations in articles for Gnus
  
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Per Abhiddenware
--- 1,6 ----
  ;;; gnus-cite.el --- parse citations in articles for Gnus
  
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Per Abhiddenware
***************
*** 127,132 ****
--- 127,139 ----
    :group 'gnus-cite
    :type 'regexp)
  
+ (defcustom gnus-cite-ignore-quoted-from t
+   "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."
+   :group 'gnus-cite
+   :type 'boolean)
+ 
  (defface gnus-cite-attribution-face '((t
                                       (:italic t)))
    "Face used for attribution lines.")
***************
*** 739,744 ****
--- 746,758 ----
        ;; Ignore very long prefixes.
        (when (> end (+ begin gnus-cite-max-prefix))
        (setq end (+ begin gnus-cite-max-prefix)))
+       ;; Ignore quoted envelope From_.
+       (when (and gnus-cite-ignore-quoted-from
+                (prog2
+                    (setq case-fold-search nil)
+                    (looking-at ">From ")
+                  (setq case-fold-search t)))
+       (setq end (1+ begin)))
        (while (re-search-forward prefix-regexp (1- end) t)
        ;; Each prefix.
        (setq end (match-end 0)