From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Sebastien Vauban Newsgroups: gmane.emacs.bugs Subject: bug#17462: 24.3.50; bbdb-split: Invalid regexp: "Unmatched [ or [^" Date: Mon, 12 May 2014 10:07:15 +0200 Organization: Sebastien Vauban Message-ID: <86k39rv2rw.fsf@somewhere.org> References: <86wqdskclz.fsf@somewhere.org> <83d2fkuy6i.fsf@gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1399882227 14716 80.91.229.3 (12 May 2014 08:10:27 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 12 May 2014 08:10:27 +0000 (UTC) Cc: 17462-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org-mXXj517/zsQ@public.gmane.org Mon May 12 10:10:21 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1WjlJT-0004lQ-OG for geb-bug-gnu-emacs@m.gmane.org; Mon, 12 May 2014 10:10:19 +0200 Original-Received: from localhost ([::1]:36040 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WjlJT-000572-2z for geb-bug-gnu-emacs@m.gmane.org; Mon, 12 May 2014 04:10:19 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:43633) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WjlJI-00051d-8S for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Mon, 12 May 2014 04:10:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WjlJE-0000SI-2s for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Mon, 12 May 2014 04:10:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:42780) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WjlJE-0000QE-0B for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Mon, 12 May 2014 04:10:04 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1WjlJD-0008Bb-2v for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Mon, 12 May 2014 04:10:03 -0400 X-Loop: help-debbugs-mXXj517/zsQ@public.gmane.org Resent-From: Sebastien Vauban Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs-mXXj517/zsQ@public.gmane.org Resent-Date: Mon, 12 May 2014 08:10:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs-mXXj517/zsQ@public.gmane.org X-GNU-PR-Message: followup 17462 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: moreinfo Original-Received: via spool by 17462-submit-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org id=B17462.139988215631377 (code B ref 17462); Mon, 12 May 2014 08:10:02 +0000 Original-Received: (at 17462) by debbugs.gnu.org; 12 May 2014 08:09:16 +0000 Original-Received: from localhost ([127.0.0.1]:60131 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WjlIR-00089y-4N for submit-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org; Mon, 12 May 2014 04:09:15 -0400 Original-Received: from dd5e0353a.access.telenet.be ([213.224.53.58]:2300 helo=mail.missioncriticalit.com) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WjlIO-00089b-AX for 17462-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org; Mon, 12 May 2014 04:09:13 -0400 Original-Received: from MUNDANEUM.i-did-not-set--mail-host-address--so-tickle-me (unknown [10.10.4.62]) by mail.missioncriticalit.com (Postfix) with ESMTPSA id E9A715001D6; Mon, 12 May 2014 10:09:05 +0200 (CEST) X-Url: Under construction... X-Archive: encrypt In-Reply-To: <83d2fkuy6i.fsf-mXXj517/zsQ@public.gmane.org> (Eli Zaretskii's message of "Sun, 11 May 2014 18:34:13 +0300") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4.50 (windows-nt) X-BeenThere: debbugs-submit-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs-mXXj517/zsQ@public.gmane.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org-mXXj517/zsQ@public.gmane.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org-mXXj517/zsQ@public.gmane.org Xref: news.gmane.org gmane.emacs.bugs:88960 Archived-At: Eli Zaretskii wrote: >> From: Sebastien Vauban >> Date: Sun, 11 May 2014 09:18:00 +0200 >>=20 >> Reading emails within Gnus works for years too, though today I have >> apparently received an email that blocks the access to my "family-new" >> folder. >>=20 >> See http://screencast.com/t/0xCWvhVjj. >>=20 >> The net impact is that I can't open that "family-new" folder anymore... >> [...] >> Recent messages: >> Generating summary... >> bbdb-split: Invalid regexp: "Unmatched [ or [^" > ^^^^^^^^^^ > bbdb-split is not part of Emacs, so why do you think this is an Emacs > problem? I oversaw the fact BBDB wasn't in Emacs, sorry. > In any case, a Lisp backtrace would be nice. --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (invalid-regexp "Unmatched [ or [^") string-match("Name of sender , \"Name of receiver [\"= " " \n") bbdb-split("Name of sender , \"Name of receiver [\" <= hidden-BUHhN+a2lJ4@public.gmane.org>" ",") (length (bbdb-split to ",")) (let ((len (length (bbdb-split to ",")))) (cond ((=3D len 1) "=C2=BB") (t= "T"))) (cond ((and (string-match gnus-ignored-from-addresses to) (fboundp (quote= bbdb-split))) (let ((len (length (bbdb-split to ",")))) (cond ((=3D len 1)= "=C2=BB") (t "T")))) ((and (string-match gnus-ignored-from-addresses (conc= at to ", " cc)) (fboundp (quote bbdb-split))) (if (< (length (bbdb-split (c= oncat to ", " cc) ",")) 5) "C" "*")) (t " ")) (let* ((to (or (cdr (assoc (quote To) (aref header 9))) "")) (cc (or (cdr= (assoc (quote Cc) (aref header 9))) ""))) (cond ((and (string-match gnus-i= gnored-from-addresses to) (fboundp (quote bbdb-split))) (let ((len (length = (bbdb-split to ",")))) (cond ((=3D len 1) "=C2=BB") (t "T")))) ((and (strin= g-match gnus-ignored-from-addresses (concat to ", " cc)) (fboundp (quote bb= db-split))) (if (< (length (bbdb-split (concat to ", " cc) ",")) 5) "C" "*"= )) (t " "))) gnus-user-format-function-r(...) (format "%-15s %s " (let* ((val (eval (let ((val ...)) (if (> ... 15) (if= ... ... ...) val)))) (need (- 15 (string-width val)))) (if (> need 0) (con= cat nil val (make-string need 32)) val)) (gnus-user-format-function-r gnus-= tmp-header)) (insert (format "%-15s %s " (let* ((val (eval (let (...) (if ... ... val)= ))) (need (- 15 (string-width val)))) (if (> need 0) (concat nil val (make-= string need 32)) val)) (gnus-user-format-function-r gnus-tmp-header))) (let (gnus-position) (gnus-add-text-properties (point) (progn (insert gnu= s-tmp-unread) (point)) (cons (quote face) (cons (list (quote leuven-gnus-li= num) (quote default)) (quote (gnus-face t))))) (gnus-add-text-properties (p= oint) (progn (insert gnus-tmp-replied) (point)) (cons (quote face) (cons (l= ist (quote leuven-gnus-org-date) (quote default)) (quote (gnus-face t))))) = (gnus-add-text-properties (point) (progn (insert gnus-tmp-score-char) (poin= t)) (cons (quote face) (cons (list (quote leuven-gnus-score) (quote default= )) (quote (gnus-face t))))) (insert " ") (gnus-add-text-properties (point) = (progn (insert (format "%20s " (gnus-user-date (aref gnus-tmp-header 3)))) = (point)) (cons (quote face) (cons (list (quote leuven-gnus-org-date) (quote= default)) (quote (gnus-face t))))) (insert " ") (gnus-add-text-properties = (point) (progn (insert (format " %4s " (gnus-summary-line-message-size gnus= -tmp-header))) (point)) (cons (quote face) (cons (list (quote leuven-gnus-d= iredp-file-suffix) (quote default)) (quote (gnus-face t))))) (setq gnus-pos= ition (point)) (insert (format "%-15s %s " (let* ((val (eval (let ... ...))= ) (need (- 15 (string-width val)))) (if (> need 0) (concat nil val (make-st= ring need 32)) val)) (gnus-user-format-function-r gnus-tmp-header))) (gnus-= add-text-properties (point) (progn (insert " ") (point)) (cons (quote face)= (cons (list (quote leuven-gnus-linum) (quote default)) (quote (gnus-face t= ))))) (insert (format "%s%s%s\n" gnus-tmp-thread-tree-header-string gnus-tm= p-indentation gnus-tmp-subject-or-nil)) (if gnus-position (gnus-put-text-pr= operty gnus-position (1+ gnus-position) (quote gnus-position) t))) eval((let (gnus-position) (gnus-add-text-properties (point) (progn (inser= t gnus-tmp-unread) (point)) (cons (quote face) (cons (list (quote leuven-gn= us-linum) (quote default)) (quote (gnus-face t))))) (gnus-add-text-properti= es (point) (progn (insert gnus-tmp-replied) (point)) (cons (quote face) (co= ns (list (quote leuven-gnus-org-date) (quote default)) (quote (gnus-face t)= )))) (gnus-add-text-properties (point) (progn (insert gnus-tmp-score-char) = (point)) (cons (quote face) (cons (list (quote leuven-gnus-score) (quote de= fault)) (quote (gnus-face t))))) (insert " ") (gnus-add-text-properties (po= int) (progn (insert (format "%20s " (gnus-user-date (aref gnus-tmp-header 3= )))) (point)) (cons (quote face) (cons (list (quote leuven-gnus-org-date) (= quote default)) (quote (gnus-face t))))) (insert " ") (gnus-add-text-proper= ties (point) (progn (insert (format " %4s " (gnus-summary-line-message-size= gnus-tmp-header))) (point)) (cons (quote face) (cons (list (quote leuven-g= nus-diredp-file-suffix) (quote default)) (quote (gnus-face t))))) (setq gnu= s-position (point)) (insert (format "%-15s %s " (let* ((val (eval (let ... = ...))) (need (- 15 (string-width val)))) (if (> need 0) (concat nil val (ma= ke-string need 32)) val)) (gnus-user-format-function-r gnus-tmp-header))) (= gnus-add-text-properties (point) (progn (insert " ") (point)) (cons (quote = face) (cons (list (quote leuven-gnus-linum) (quote default)) (quote (gnus-f= ace t))))) (insert (format "%s%s%s\n" gnus-tmp-thread-tree-header-string gn= us-tmp-indentation gnus-tmp-subject-or-nil)) (if gnus-position (gnus-put-te= xt-property gnus-position (1+ gnus-position) (quote gnus-position) t)))) gnus-summary-prepare-threads(...) gnus-summary-prepare() gnus-summary-read-group-1("nnimap+mc:INBOX.family-new" nil t nil nil nil) gnus-summary-read-group("nnimap+mc:INBOX.family-new" nil t nil nil nil ni= l) gnus-group-read-group(nil t) gnus-group-select-group(nil) gnus-topic-select-group(nil) call-interactively(gnus-topic-select-group nil nil) command-execute(gnus-topic-select-group) --8<---------------cut here---------------end--------------->8--- IIUC, the sender has put a [ in my display name, and there is no protection against such when matching regexps. Best regards, Seb --=20 Sebastien Vauban