error when entering a gnus group

Sam Steingold <[email protected]>
Newsgroups gmane.emacs.bbdb.user
Message-ID <[email protected]>
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(#("\"冯书\" <[email protected]>" 1 3 (charset gb18030-2-byte)))
  bbdb-extract-address-components(#("\"冯书\" <[email protected]>" 1 3 (charset gb18030-2-byte)))
  bbdb-mua-summary-mark(#("\"冯书\" <[email protected]>" 1 3 (charset gb18030-2-byte)))
  gnus-user-format-function-b([4058 "Introduct a BBDB tool:  bbdb-android" #("\"冯书\" <[email protected]>" 1 3 (charset gb18030-2-byte)) "Sun, 14 Jun 2015 06:28:44 +0800" "<[email protected]>" "" 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---
[email protected]
--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?
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.