Mercurial > hg > xemacs-beta
diff lisp/gnus/gnus-cite.el @ 153:25f70ba0133c r20-3b3
Import from CVS: tag r20-3b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:38:25 +0200 |
| parents | 360340f9fd5f |
| children |
line wrap: on
line diff
--- a/lisp/gnus/gnus-cite.el Mon Aug 13 09:37:21 2007 +0200 +++ b/lisp/gnus/gnus-cite.el Mon Aug 13 09:38:25 2007 +0200 @@ -98,13 +98,14 @@ :group 'gnus-cite :type 'integer) -(defcustom gnus-cite-attribution-prefix "in article\\|in <" +(defcustom gnus-cite-attribution-prefix + "in article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\)," "Regexp matching the beginning of an attribution line." :group 'gnus-cite :type 'regexp) (defcustom gnus-cite-attribution-suffix - "\\(wrote\\|writes\\|said\\|says\\):[ \t]*$" + "\\(\\(wrote\\|writes\\|said\\|says\\|>\\)\\(:\\|\\.\\.\\.\\)\\)[ ]*$" "Regexp matching the end of an attribution line. The text matching the first grouping will be used as a button." :group 'gnus-cite @@ -437,7 +438,8 @@ (setq gnus-cite-prefix-alist nil gnus-cite-attribution-alist nil gnus-cite-loose-prefix-alist nil - gnus-cite-loose-attribution-alist nil))))) + gnus-cite-loose-attribution-alist nil + gnus-cite-article nil))))) (defun gnus-article-hide-citation (&optional arg force) "Toggle hiding of all cited text except attribution lines.