error when entering a gnus group

[Sam Steingold]

HI,
When entering gnus group, I got this error:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Error in syntax_table logic for 
to-the-end intervals")
  looking-at("\\b[[:alpha:]]\\([. ]\\|\\b\\)")
  mail-extr-voodoo(8 15 #<buffer  *canonical address*>)
  mail-extract-address-components(#("\"冯书\" <address@hidden>" 1 3 (charset 
gb18030-2-byte)))
  bbdb-extract-address-components(#("\"冯书\" <address@hidden>" 1 3 (charset 
gb18030-2-byte)))
  bbdb-mua-summary-mark(#("\"冯书\" <address@hidden>" 1 3 (charset 
gb18030-2-byte)))
  gnus-user-format-function-b([4058 "Introduct a BBDB tool:  bbdb-android" 
#("\"冯书\" <address@hidden>" 1 3 (charset gb18030-2-byte)) "Sun, 14 Jun 2015 
06:28:44 +0800" "<address@hidden>" "" 12297 138 "news.gmane.org 
gmane.emacs.bbdb.user:4058" nil])
  (format "%c%4s: %s%-20s %s%c" gnus-tmp-opening-bracket gnus-tmp-lines 
(gnus-user-format-function-b gnus-tmp-header) (let* ((val (eval (let ((val 
(eval (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)))) 
(if (> (string-width val) 20) (if (gnus-lrm-string-p val) (concat 
(gnus-correct-substring val 0 20) #("‎" 0 1 (invisible t))) 
(gnus-correct-substring val 0 20)) val)))) (need (- 20 (string-width val)))) 
(if (> need 0) (concat nil val (make-string need 32)) val)) (gnus-date-iso8601 
(mail-header-date gnus-tmp-header)) gnus-tmp-closing-bracket)
  (insert (format "%c%4s: %s%-20s %s%c" gnus-tmp-opening-bracket gnus-tmp-lines 
(gnus-user-format-function-b gnus-tmp-header) (let* ((val (eval (let ((val 
(eval (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)))) 
(if (> (string-width val) 20) (if (gnus-lrm-string-p val) (concat 
(gnus-correct-substring val 0 20) #("‎" 0 1 (invisible t))) 
(gnus-correct-substring val 0 20)) val)))) (need (- 20 (string-width val)))) 
(if (> need 0) (concat nil val (make-string need 32)) val)) (gnus-date-iso8601 
(mail-header-date gnus-tmp-header)) gnus-tmp-closing-bracket))
  (progn (insert (format "%c%4s: %s%-20s %s%c" gnus-tmp-opening-bracket 
gnus-tmp-lines (gnus-user-format-function-b gnus-tmp-header) (let* ((val (eval 
(let ((val (eval (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header 
gnus-tmp-from)))) (if (> (string-width val) 20) (if (gnus-lrm-string-p val) 
(concat (gnus-correct-substring val 0 20) #("‎" 0 1 (invisible t))) 
(gnus-correct-substring val 0 20)) val)))) (need (- 20 (string-width val)))) 
(if (> need 0) (concat nil val (make-string need 32)) val)) (gnus-date-iso8601 
(mail-header-date gnus-tmp-header)) gnus-tmp-closing-bracket)) (point))
  (put-text-property (point) (progn (insert (format "%c%4s: %s%-20s %s%c" 
gnus-tmp-opening-bracket gnus-tmp-lines (gnus-user-format-function-b 
gnus-tmp-header) (let* ((val (eval (let ((val (eval 
(gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)))) (if (> 
(string-width val) 20) (if (gnus-lrm-string-p val) (concat 
(gnus-correct-substring val 0 20) #("‎" 0 1 (invisible t))) 
(gnus-correct-substring val 0 20)) val)))) (need (- 20 (string-width val)))) 
(if (> need 0) (concat nil val (make-string need 32)) val)) (gnus-date-iso8601 
(mail-header-date gnus-tmp-header)) gnus-tmp-closing-bracket)) (point)) 
'mouse-face gnus-mouse-face)
  (progn (insert gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char 
gnus-tmp-indentation) (put-text-property (point) (progn (insert (format "%c%4s: 
%s%-20s %s%c" gnus-tmp-opening-bracket gnus-tmp-lines 
(gnus-user-format-function-b gnus-tmp-header) (let* ((val (eval (let ((val 
(eval (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)))) 
(if (> (string-width val) 20) (if (gnus-lrm-string-p val) (concat 
(gnus-correct-substring val 0 20) #("‎" 0 1 (invisible t))) 
(gnus-correct-substring val 0 20)) val)))) (need (- 20 (string-width val)))) 
(if (> need 0) (concat nil val (make-string need 32)) val)) (gnus-date-iso8601 
(mail-header-date gnus-tmp-header)) gnus-tmp-closing-bracket)) (point)) 
'mouse-face gnus-mouse-face) (insert " " gnus-tmp-subject-or-nil "\n"))
  eval((progn (insert gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char 
gnus-tmp-indentation) (put-text-property (point) (progn (insert (format "%c%4s: 
%s%-20s %s%c" gnus-tmp-opening-bracket gnus-tmp-lines 
(gnus-user-format-function-b gnus-tmp-header) (let* ((val (eval (let ((val 
(eval (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)))) 
(if (> (string-width val) 20) (if (gnus-lrm-string-p val) (concat 
(gnus-correct-substring val 0 20) #("‎" 0 1 (invisible t))) 
(gnus-correct-substring val 0 20)) val)))) (need (- 20 (string-width val)))) 
(if (> need 0) (concat nil val (make-string need 32)) val)) (gnus-date-iso8601 
(mail-header-date gnus-tmp-header)) gnus-tmp-closing-bracket)) (point)) 
'mouse-face gnus-mouse-face) (insert " " gnus-tmp-subject-or-nil "\n")))
  gnus-summary-prepare-threads(...)
  gnus-summary-prepare()
  gnus-summary-read-group-1("nntp+news.gwene.org:gmane.emacs.bbdb.user" nil t 
nil nil nil)
  gnus-summary-read-group("nntp+news.gwene.org:gmane.emacs.bbdb.user" nil t nil 
nil nil nil)
  gnus-group-read-group(nil t)
  gnus-group-select-group(nil)
  funcall-interactively(gnus-group-select-group nil)
  call-interactively(gnus-group-select-group nil nil)
  command-execute(gnus-group-select-group)
--8<---------------cut here---------------end--------------->8---

the ` *canonical address*` buffer is

--8<---------------cut here---------------start------------->8---
address@hidden
--8<---------------cut here---------------end--------------->8---
(without the newline)

(bbdb-version "3.1.2" "BBDB version 3.1.2")
(emacs-major-version 27)
(emacs-minor-version 0)
(emacs-repository-version "5d7a5ab99ef851d4d8c50a1bbb1fb2034f93bfb7")
(emacs-version "27.0.50" "GNU Emacs 27.0.50 (build 3, 
x86_64-apple-darwin17.4.0, NS appkit-1561.20 Version 10.13.3 (Build 17D47))
 of 2018-02-05")
(gnus-extended-version "Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (darwin)")


-- 
Sam Steingold (http://sds.podval.org/) on darwin Ns 10.3.1561
http://steingoldpsychology.com http://www.childpsy.net
http://www.memritv.org http://memri.org http://thereligionofpeace.com
Which should be served first: the chicken salad or the egg salad?