From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/87384 Path: news.gmane.org!.POSTED!not-for-mail From: Uwe Brauer Newsgroups: gmane.emacs.gnus.general Subject: Re: registry and the gnus-summary-line-format Date: Tue, 21 Feb 2017 20:08:44 +0000 Message-ID: <87fuj7z4qb.fsf@mat.ucm.es> References: <87wpcl3lee.fsf@mat.ucm.es> <87fuj96589.fsf@ericabrahamsen.net> <87y3wzhhwi.fsf@mat.ucm.es> <878toztso2.fsf@ericabrahamsen.net> <87wpcjflnr.fsf@mat.ucm.es> <87o9xvs8ce.fsf@ericabrahamsen.net> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: blaine.gmane.org 1487713844 6930 195.159.176.226 (21 Feb 2017 21:50:44 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Tue, 21 Feb 2017 21:50:44 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.0.50 (gnu/linux) To: ding@gnus.org Original-X-From: ding-owner+m35606@lists.math.uh.edu Tue Feb 21 22:50:38 2017 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from mxfilter-048034.atla03.us.yomura.com ([107.189.48.34]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cgIKT-0001LI-7y for ding-account@gmane.org; Tue, 21 Feb 2017 22:50:37 +0100 X-Yomura-MXScrub: 1.0 Original-Received: from lists1.math.uh.edu (unknown [129.7.128.208]) by mxfilter-048034.atla03.us.yomura.com (Halon) with ESMTPS id c358117c-f87f-11e6-b719-b499baa2b07a; Tue, 21 Feb 2017 21:50:30 +0000 (UTC) Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.87) (envelope-from ) id 1cgIJe-0008J3-K7; Tue, 21 Feb 2017 15:49:46 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by lists1.math.uh.edu with esmtps (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256) (Exim 4.87) (envelope-from ) id 1cgGkA-0007Xv-Td for ding@lists.math.uh.edu; Tue, 21 Feb 2017 14:09:02 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtps (TLSv1.2:DHE-RSA-AES128-SHA:128) (Exim 4.87) (envelope-from ) id 1cgGk8-0004ch-Mm for ding@lists.math.uh.edu; Tue, 21 Feb 2017 14:09:02 -0600 Original-Received: from [195.159.176.226] (helo=blaine.gmane.org) by quimby.gnus.org with esmtps (TLS1.2:RSA_AES_128_CBC_SHA1:128) (Exim 4.80) (envelope-from ) id 1cgGk6-0006NB-Kq for ding@gnus.org; Tue, 21 Feb 2017 21:08:58 +0100 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1cgGjs-0006Gf-WB for ding@gnus.org; Tue, 21 Feb 2017 21:08:45 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-Lines: 171 Original-X-Complaints-To: usenet@blaine.gmane.org Mail-Copies-To: never Cancel-Lock: sha1:ntR9ORSv90kDaBO6IuaKKPQAL2Q= List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:87384 Archived-At: --=-=-= Content-Type: text/plain > Uwe Brauer writes: > The `list' was supposed to go outside the plist-get. Here's a version that > uses `char-to-string', which I think is more explicit: > (defun gnus-registry-article-marks-to-chars (headers) > "Show the marks for an article by the :char property." > (let* ((id (mail-header-message-id headers)) > (marks (when id (gnus-registry-get-id-key id 'mark)))) > (mapconcat (lambda (mark) > (char-to-string > (plist-get > (cdr-safe > (assoc mark gnus-registry-marks)) > :char))) > marks ""))) Great!!!! Thanks a lot now it works. You should push that to the git repo (maybe other functions in gnus-registry are buggy as well?) BTW gnus-registry-article-marks-to-names works. Now I got really curious and would like to try gnorb with the registry. For this the manual says to put Add ``%ug'' somewhere appropriate in your `gnus-summary-line-format' However it does not work for me, I obtain an error. I think I sent you a report, I am not sure that we should discuss this here, but one the other hand gnus seems a good place to me. The error is attached below. Uwe --=-=-= Content-Type: text/plain Content-Disposition: inline; filename=gnorb-regist.txt Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (void-function gnus-user-format-function-g) (gnus-user-format-function-g gnus-tmp-header) (format "[%s]%c%c%c%s%d " (gnus-user-format-function-g gnus-tmp-header) g= nus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation (a= ref gnus-tmp-header 0)) (insert (format "[%s]%c%c%c%s%d " (gnus-user-format-function-g gnus-tmp-h= eader) gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indent= ation (aref gnus-tmp-header 0))) (progn (insert (format "[%s]%c%c%c%s%d " (gnus-user-format-function-g gnu= s-tmp-header) gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp= -indentation (aref gnus-tmp-header 0))) (put-text-property (point) (progn (= insert (format "%c %-10s%c" gnus-tmp-opening-bracket (let* ((val ...) (need= ...)) (if (> need 0) (concat nil val ...) val)) gnus-tmp-closing-bracket))= (point)) (quote mouse-face) gnus-mouse-face) (insert (format " %-10s [%-2= 5s%c %s %s %s \n" (let* ((val (eval (let ... ...))) (need (- 10 (string-w= idth val)))) (if (> need 0) (concat nil val (make-string need 32)) val)) (l= et* ((val (eval (if ... ... gnus-tmp-subject-or-nil))) (need (- 25 (string-= width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)) g= nus-tmp-closing-bracket (aref gnus-tmp-header 3) (gnus-summary-line-message= -size gnus-tmp-header) gnus-tmp-lines))) eval((progn (insert (format "[%s]%c%c%c%s%d " (gnus-user-format-function-= g gnus-tmp-header) gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnu= s-tmp-indentation (aref gnus-tmp-header 0))) (put-text-property (point) (pr= ogn (insert (format "%c %-10s%c" gnus-tmp-opening-bracket (let* ((val ...) = (need ...)) (if (> need 0) (concat nil val ...) val)) gnus-tmp-closing-brac= ket)) (point)) (quote mouse-face) gnus-mouse-face) (insert (format " %-10s = [%-25s%c %s %s %s \n" (let* ((val (eval (let ... ...))) (need (- 10 (str= ing-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val= )) (let* ((val (eval (if ... ... gnus-tmp-subject-or-nil))) (need (- 25 (st= ring-width val)))) (if (> need 0) (concat nil val (make-string need 32)) va= l)) gnus-tmp-closing-bracket (aref gnus-tmp-header 3) (gnus-summary-line-me= ssage-size gnus-tmp-header) gnus-tmp-lines)))) gnus-summary-prepare-threads((([36484 "Re: AW: Kreon und die Magenentfern= ung meines Vaters" "Uwe Brauer " #("Mon, 20 Feb 2017 22:24:= 00 +0000" 0 1 (gnus-time (22699 27776))) "<87h93o5wn3.fsf@mat.ucm.es>" "<87= zii5su6o.fsf@mat.ucm.es> <38B6A7795985684D8BF28D19AECBA56F1BB1A03E@mtkvmexc= h2.kliniken-mtk.de>" 2186 33 nil ((Cc . "'Uwe Brauer' ") (T= o . "\"Stelling\\, Anette\" "))]) ([36485 "couri= er" "Uwe Brauer " #("Mon, 20 Feb 2017 23:04:28 +0000" 0 1 (= gnus-time (22699 30204))) "<58AB75FC.3090705@mat.ucm.es>" nil 10127 21 nil = ((To . "Uwe Brauer "))]) ([36486 "gr-qc daily 25 new + 6 cr= osses received 626" "no-reply@arXiv.org (send mail ONLY to gr-qc)" #("Mon, = 20 Feb 2017 20:43:08 -0500" 0 1 (gnus-time (22699 39724))) "<201702210143.v= 1L1h89o011346@lib-arxiv-007.serverfarm.cornell.edu>" nil 55298 1050 nil ((T= o . "rabble@arXiv.org (gr-qc daily title/abstract distribution)"))]) ([3648= 7 "Review received (MR3485413)" "" #("Tue, 21 Feb 2017 00:= 50:06 -0500" 0 1 (gnus-time (22699 54542))) "<20170221055006.63F888E350@ott= o.mr.ams.org>" nil 2884 38 nil ((To . ""))]) ([36488 "math = daily Subj-class mailing 80004 1" "no-reply@arXiv.org (send mail ONLY to ma= th)" #("Tue, 21 Feb 2017 01:32:52 -0500" 0 1 (gnus-time (22699 57108))) "<2= 01702210632.v1L6Wqpm027305@lib-arxiv-007.serverfarm.cornell.edu>" nil 76462= 1440 nil ((To . "rabble@arXiv.org (math daily title/abstract distribution)= "))]) ([36489 "Re: emacs macro" "Anibal Rodriguez Bernal " #= ("Tue, 21 Feb 2017 08:54:39 +0100" 0 1 (gnus-time (22699 62015))) "<4FE3215= 1-2569-4EFD-99D8-6345D6C58462@ucm.es>" "<6EF75718-E551-42BA-A764-847F53359B= FC@ucm.es> <87o9xw4sp3.fsf@mat.ucm.es> <807F640B-07D4-498F-BE00-C1AC6A0A985= 2@ucm.es> <87efys4s9h.fsf@mat.ucm.es>" 13858 -1 nil ((To . "Uwe Brauer "))] ([36491 "Re: emacs macro" "Uwe Brauer " "T= ue, 21 Feb 2017 08:14:05 +0000" "<878tp0x8oi.fsf@mat.ucm.es>" "<6EF75718-E5= 51-42BA-A764-847F53359BFC@ucm.es> <87o9xw4sp3.fsf@mat.ucm.es> <807F640B-07D= 4-498F-BE00-C1AC6A0A9852@ucm.es> <87efys4s9h.fsf@mat.ucm.es> <4FE32151-2569= -4EFD-99D8-6345D6C58462@ucm.es>" 11785 -1 nil ((Cc . "Uwe Brauer ") (To . "Anibal Rodriguez Bernal "))] ([36492 "Re: em= acs macro" "Anibal Rodriguez Bernal " "Tue, 21 Feb 2017 09:1= 8:15 +0100" "" "<6EF75718-E551= -42BA-A764-847F53359BFC@ucm.es> <87o9xw4sp3.fsf@mat.ucm.es> <807F640B-07D4-= 498F-BE00-C1AC6A0A9852@ucm.es> <87efys4s9h.fsf@mat.ucm.es> <4FE32151-2569-4= EFD-99D8-6345D6C58462@ucm.es> <878tp0x8oi.fsf@mat.ucm.es>" 36765 52 nil ((T= o . "Uwe Brauer "))] ([36493 "Re: emacs macro" "Uwe Brauer = " "Tue, 21 Feb 2017 08:39:58 +0000" "<58ABFCDE.2030000@mat.= ucm.es>" "<6EF75718-E551-42BA-A764-847F53359BFC@ucm.es> <87o9xw4sp3.fsf@mat= .ucm.es> <807F640B-07D4-498F-BE00-C1AC6A0A9852@ucm.es> <87efys4s9h.fsf@mat.= ucm.es> <4FE32151-2569-4EFD-99D8-6345D6C58462@ucm.es> <878tp0x8oi.fsf@mat.u= cm.es> " 38598 115 nil ((To . = "Anibal Rodriguez Bernal "))])))) ("Re: ayuda" ([36502 "Re: = ayuda" "Uwe Brauer " #("Tue, 21 Feb 2017 11:59:02 +0000" 0 = 1 (gnus-time (22700 11142))) "<87a89fiwl5.fsf@mat.ucm.es>" "<87ino3izit.fsf= @mat.ucm.es> <58AC2A87.2010704@ucm.es>" 1533 31 nil ((Cc . "Uwe Brauer ") (To . "\"Maria J. Pons\" "))]) ([36503 "Re:= ayuda" "Uwe Brauer " #("Tue, 21 Feb 2017 11:59:45 +0000" 0= 1 (gnus-time (22700 11185))) "<8760k3iwjy.fsf@mat.ucm.es>" "<87ino3izit.fs= f@mat.ucm.es> <58AC2A87.2010704@ucm.es>" 1299 15 nil ((Cc . "Uwe Brauer ") (To . "\"Maria J. Pons\" "))])) ([36509 "R= e: ayuda geo" "Uwe Brauer " #("Tue, 21 Feb 2017 13:04:17 +0= 000" 0 1 (gnus-time (22700 15057))) "<87poibhezy.fsf@mat.ucm.es>" "<87fuj9f= 61j.fsf@mat.ucm.es> <58AC2E90.2070102@ucm.es>" 1595 33 nil ((Cc . "Uwe Brau= er ") (To . "\"Maria J. Pons\" "))]) ([365= 12 "Uwe, a researcher you cited is working on a project: Strong hyperbolic = systems with constraints" "ResearchGate " #(= "Tue, 21 Feb 2017 13:12:48 +0000 (UTC)" 0 1 (gnus-time (22700 15568))) "<20= 170221131248.460042005DCEA@mr75.researchgate.net>" nil 27764 25 nil ((To . = "Uwe Brauer "))]) ([36513 "metodo de euler para geogebra" "= Uwe Brauer " #("Tue, 21 Feb 2017 13:30:15 +0000" 0 1 (gnus-= time (22700 16615))) "<8760k3hdso.fsf@mat.ucm.es>" nil 9655 -1 nil ((Cc . "= Ivorra Benjamin , =3D?utf-8?Q?Mar=3DC3=3DADa_Jes=3DC3=3DBAs_= Pons_Border=3DC3=3DADa?=3D , David Usero Mainer , Rosa Pardo ") (To . "Uwe Brauer "))]) ([36515 "AW: AW: AW: Weitere Terminplanung...." "\"Zahnarztpraxis= dres. Kunz und Wolf\" " #("Tue, 21 Feb 2017 15:12:29 +0= 100" 0 1 (gnus-time (22700 19149))) "<001201d28c4c$89b57760$9d206620$@kunz-= wolf.de>" "<001901d27e27$0960d150$1c2273f0$@kunz-wolf.de> <874m09xag6.fsf@m= at.ucm.es> <000b01d2839e$7466a0c0$5d33e240$@kunz-wolf.de> <87inoib2ee.fsf@m= at.ucm.es> <001201d28694$f789ca10$e69d5e30$@kunz-wolf.de> <87o9xz6x1v.fsf@m= at.ucm.es>" 4434 46 nil ((To . "\"'Uwe Brauer'\" "))]) ([36= 516 "AW: Rechnung" "\"Zahnarztpraxis dres. Kunz und Wolf\" " #("Tue, 21 Feb 2017 15:15:52 +0100" 0 1 (gnus-time (22700 19352))) "<0= 01401d28c4d$0225fc60$0671f520$@kunz-wolf.de>" "<87k28n6wwp.fsf@mat.ucm.es>"= 3663 34 nil ((To . "\"'Uwe Brauer'\" "))]) ([36521 "" "Uwe= Brauer " #("Tue, 21 Feb 2017 18:38:04 +0100" 0 1 (gnus-tim= e (22700 31484))) "" nil 2062 20 nil ((To . "Uwe Brauer "))]))) gnus-summary-prepare() gnus-summary-read-group-1("nnimap+UCMgmail:INBOX" nil t nil nil nil) gnus-summary-read-group("nnimap+UCMgmail:INBOX" nil t nil nil nil nil) gnus-group-read-group(nil t) gnus-group-select-group(nil) gnus-topic-select-group(nil) funcall-interactively(gnus-topic-select-group nil) call-interactively(gnus-topic-select-group nil nil) command-execute(gnus-topic-select-group) --=-=-=--