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 12:01:33 +0000 [thread overview]
Message-ID: <87y3wzhhwi.fsf@mat.ucm.es> (raw)
In-Reply-To: <87fuj96589.fsf@ericabrahamsen.net>
[-- Attachment #1: Type: text/plain, Size: 1678 bytes --]
> Uwe Brauer <oub@mat.ucm.es> writes:
> I'm not entirely sure what you're asking, but you have two options here:
> set a global gnus-summary-line-format variable, that applies to all
> groups, and also set a per-group (ie "group local") summary line that
> only applies to that one group, and overrides the global value.
> In the customization "screenshots" above, the top entry is specific to
> one group. The second is the value that applies to all groups.
> If that doesn't clear things up, you might need to rephrase your
> question!
Ok, I was mistaken. I want gnus-summary-line-format to be different for
my mail and the newsgroup.
That is why I use topic groups, so all my mail is organized like
[ Mail 809073 ]
* 0: nnimap+gmail:[Gmail]/Starred
* 0: UCM-Flags-Starred
[ Imap_UCM_Gmail 809073 ]
* 0: nnimap+UCMgmail:INBOX
* 0: nnimap+UCMgmail:Maria
* 0: nnimap+UCMgmail:MBOX
Etc etc.
So when I customize the gnus-summary-line-format variable in
[ Mail 809073 ]
all the subgroups have the same line format.
However the registry does not work that is I set
Variables:
Set variables local to the group you are entering. More
INS DEL Variable: gnus-summary-line-format
Value:
"[%uM]%U%R%z%I%N %(%[ %-10,10uB%]%) %-10,10~(form (rfc2047-decode-string (gnus-extra-header 'To)))@ [%-25,25s%] %D %k %L \n"
INS
Note the []
then the messages after restart are displayed such as
[]O 36485 [ Uwe Braue] Uwe Brauer [courier ] Mon, 20 Feb 2017 23:04:28 +0000 9k 21
But when I want to add a registry label I obtain that error:
[-- Attachment #2: regist-bug.txt --]
[-- Type: text/plain, Size: 3624 bytes --]
Debugger entered--Lisp error: (wrong-type-argument sequencep 116)
mapconcat(#[(mark) "\302\303\b \"\243\304\"\207" [mark gnus-registry-marks plist-get assoc :char] 4] (To-Do) "")
gnus-user-format-function-M([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>"))])
(format "[%s]%c%c%c%s%d " (gnus-user-format-function-M 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-M 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-M 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-M 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((([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>"))])))
gnus-rebuild-thread("<58AB75FC.3090705@mat.ucm.es>" nil)
gnus-summary-insert-subject("<58AB75FC.3090705@mat.ucm.es>" [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>"))])
gnus-summary-update-article(36485 (36485 79 7726 [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>"))] 0))
gnus-registry--set/remove-mark(To-Do nil (36485))
gnus-registry-set-article-To-Do-mark(36485)
funcall-interactively(gnus-registry-set-article-To-Do-mark 36485)
call-interactively(gnus-registry-set-article-To-Do-mark nil nil)
command-execute(gnus-registry-set-article-To-Do-mark)
next prev parent reply other threads:[~2017-02-21 12:01 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 [this message]
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
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=87y3wzhhwi.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).