bug#4978: 23.1.50; Problems with citation highlight in Gnus

[Manoj Srivastava]

Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the emacs-pretest-bug@gnu.org mailing list.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug.  If you can, give
a recipe starting from `emacs -Q':

With gnus-treat-highlight-citation t I get on visiting any article:

Debugger entered--Lisp error: (error "Invalid search bound (wrong side of 
point)")
  re-search-forward("^\\([      ]*[-a-z0-9A-Z]*>+[      ]*\\|[  ]*\\)" 4410 t)
  gnus-cite-parse()
  gnus-cite-parse-wrapper()
  gnus-cite-parse-maybe(nil)
  gnus-article-highlight-citation()
  gnus-treat-article(nil 1 1)
  gnus-display-mime()
  gnus-article-prepare-display()
  gnus-article-prepare(117273 nil)
  gnus-summary-display-article(117273)
  gnus-summary-next-page(nil)
  call-interactively(gnus-summary-next-page nil nil)
  recursive-edit()
  byte-code("\306      @\307=\203!  debug(error (wrong-number-of-arguments 
#[(G43105 funs global args) "\306\307!\306\310!\211\nL\210L\210 J:\203H  
#[(G43105 funs global args) "\306\307!\306\310!\211\nL\210L\210    J:\203H  
apply(#[(G43105 funs global args) "\306\307!\306\310!\211\nL\210L\210      
J:\203H  (lambda (&rest --cl-rest--) (apply #[... 
"\306\307!\306\310!\211\nL\210L\210       J:\203H  apply((lambda (&rest 
--cl-rest--) (apply #[... "\306\307!\306\310!\211\nL\210L\210 J:\203H  
#[(G43105 funs global args) "\306\307!\306\310!\211\nL\210L\210    J:\203H  
apply(#[(G43105 funs global args) "\306\307!\306\310!\211\nL\210L\210      
J:\203H  (lambda (&rest --cl-rest--) (apply #[... 
"\306\307!\306\310!\211\nL\210L\210       J:\203H  #[(G43102 G43103 G43104 
&rest args) "J        JA\nJ#\207" [G43104 G43103 G43102 args] 4](--global-- 
--funs-- ----cl-var--43101--)
  apply(#[(G43102 G43103 G43104 &rest args) "J JA\nJ#\207" [G43104 G43103 
G43102 args] 4] --global-- --funs-- ----cl-var--43101-- nil)
  (lambda (&rest --cl-rest--) (apply #[... "J  JA\nJ#\207" [G43104 G43103 
G43102 args] 4] (quote --global--) (quote --funs--) (quote ----cl-var--43101--) 
--cl-rest--))()
  mail-abbrev-expand-wrapper((lambda (&rest --cl-rest--) (apply #[... "J       
JA\nJ#\207" [G43104 G43103 G43102 args] 4] (quote --global--) (quote --funs--) 
(quote ----cl-var--43101--) --cl-rest--)))
  apply(mail-abbrev-expand-wrapper (lambda (&rest --cl-rest--) (apply #[... "J 
JA\nJ#\207" [G43104 G43103 G43102 args] 4] (quote --global--) (quote --funs--) 
(quote ----cl-var--43101--) --cl-rest--)) nil)
  #[(G43105 funs global args) "\306\307!\306\310!\211\nL\210L\210   J:\203H 
 apply(#[(G43105 funs global args) "\306\307!\306\310!\211\nL\210L\210      
J:\203H  (lambda (&rest --cl-rest--) (apply #[... 
"\306\307!\306\310!\211\nL\210L\210       J:\203H  expand-abbrev()

-- 
Why would anyone want to be called "Later"?
Manoj Srivastava <srivasta@acm.org> <http://www.golden-gryphon.com/>  
1024D/BF24424C print 4966 F272 D093 B493 410B  924B 21BA DABB BF24 424C