From: Uwe Brauer <oub@mat.ucm.es>
To: ding@gnus.org
Subject: Re: registry and the gnus-summary-line-format
Date: Tue, 21 Feb 2017 20:08:44 +0000 [thread overview]
Message-ID: <87fuj7z4qb.fsf@mat.ucm.es> (raw)
In-Reply-To: <87o9xvs8ce.fsf@ericabrahamsen.net>
[-- Attachment #1: Type: text/plain, Size: 1229 bytes --]
> Uwe Brauer <oub@mat.ucm.es> 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
[-- Attachment #2: gnorb-regist.txt --]
[-- Type: text/plain, Size: 8552 bytes --]
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) gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation (aref gnus-tmp-header 0))
(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 gnus-tmp-indentation (aref gnus-tmp-header 0)))
(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 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 [%-25s%c %s %s %s \n" (let* ((val (eval (let ... ...))) (need (- 10 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)) (let* ((val (eval (if ... ... gnus-tmp-subject-or-nil))) (need (- 25 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)) gnus-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 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 [%-25s%c %s %s %s \n" (let* ((val (eval (let ... ...))) (need (- 10 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)) (let* ((val (eval (if ... ... gnus-tmp-subject-or-nil))) (need (- 25 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)) gnus-tmp-closing-bracket (aref gnus-tmp-header 3) (gnus-summary-line-message-size gnus-tmp-header) gnus-tmp-lines))))
gnus-summary-prepare-threads((([36484 "Re: AW: Kreon und die Magenentfernung meines Vaters" "Uwe Brauer <oub@mat.ucm.es>" #("Mon, 20 Feb 2017 22:24:00 +0000" 0 1 (gnus-time (22699 27776))) "<87h93o5wn3.fsf@mat.ucm.es>" "<87zii5su6o.fsf@mat.ucm.es> <38B6A7795985684D8BF28D19AECBA56F1BB1A03E@mtkvmexch2.kliniken-mtk.de>" 2186 33 nil ((Cc . "'Uwe Brauer' <oub@mat.ucm.es>") (To . "\"Stelling\\, Anette\" <astelling@kliniken-mtk.de>"))]) ([36485 "courier" "Uwe Brauer <oub@mat.ucm.es>" #("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 <oub@mat.ucm.es>"))]) ([36486 "gr-qc daily 25 new + 6 crosses 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.v1L1h89o011346@lib-arxiv-007.serverfarm.cornell.edu>" nil 55298 1050 nil ((To . "rabble@arXiv.org (gr-qc daily title/abstract distribution)"))]) ([36487 "Review received (MR3485413)" "<mathrev@ams.org>" #("Tue, 21 Feb 2017 00:50:06 -0500" 0 1 (gnus-time (22699 54542))) "<20170221055006.63F888E350@otto.mr.ams.org>" nil 2884 38 nil ((To . "<oub@mat.ucm.es>"))]) ([36488 "math daily Subj-class mailing 80004 1" "no-reply@arXiv.org (send mail ONLY to math)" #("Tue, 21 Feb 2017 01:32:52 -0500" 0 1 (gnus-time (22699 57108))) "<201702210632.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 <arober@ucm.es>" #("Tue, 21 Feb 2017 08:54:39 +0100" 0 1 (gnus-time (22699 62015))) "<4FE32151-2569-4EFD-99D8-6345D6C58462@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>" 13858 -1 nil ((To . "Uwe Brauer <oub@mat.ucm.es>"))] ([36491 "Re: emacs macro" "Uwe Brauer <oub@mat.ucm.es>" "Tue, 21 Feb 2017 08:14:05 +0000" "<878tp0x8oi.fsf@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>" 11785 -1 nil ((Cc . "Uwe Brauer <oub@mat.ucm.es>") (To . "Anibal Rodriguez Bernal <arober@ucm.es>"))] ([36492 "Re: emacs macro" "Anibal Rodriguez Bernal <arober@ucm.es>" "Tue, 21 Feb 2017 09:18:15 +0100" "<BD0D92DB-4F4F-4D8E-8BB3-76138FF69C7F@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.ucm.es>" 36765 52 nil ((To . "Uwe Brauer <oub@mat.ucm.es>"))] ([36493 "Re: emacs macro" "Uwe Brauer <oub@mat.ucm.es>" "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.ucm.es> <BD0D92DB-4F4F-4D8E-8BB3-76138FF69C7F@ucm.es>" 38598 115 nil ((To . "Anibal Rodriguez Bernal <arober@ucm.es>"))])))) ("Re: ayuda" ([36502 "Re: ayuda" "Uwe Brauer <oub@mat.ucm.es>" #("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 <oub@mat.ucm.es>") (To . "\"Maria J. Pons\" <mjponsbo@ucm.es>"))]) ([36503 "Re: ayuda" "Uwe Brauer <oub@mat.ucm.es>" #("Tue, 21 Feb 2017 11:59:45 +0000" 0 1 (gnus-time (22700 11185))) "<8760k3iwjy.fsf@mat.ucm.es>" "<87ino3izit.fsf@mat.ucm.es> <58AC2A87.2010704@ucm.es>" 1299 15 nil ((Cc . "Uwe Brauer <oub@mat.ucm.es>") (To . "\"Maria J. Pons\" <mjponsbo@ucm.es>"))])) ([36509 "Re: ayuda geo" "Uwe Brauer <oub@mat.ucm.es>" #("Tue, 21 Feb 2017 13:04:17 +0000" 0 1 (gnus-time (22700 15057))) "<87poibhezy.fsf@mat.ucm.es>" "<87fuj9f61j.fsf@mat.ucm.es> <58AC2E90.2070102@ucm.es>" 1595 33 nil ((Cc . "Uwe Brauer <oub@mat.ucm.es>") (To . "\"Maria J. Pons\" <mjponsbo@ucm.es>"))]) ([36512 "Uwe, a researcher you cited is working on a project: Strong hyperbolic systems with constraints" "ResearchGate <no-reply@researchgatemail.net>" #("Tue, 21 Feb 2017 13:12:48 +0000 (UTC)" 0 1 (gnus-time (22700 15568))) "<20170221131248.460042005DCEA@mr75.researchgate.net>" nil 27764 25 nil ((To . "Uwe Brauer <oub@mat.ucm.es>"))]) ([36513 "metodo de euler para geogebra" "Uwe Brauer <oub@mat.ucm.es>" #("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 <ivorra@ucm.es>, =?utf-8?Q?Mar=C3=ADa_Jes=C3=BAs_Pons_Border=C3=ADa?= <mjponsbo@ucm.es>, David Usero Mainer <umdavid@mat.ucm.es>, Rosa Pardo <rpardo@mat.ucm.es>") (To . "Uwe Brauer <oub@mat.ucm.es>"))]) ([36515 "AW: AW: AW: Weitere Terminplanung...." "\"Zahnarztpraxis dres. Kunz und Wolf\" <info@kunz-wolf.de>" #("Tue, 21 Feb 2017 15:12:29 +0100" 0 1 (gnus-time (22700 19149))) "<001201d28c4c$89b57760$9d206620$@kunz-wolf.de>" "<001901d27e27$0960d150$1c2273f0$@kunz-wolf.de> <874m09xag6.fsf@mat.ucm.es> <000b01d2839e$7466a0c0$5d33e240$@kunz-wolf.de> <87inoib2ee.fsf@mat.ucm.es> <001201d28694$f789ca10$e69d5e30$@kunz-wolf.de> <87o9xz6x1v.fsf@mat.ucm.es>" 4434 46 nil ((To . "\"'Uwe Brauer'\" <oub@mat.ucm.es>"))]) ([36516 "AW: Rechnung" "\"Zahnarztpraxis dres. Kunz und Wolf\" <info@kunz-wolf.de>" #("Tue, 21 Feb 2017 15:15:52 +0100" 0 1 (gnus-time (22700 19352))) "<001401d28c4d$0225fc60$0671f520$@kunz-wolf.de>" "<87k28n6wwp.fsf@mat.ucm.es>" 3663 34 nil ((To . "\"'Uwe Brauer'\" <oub@mat.ucm.es>"))]) ([36521 "" "Uwe Brauer <oub@mat.ucm.es>" #("Tue, 21 Feb 2017 18:38:04 +0100" 0 1 (gnus-time (22700 31484))) "<CABUPoZjOD_9aHk02nBPz07NN0P7pnPJ=8JyMkCMmABGc9ho=Fw@mail.gmail.com>" nil 2062 20 nil ((To . "Uwe Brauer <oub@mat.ucm.es>"))])))
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)
next prev parent reply other threads:[~2017-02-21 20:08 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-02-19 21:45 Uwe Brauer
2017-02-20 1:06 ` Eric Abrahamsen
2017-02-21 12:01 ` Uwe Brauer
2017-02-21 16:28 ` Eric Abrahamsen
2017-02-21 18:18 ` Uwe Brauer
2017-02-21 18:23 ` Uwe Brauer
2017-02-21 18:32 ` Eric Abrahamsen
2017-02-21 20:08 ` Uwe Brauer [this message]
2017-02-22 0:34 ` Eric Abrahamsen
2017-02-22 9:25 ` Uwe Brauer
2017-02-22 16:59 ` Eric Abrahamsen
2017-02-22 17:38 ` Uwe Brauer
2017-02-21 21:49 ` Uwe Brauer
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87fuj7z4qb.fsf@mat.ucm.es \
--to=oub@mat.ucm.es \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).