Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-cite.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 360340f9fd5f
children
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
96 (defcustom gnus-cite-minimum-match-count 2 96 (defcustom gnus-cite-minimum-match-count 2
97 "Minimum number of identical prefixes before we believe it's a citation." 97 "Minimum number of identical prefixes before we believe it's a citation."
98 :group 'gnus-cite 98 :group 'gnus-cite
99 :type 'integer) 99 :type 'integer)
100 100
101 (defcustom gnus-cite-attribution-prefix "in article\\|in <" 101 (defcustom gnus-cite-attribution-prefix
102 "in article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),"
102 "Regexp matching the beginning of an attribution line." 103 "Regexp matching the beginning of an attribution line."
103 :group 'gnus-cite 104 :group 'gnus-cite
104 :type 'regexp) 105 :type 'regexp)
105 106
106 (defcustom gnus-cite-attribution-suffix 107 (defcustom gnus-cite-attribution-suffix
107 "\\(wrote\\|writes\\|said\\|says\\):[ \t]*$" 108 "\\(\\(wrote\\|writes\\|said\\|says\\|>\\)\\(:\\|\\.\\.\\.\\)\\)[ ]*$"
108 "Regexp matching the end of an attribution line. 109 "Regexp matching the end of an attribution line.
109 The text matching the first grouping will be used as a button." 110 The text matching the first grouping will be used as a button."
110 :group 'gnus-cite 111 :group 'gnus-cite
111 :type 'regexp) 112 :type 'regexp)
112 113
435 (set-marker (caar marks) nil)) 436 (set-marker (caar marks) nil))
436 ;; All this information is now incorrect. 437 ;; All this information is now incorrect.
437 (setq gnus-cite-prefix-alist nil 438 (setq gnus-cite-prefix-alist nil
438 gnus-cite-attribution-alist nil 439 gnus-cite-attribution-alist nil
439 gnus-cite-loose-prefix-alist nil 440 gnus-cite-loose-prefix-alist nil
440 gnus-cite-loose-attribution-alist nil))))) 441 gnus-cite-loose-attribution-alist nil
442 gnus-cite-article nil)))))
441 443
442 (defun gnus-article-hide-citation (&optional arg force) 444 (defun gnus-article-hide-citation (&optional arg force)
443 "Toggle hiding of all cited text except attribution lines. 445 "Toggle hiding of all cited text except attribution lines.
444 See the documentation for `gnus-article-highlight-citation'. 446 See the documentation for `gnus-article-highlight-citation'.
445 If given a negative prefix, always show; if given a positive prefix, 447 If given a negative prefix, always show; if given a positive prefix,