From: Eric Abrahamsen <eric@ericabrahamsen.net>
To: ding@gnus.org
Subject: Re: registry and the gnus-summary-line-format
Date: Tue, 21 Feb 2017 10:32:33 -0800 [thread overview]
Message-ID: <87o9xvs8ce.fsf@ericabrahamsen.net> (raw)
In-Reply-To: <87wpcjflnr.fsf@mat.ucm.es>
Uwe Brauer <oub@mat.ucm.es> writes:
> > Uwe Brauer <oub@mat.ucm.es> writes:
>
> > [...]
>
>
> > The error is in:
>
> > #+BEGIN_SRC elisp
> > (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)
> > (plist-get
> > (cdr-safe
> > (assoc mark gnus-registry-marks))
> > :char))
> > marks "")))
> > #+END_SRC
>
>
>
> I tried out
>
> (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)
> (plist-get
> (list
> (cdr-safe
> (assoc mark gnus-registry-marks)))
> :char))
> marks "")))
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 "")))
next prev parent reply other threads:[~2017-02-21 18:32 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 [this message]
2017-02-21 20:08 ` Uwe Brauer
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=87o9xvs8ce.fsf@ericabrahamsen.net \
--to=eric@ericabrahamsen.net \
--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).