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?