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 18:23:20 +0000 [thread overview]
Message-ID: <87wpcjflnr.fsf@mat.ucm.es> (raw)
In-Reply-To: <878toztso2.fsf@ericabrahamsen.net>
> 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 "")))
And the following gnus-summary format
"[%uM]%U%R%z%I%N %(%[ %-10,10uB%]%) %-10,10~(form (rfc2047-decode-string (gnus-extra-header 'To)))@ [%-25,25s%] %D %k %L \n"
The good thing is the error is gone!
The bad this is the label of say M M t is not displayed
I see
[]O 36485 [ Uwe Braue] Uwe Brauer [courier ] Mon, 20 Feb 2017 23:04:28 +0000 9k 21
But I should see
[T]O 36485 [ Uwe Braue] Uwe Brauer [courier ] Mon, 20 Feb 2017 23:04:28 +0000 9k 21
Or something like this, what do I miss?
Uwe
next prev parent reply other threads:[~2017-02-21 18:23 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 [this message]
2017-02-21 18:32 ` Eric Abrahamsen
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=87wpcjflnr.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).