Index: GNUS-NEWS =================================================================== RCS file: /usr/local/cvsroot/gnus/GNUS-NEWS,v retrieving revision 6.43 diff -u -r6.43 GNUS-NEWS --- GNUS-NEWS 18 Feb 2003 20:42:51 -0000 6.43 +++ GNUS-NEWS 19 Feb 2003 18:06:58 -0000 @@ -10,10 +10,11 @@ ** Better handling of Microsoft citation styles -Gnus now tries to recognize the mangled header block that some -Microsoft mailers use to indicate that the rest of the message is a -citation, even though it is not quoted in any way. The variable -`gnus-unsightly-citation-regexp' matches the start of these citations. +Gnus now tries to recognize the mangled header block that some Microsoft +mailers use to indicate that the rest of the message is a citation, even +though it is not quoted in any way. The variable +`gnus-cite-unsightly-citation-regexp' matches the start of these +citations. ** gnus-article-skip-boring Index: ChangeLog =================================================================== RCS file: /usr/local/cvsroot/gnus/ChangeLog,v retrieving revision 6.44 diff -u -r6.44 ChangeLog --- ChangeLog 18 Feb 2003 20:43:17 -0000 6.44 +++ ChangeLog 19 Feb 2003 18:06:58 -0000 @@ -1,3 +1,8 @@ +2003-02-19 Reiner Steib + + * GNUS-NEWS: Renamed `gnus-unsightly-citation-regexp' to + `gnus-cite-unsightly-citation-regexp'. + 2003-02-18 Simon Josefsson * GNUS-NEWS: Talk about canlock more. Index: lisp/gnus-cite.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-cite.el,v retrieving revision 6.22 diff -u -r6.22 gnus-cite.el --- lisp/gnus-cite.el 12 Feb 2003 20:36:45 -0000 6.22 +++ lisp/gnus-cite.el 19 Feb 2003 18:06:58 -0000 @@ -120,7 +120,7 @@ :group 'gnus-cite :type 'regexp) -(defcustom gnus-unsightly-citation-regexp +(defcustom gnus-cite-unsightly-citation-regexp "^-----Original Message-----\nFrom: \\(.+\n\\)+\n" "Regexp matching Microsoft-type rest-of-message citations." :group 'gnus-cite @@ -749,7 +749,7 @@ (setq line (1+ line))) ;; Horrible special case for some Microsoft mailers. (goto-char (point-min)) - (when (re-search-forward gnus-unsightly-citation-regexp max t) + (when (re-search-forward gnus-cite-unsightly-citation-regexp max t) (setq begin (count-lines (point-min) (point))) (setq end (count-lines (point-min) max)) (setq entry nil) Index: lisp/ChangeLog =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v retrieving revision 6.2014 diff -u -r6.2014 ChangeLog --- lisp/ChangeLog 19 Feb 2003 06:55:27 -0000 6.2014 +++ lisp/ChangeLog 19 Feb 2003 18:06:59 -0000 @@ -1,3 +1,9 @@ +2003-02-19 Reiner Steib + + * gnus-cite.el (gnus-cite-unsightly-citation-regexp) + (gnus-cite-parse): Renamed `gnus-unsightly-citation-regexp' to + `gnus-cite-unsightly-citation-regexp'. + 2003-02-19 Katsumi Yamaoka * gnus-msg.el (gnus-copy-article-buffer): Copy an article header