From unknown Mon Aug 11 21:12:22 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#14903 <14903@debbugs.gnu.org> To: bug#14903 <14903@debbugs.gnu.org> Subject: Status: 24.3.50; keyboard macros are broken in trunk (cl-mismatch error) Reply-To: bug#14903 <14903@debbugs.gnu.org> Date: Tue, 12 Aug 2025 04:12:22 +0000 retitle 14903 24.3.50; keyboard macros are broken in trunk (cl-mismatch err= or) reassign 14903 emacs submitter 14903 Vitalie Spinu severity 14903 normal thanks From debbugs-submit-bounces@debbugs.gnu.org Thu Jul 18 17:16:07 2013 Received: (at submit) by debbugs.gnu.org; 18 Jul 2013 21:16:07 +0000 Received: from localhost ([127.0.0.1]:35806 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UzvYU-0000UR-0F for submit@debbugs.gnu.org; Thu, 18 Jul 2013 17:16:07 -0400 Received: from eggs.gnu.org ([208.118.235.92]:49490) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UzvYQ-0000Td-OO for submit@debbugs.gnu.org; Thu, 18 Jul 2013 17:16:03 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UzvYH-00032x-IT for submit@debbugs.gnu.org; Thu, 18 Jul 2013 17:15:57 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-0.5 required=5.0 tests=BAYES_05,FREEMAIL_FROM, T_DKIM_INVALID autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:48169) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UzvYH-00032t-Fz for submit@debbugs.gnu.org; Thu, 18 Jul 2013 17:15:53 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:51171) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UzvYD-00006A-QT for bug-gnu-emacs@gnu.org; Thu, 18 Jul 2013 17:15:53 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UzvY6-00031I-9p for bug-gnu-emacs@gnu.org; Thu, 18 Jul 2013 17:15:49 -0400 Received: from mail-ee0-x234.google.com ([2a00:1450:4013:c00::234]:38630) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UzvY5-00031C-SX for bug-gnu-emacs@gnu.org; Thu, 18 Jul 2013 17:15:42 -0400 Received: by mail-ee0-f52.google.com with SMTP id c50so2024593eek.11 for ; Thu, 18 Jul 2013 14:15:40 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=from:to:subject:date:message-id:mime-version:content-type :content-transfer-encoding; bh=25RZElfibzGJJGp4YjvpPBF+exF36FZZ3DeoHn6N8/w=; b=PzuEzsdhI+Zno/EGXbmjW9KePMFs/XVMC7cOjIEOFmZBzm0rnM6IRfUj9S2y/AXpSQ TXW+BiMmVS+bOuQ2AVYnnDNoC3hUNub0sY8RtJjD2fGgvoMbZQlTEyLcjE/uzcNnleFe GLX1YJYaB6MgdEGBtzHccn4BPIcPRoN6DXXLipIsRZoXZV4b/8kUJxOtIz+QQ6TjSLwl +1nuP9mSOjygLboKE82979TDV7k/WPncEqCFV/5nbQRP3IvlSSaSzu9wmMnVm1nBMAvY slEvKFboRVJ9yQzY4aO0cdTkMompTyaS3BFXJ6O9qsybeh0jc8Sl9gUsXbnwDdUTkX4B 5Iow== X-Received: by 10.15.110.197 with SMTP id ch45mr12775677eeb.149.1374182140508; Thu, 18 Jul 2013 14:15:40 -0700 (PDT) Received: from localhost (dhcp-077-249-018-128.chello.nl. [77.249.18.128]) by mx.google.com with ESMTPSA id b7sm22185298eef.16.2013.07.18.14.15.39 for (version=TLSv1.2 cipher=RC4-SHA bits=128/128); Thu, 18 Jul 2013 14:15:39 -0700 (PDT) From: Vitalie Spinu To: bug-gnu-emacs@gnu.org Subject: 24.3.50; keyboard macros are broken in trunk (cl-mismatch error) Date: Thu, 18 Jul 2013 23:15:37 +0200 Message-ID: <87zjtjin7q.fsf@gmail.com> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -2.7 (--) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.7 (--) To reproduce C-x ( and record arbitrary macro. Then try C-x e e I am getting: Debugger entered--Lisp error: (error "Bad keyword argument 0") signal(error ("Bad keyword argument 0")) error("Bad keyword argument %s" 0) cl-mismatch([101 end-macro] [101 end-macro] 0 1 1 2) (not (cl-mismatch rest-mac rest-mac 0 bind-len pos (+ bind-len pos))) (while (not (cl-mismatch rest-mac rest-mac 0 bind-len pos (+ bind-len = pos))) (setq times (1+ times)) (setq pos (+ pos bind-len))) (let ((times 1) (pos bind-len)) (while (not (cl-mismatch rest-mac rest= -mac 0 bind-len pos (+ bind-len pos))) (setq times (1+ times)) (setq pos (+= pos bind-len))) (if (> times 1) (progn (setq desc (format "%d*%s" times de= sc)) (setq bind-len (* bind-len times))))) (if (string-match " " desc) nil (let ((times 1) (pos bind-len)) (while= (not (cl-mismatch rest-mac rest-mac 0 bind-len pos (+ bind-len pos))) (set= q times (1+ times)) (setq pos (+ pos bind-len))) (if (> times 1) (progn (se= tq desc (format "%d*%s" times desc)) (setq bind-len (* bind-len times)))))) (let* ((prefix (or (and (integerp (aref rest-mac 0)) (memq (aref rest-= mac 0) mdigs) (memq (key-binding (cl-subseq rest-mac 0 1)) (quote (digit-ar= gument negative-argument))) (let ((i 1)) (while (memq ... ...) (setq i ...)= ) (and (not ...) (prog1 ... ...)))) (and (eq (aref rest-mac 0) 21) (eq (key= -binding [21]) (quote universal-argument)) (let ((i 1)) (while (eq ... 21) = (setq i ...)) (and (not ...) (prog1 ... ...)))) (and (eq (aref rest-mac 0) = 21) (eq (key-binding [21]) (quote universal-argument)) (let ((i 1)) (if (eq= ... 45) (progn ...)) (while (memq ... ...) (setq i ...)) (and (not ...) (p= rog1 ... ...)))))) (bind-len (apply (quote max) 1 (progn (let* ((--cl-var--= maps) (map nil) (b nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq = map ...) (setq b ...) (if b ...) (setq --cl-var-- ...)) (nreverse --cl-var-= -))))) (key (cl-subseq rest-mac 0 bind-len)) (fkey nil) tlen tkey (bind (or= (progn (let* ((--cl-var-- maps) (map nil) (b nil) (--cl-flag-- t) --cl-var= --) (while (and ... ...) (setq --cl-var-- ...)) --cl-var--)) (and (setq fke= y (lookup-key local-function-key-map rest-mac)) (setq tlen fkey tkey (cl-su= bseq rest-mac 0 tlen) fkey (lookup-key local-function-key-map tkey)) (progn= (let* (... ... ... ... --cl-var--) (while ... ...) (if --cl-var-- ... --cl= -var--)))))) (first (aref key 0)) (text (progn (let* ((i bind-len) (--cl-va= r-- (length rest-mac)) (ch nil)) (while (and (< i --cl-var--) (progn ... ..= .)) (setq i (+ i 1))) i))) desc) (if (stringp bind) (setq bind nil)) (cond = ((and (eq bind (quote self-insert-command)) (not prefix) (> text 1) (intege= rp first) (> first 32) (<=3D first maxkey) (/=3D first 92) (progn (if (> te= xt 30) (setq text 30)) (setq desc (concat (cl-subseq rest-mac 0 text))) (if= (string-match "^[ACHMsS]-." desc) (progn (setq text 2) (setq desc ...))) (= not (string-match "^;;\\|^<.*>$\\|^\\\\[0-9]+$\\|^[0-9]+\\*." desc)))) (if = (or (string-match "^\\^.$" desc) (member desc res-words)) (progn (setq desc= (mapconcat (quote char-to-string) desc " ")))) (if verbose (progn (setq bi= nd (format "%s * %d" bind text)))) (setq bind-len text)) ((and (eq bind (qu= ote execute-extended-command)) (> text bind-len) (memq (aref rest-mac text)= (quote (return 13))) (progn (setq desc (concat (cl-subseq rest-mac bind-le= n text))) (commandp (intern-soft desc)))) (if (commandp (intern-soft desc))= (setq bind desc)) (setq desc (format "<<%s>>" desc)) (setq bind-len (1+ te= xt))) (t (setq desc (mapconcat (function (lambda (ch) (cond ... ... ...))) = (or fkey key) " ")))) (if prefix (setq desc (concat (edmacro-sanitize-for-s= tring prefix) desc))) (if (string-match " " desc) nil (let ((times 1) (pos = bind-len)) (while (not (cl-mismatch rest-mac rest-mac 0 bind-len pos (+ bin= d-len pos))) (setq times (1+ times)) (setq pos (+ pos bind-len))) (if (> ti= mes 1) (progn (setq desc (format "%d*%s" times desc)) (setq bind-len (* bin= d-len times)))))) (setq rest-mac (cl-subseq rest-mac bind-len)) (if verbose= (progn (if (equal res "") nil (setq res (concat res "\n"))) (setq res (con= cat res desc)) (if (and bind (or (stringp bind) (symbolp bind))) (progn (se= tq res (concat res (make-string ... 9) ";; " (if ... bind ...))))) (setq le= n 0)) (if (and (> (+ len (length desc) 2) 72) (not one-line)) (progn (setq = res (concat res "\n ")) (setq len 1)) (if (equal res "") nil (setq res (con= cat res " ")) (setq len (1+ len)))) (setq res (concat res desc)) (setq len = (+ len (length desc))))) (while (not (eq (aref rest-mac 0) (quote end-macro))) (let* ((prefix (= or (and (integerp (aref rest-mac 0)) (memq (aref rest-mac 0) mdigs) (memq (= key-binding ...) (quote ...)) (let (...) (while ... ...) (and ... ...))) (a= nd (eq (aref rest-mac 0) 21) (eq (key-binding [21]) (quote universal-argume= nt)) (let (...) (while ... ...) (and ... ...))) (and (eq (aref rest-mac 0) = 21) (eq (key-binding [21]) (quote universal-argument)) (let (...) (if ... .= ..) (while ... ...) (and ... ...))))) (bind-len (apply (quote max) 1 (progn= (let* (... ... ... ...) (while ... ... ... ... ...) (nreverse --cl-var--))= ))) (key (cl-subseq rest-mac 0 bind-len)) (fkey nil) tlen tkey (bind (or (p= rogn (let* (... ... ... ... --cl-var--) (while ... ...) --cl-var--)) (and (= setq fkey (lookup-key local-function-key-map rest-mac)) (setq tlen fkey tke= y (cl-subseq rest-mac 0 tlen) fkey (lookup-key local-function-key-map tkey)= ) (progn (let* ... ... ...))))) (first (aref key 0)) (text (progn (let* ((i= bind-len) (--cl-var-- ...) (ch nil)) (while (and ... ...) (setq i ...)) i)= )) desc) (if (stringp bind) (setq bind nil)) (cond ((and (eq bind (quote se= lf-insert-command)) (not prefix) (> text 1) (integerp first) (> first 32) (= <=3D first maxkey) (/=3D first 92) (progn (if (> text 30) (setq text 30)) (= setq desc (concat ...)) (if (string-match "^[ACHMsS]-." desc) (progn ... ..= .)) (not (string-match "^;;\\|^<.*>$\\|^\\\\[0-9]+$\\|^[0-9]+\\*." desc))))= (if (or (string-match "^\\^.$" desc) (member desc res-words)) (progn (setq= desc (mapconcat ... desc " ")))) (if verbose (progn (setq bind (format "%s= * %d" bind text)))) (setq bind-len text)) ((and (eq bind (quote execute-ex= tended-command)) (> text bind-len) (memq (aref rest-mac text) (quote (retur= n 13))) (progn (setq desc (concat ...)) (commandp (intern-soft desc)))) (if= (commandp (intern-soft desc)) (setq bind desc)) (setq desc (format "<<%s>>= " desc)) (setq bind-len (1+ text))) (t (setq desc (mapconcat (function (lam= bda ... ...)) (or fkey key) " ")))) (if prefix (setq desc (concat (edmacro-= sanitize-for-string prefix) desc))) (if (string-match " " desc) nil (let ((= times 1) (pos bind-len)) (while (not (cl-mismatch rest-mac rest-mac 0 bind-= len pos (+ bind-len pos))) (setq times (1+ times)) (setq pos (+ pos bind-le= n))) (if (> times 1) (progn (setq desc (format "%d*%s" times desc)) (setq b= ind-len (* bind-len times)))))) (setq rest-mac (cl-subseq rest-mac bind-len= )) (if verbose (progn (if (equal res "") nil (setq res (concat res "\n"))) = (setq res (concat res desc)) (if (and bind (or (stringp bind) (symbolp bind= ))) (progn (setq res (concat res ... ";; " ...)))) (setq len 0)) (if (and (= > (+ len (length desc) 2) 72) (not one-line)) (progn (setq res (concat res = "\n ")) (setq len 1)) (if (equal res "") nil (setq res (concat res " ")) (s= etq len (1+ len)))) (setq res (concat res desc)) (setq len (+ len (length d= esc)))))) (let* ((maps (current-active-maps)) (pkeys (quote (end-macro 48 49 50 = 51 52 53 54 55 56 57 45 21 134217773 134217776 134217777 134217778 13421777= 9 134217780 134217781 134217782 134217783 134217784 134217785))) (mdigs (nt= hcdr 13 pkeys)) (maxkey (if edmacro-eight-bits 255 127)) (case-fold-search = nil) (res-words (quote ("NUL" "TAB" "LFD" "RET" "ESC" "SPC" "DEL" "REM"))) = (rest-mac (vconcat macro [end-macro])) (res "") (len 0) (one-line (eq verbo= se 1))) (if one-line (setq verbose nil)) (if (stringp macro) (progn (progn = (let* ((i 0) (--cl-var-- (length macro))) (while (< i --cl-var--) (if (>=3D= ... 128) (progn ...)) (setq i (+ i 1))) nil)))) (while (not (eq (aref rest= -mac 0) (quote end-macro))) (let* ((prefix (or (and (integerp ...) (memq ..= . mdigs) (memq ... ...) (let ... ... ...)) (and (eq ... 21) (eq ... ...) (l= et ... ... ...)) (and (eq ... 21) (eq ... ...) (let ... ... ... ...)))) (bi= nd-len (apply (quote max) 1 (progn (let* ... ... ...)))) (key (cl-subseq re= st-mac 0 bind-len)) (fkey nil) tlen tkey (bind (or (progn (let* ... ... --c= l-var--)) (and (setq fkey ...) (setq tlen fkey tkey ... fkey ...) (progn ..= .)))) (first (aref key 0)) (text (progn (let* (... ... ...) (while ... ...)= i))) desc) (if (stringp bind) (setq bind nil)) (cond ((and (eq bind (quote= self-insert-command)) (not prefix) (> text 1) (integerp first) (> first 32= ) (<=3D first maxkey) (/=3D first 92) (progn (if ... ...) (setq desc ...) (= if ... ...) (not ...))) (if (or (string-match "^\\^.$" desc) (member desc r= es-words)) (progn (setq desc ...))) (if verbose (progn (setq bind ...))) (s= etq bind-len text)) ((and (eq bind (quote execute-extended-command)) (> tex= t bind-len) (memq (aref rest-mac text) (quote ...)) (progn (setq desc ...) = (commandp ...))) (if (commandp (intern-soft desc)) (setq bind desc)) (setq = desc (format "<<%s>>" desc)) (setq bind-len (1+ text))) (t (setq desc (mapc= oncat (function ...) (or fkey key) " ")))) (if prefix (setq desc (concat (e= dmacro-sanitize-for-string prefix) desc))) (if (string-match " " desc) nil = (let ((times 1) (pos bind-len)) (while (not (cl-mismatch rest-mac rest-mac = 0 bind-len pos ...)) (setq times (1+ times)) (setq pos (+ pos bind-len))) (= if (> times 1) (progn (setq desc ...) (setq bind-len ...))))) (setq rest-ma= c (cl-subseq rest-mac bind-len)) (if verbose (progn (if (equal res "") nil = (setq res (concat res "\n"))) (setq res (concat res desc)) (if (and bind (o= r ... ...)) (progn (setq res ...))) (setq len 0)) (if (and (> (+ len ... 2)= 72) (not one-line)) (progn (setq res (concat res "\n ")) (setq len 1)) (if= (equal res "") nil (setq res (concat res " ")) (setq len (1+ len)))) (setq= res (concat res desc)) (setq len (+ len (length desc)))))) res) edmacro-format-keys([101] nil) format-kbd-macro([101] nil) kmacro-call-macro(nil nil) kmacro-end-and-call-macro(nil) call-interactively(kmacro-end-and-call-macro nil nil) command-execute(kmacro-end-and-call-macro) =20=20=20 And that is reasonable error given that cl-mismatch call is wrong: =E2=95=AD=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80= =E2=94=80 #564 =E2=94=80 /home/vitoshka/bin/emacs-trunk/lisp/edmacro.el =E2= =94=80=E2=94=80 =E2=94=82 (while (not (cl-mismatch rest-mac rest-mac =E2=94=82 0 bind-len pos (+ bind-l= en pos))) =E2=94=82 (cl-incf times) =E2=94=82 (cl-incf pos bind-len)) =E2=95=B0=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80= =E2=94=80 #567 =E2=94=80 =20=20=20 Commenting this while loop solves the problem for me, but I don't understand the code even a bit. Vitalie In GNU Emacs 24.3.50.5 (i686-pc-linux-gnu, X toolkit, Xaw scroll bars) of 2013-07-18 on vitoshka-OptiPlex-745 Windowing system distributor `The X.Org Foundation', version 11.0.11303000 System Description: Ubuntu 13.04 Important settings: value of $LC_MONETARY: nl_NL.UTF-8 value of $LC_NUMERIC: nl_NL.UTF-8 value of $LC_TIME: nl_NL.UTF-8 value of $LANG: en_US.UTF-8 locale-coding-system: utf-8-unix default enable-multibyte-characters: t From debbugs-submit-bounces@debbugs.gnu.org Thu Jul 18 18:07:17 2013 Received: (at 14903) by debbugs.gnu.org; 18 Jul 2013 22:07:17 +0000 Received: from localhost ([127.0.0.1]:35917 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UzwM0-0002fo-U2 for submit@debbugs.gnu.org; Thu, 18 Jul 2013 18:07:17 -0400 Received: from fencepost.gnu.org ([208.118.235.10]:34307 ident=Debian-exim) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UzwLx-0002fc-Mp for 14903@debbugs.gnu.org; Thu, 18 Jul 2013 18:07:15 -0400 Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1UzwLw-0000rz-K6; Thu, 18 Jul 2013 18:07:12 -0400 From: Glenn Morris To: Vitalie Spinu Subject: Re: bug#14903: 24.3.50; keyboard macros are broken in trunk (cl-mismatch error) References: <87zjtjin7q.fsf@gmail.com> X-Spook: PET fundamentalist pipeline quiche MD4 Downing Street X-Ran: sD\A57S8/:q,xvKj2h+8EBIB,|&Odc$P^$D*jb&m`0ud&kw=V@\ct]K-9qzi!*qNgC9mN* X-Hue: magenta X-Debbugs-No-Ack: yes X-Attribution: GM Date: Thu, 18 Jul 2013 18:07:12 -0400 In-Reply-To: <87zjtjin7q.fsf@gmail.com> (Vitalie Spinu's message of "Thu, 18 Jul 2013 23:15:37 +0200") Message-ID: <91txjr4j5b.fsf@fencepost.gnu.org> User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Spam-Score: -5.3 (-----) X-Debbugs-Envelope-To: 14903 Cc: 14903@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.3 (-----) Dupe of already fixed http://debbugs.gnu.org/cgi/bugreport.cgi?bug=14873 From debbugs-submit-bounces@debbugs.gnu.org Thu Jul 18 18:07:38 2013 Received: (at control) by debbugs.gnu.org; 18 Jul 2013 22:07:38 +0000 Received: from localhost ([127.0.0.1]:35920 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UzwMM-0002h1-EM for submit@debbugs.gnu.org; Thu, 18 Jul 2013 18:07:38 -0400 Received: from fencepost.gnu.org ([208.118.235.10]:34311 ident=Debian-exim) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UzwMK-0002gr-KP for control@debbugs.gnu.org; Thu, 18 Jul 2013 18:07:36 -0400 Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1UzwMK-0000tp-CB for control@debbugs.gnu.org; Thu, 18 Jul 2013 18:07:36 -0400 Date: Thu, 18 Jul 2013 18:07:36 -0400 Message-Id: Subject: control message for bug 14903 To: X-Mailer: mail (GNU Mailutils 2.1) From: Glenn Morris X-Spam-Score: -5.3 (-----) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.3 (-----) forcemerge 14873 14903 From unknown Mon Aug 11 21:12:22 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Fri, 16 Aug 2013 11:24:04 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator