registry and the gnus-summary-line-format

registry and the gnus-summary-line-format

[Uwe Brauer]

Hi according to the documentation of gnus-registry.el
I should add ;; Finally, you can put %uM in your summary line format to
show the registry.

now in the relevant custom buffer using  gnus-group-customize
I have 

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

but gnus-summary-line-format is a variable defined in ‘gnus.el’.
Its value is "%U%R%z%I%(%[%4L: %-23,23f%]%) %s
"

I don't understand that, can somebody please explain?

thanks

Uwe Brauer  

Re: registry and the gnus-summary-line-format

[Eric Abrahamsen]

Uwe Brauer <oub@mat.ucm.es> writes:

> Hi according to the documentation of gnus-registry.el
> I should add ;; Finally, you can put %uM in your summary line format to
> show the registry.
>
> now in the relevant custom buffer using  gnus-group-customize
> I have 
>
> 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
>
> but gnus-summary-line-format is a variable defined in ‘gnus.el’.
> Its value is "%U%R%z%I%(%[%4L: %-23,23f%]%) %s
> "
>
> I don't understand that, can somebody please explain?

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!

Yours,
Eric

Re: registry and the gnus-summary-line-format

[Uwe Brauer]

[-- 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)

Re: registry and the gnus-summary-line-format

[Eric Abrahamsen]

Uwe Brauer <oub@mat.ucm.es> writes:

>    > 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.

[...]

> 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:
>
> 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) "")

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

It's trying to mapconcat a bare character (116 or ?t), but mapconcat
requires a string or a list of characters.

I don't see how this ever would have worked, to be honest. Git blame
says the code's been like this since 2011, but supposedly mapconcat
started barfing on integer arguments in Emacs 21.1, in 2001. Anyhow,
wrapping the `plist-get' in a `char-to-string' (or just `list') will fix
it.

I can open a bug report in a bit, if no one leaps in and fixes it.

Eric

Re: registry and the gnus-summary-line-format

[Uwe Brauer]

   > 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

   > It's trying to mapconcat a bare character (116 or ?t), but mapconcat
   > requires a string or a list of characters.

   > I don't see how this ever would have worked, to be honest. Git blame
   > says the code's been like this since 2011, but supposedly mapconcat
   > started barfing on integer arguments in Emacs 21.1, in 2001. Anyhow,
   > wrapping the `plist-get' in a `char-to-string' (or just `list') will fix
   > it.

Excellent I will try this out right now. Thanks

I will then try out the registry with gnorb but this is a different
issue.

Uwe


   > I can open a bug report in a bit, if no one leaps in and fixes it.

   > Eric

Re: registry and the gnus-summary-line-format

[Uwe Brauer]

   > 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 

Re: registry and the gnus-summary-line-format

[Eric Abrahamsen]

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 "")))

Re: registry and the gnus-summary-line-format

[Uwe Brauer]

[-- 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)

Re: registry and the gnus-summary-line-format

[Uwe Brauer]

[-- Attachment #1: Type: text/plain, Size: 939 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 "")))



It seems that my message was not sent (in case of a possible double
posting, sorry)

Great, thanks!! Very much! Now it works as expected. I suggest to push
that change to master!

Now I am getting curious and want to try gnorb with the registry but as
I said is there is a bug of the sort



[-- Attachment #2: gnorb-bug.txt --]
[-- Type: text/plain, Size: 610 bytes --]

Error updating the summary line [2 times]
format: Symbol’s function definition is void: gnus-user-format-function-gInvalid face reference: font-lock-comment-warn-face
Invalid face reference: font-lock-comment-warn-face [19 times]
nnimap read 0k from imap.gmail.com
format: Symbol’s function definition is void: gnus-user-format-function-gInvalid face reference: font-lock-comment-warn-face
Invalid face reference: font-lock-comment-warn-face [3 times]
Updating buffer list...
Formats have changed, recompiling...done
Updating buffer list...done
Commands: m, u, t, RET, g, k, S, D, Q; q to quit; h for help

Re: registry and the gnus-summary-line-format

[Eric Abrahamsen]

Uwe Brauer <oub@mat.ucm.es> writes:

>     > 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?)

Good! There's no longer a separate git repo for Gnus -- it is developed
within the Emacs repository. Unfortunately this means that you won't get
the fix until it's committed to Emacs and then comes back down whatever
pipeline you use to install Emacs.

It also means I'm a wee bit more hesitant about committing directly -- I
have access, but would prefer to open a bug report and get more eyes.
I'll do that in a bit.

> 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.

I did get your other email, but I suppose this is a fine place to work
it out.

If you've loaded gnorb-gnus I don't see how
`gnus-user-format-function-g' could be undefined. That file contains, at
top-level, this form:


(fset (intern (concat "gnus-user-format-function-"
		      gnorb-gnus-summary-mark-format-letter))
      (lambda (header)
	(gnorb-gnus-insert-format-letter-maybe header)))

Which should do the trick.

The various Gnorb pieces are usable independently, meaning you have to
explicitly run (require 'gnorb-gnus). I'm assuming you've done that...
If it still doesn't work, would you eval the snippet above? It will have
to work then!

Eric

Re: registry and the gnus-summary-line-format

[Uwe Brauer]

   > Uwe Brauer <oub@mat.ucm.es> writes:

   > Good! There's no longer a separate git repo for Gnus -- it is developed
   > within the Emacs repository. Unfortunately this means that you won't get
   > the fix until it's committed to Emacs and then comes back down whatever
   > pipeline you use to install Emacs.

   > It also means I'm a wee bit more hesitant about committing directly -- I
   > have access, but would prefer to open a bug report and get more eyes.
   > I'll do that in a bit.

BTW, would it be difficult to implement colors for different registries,
like red for important etc, just asking...

   > I did get your other email, but I suppose this is a fine place to work
   > it out.

   > If you've loaded gnorb-gnus I don't see how
   > `gnus-user-format-function-g' could be undefined. That file contains, at
   > top-level, this form:


   > (fset (intern (concat "gnus-user-format-function-"
   > 		      gnorb-gnus-summary-mark-format-letter))
   >       (lambda (header)
   > 	(gnorb-gnus-insert-format-letter-maybe header)))

   > Which should do the trick.


Right, my gnorb init file was not complete. After the correction the
registry error is gone, I still run into difficulties but I report on
this later.

Uwe 

Re: registry and the gnus-summary-line-format

[Eric Abrahamsen]

Uwe Brauer <oub@mat.ucm.es> writes:

>    > Uwe Brauer <oub@mat.ucm.es> writes:
>
>    > Good! There's no longer a separate git repo for Gnus -- it is developed
>    > within the Emacs repository. Unfortunately this means that you won't get
>    > the fix until it's committed to Emacs and then comes back down whatever
>    > pipeline you use to install Emacs.
>
>    > It also means I'm a wee bit more hesitant about committing directly -- I
>    > have access, but would prefer to open a bug report and get more eyes.
>    > I'll do that in a bit.
>
> BTW, would it be difficult to implement colors for different registries,
> like red for important etc, just asking...

You mean different colors for different marks? I don't suppose that
would be too hard. We could save a different face name in each element
of gnus-registry-marks.

>    > I did get your other email, but I suppose this is a fine place to work
>    > it out.
>
>    > If you've loaded gnorb-gnus I don't see how
>    > `gnus-user-format-function-g' could be undefined. That file contains, at
>    > top-level, this form:
>
>
>    > (fset (intern (concat "gnus-user-format-function-"
>    > 		      gnorb-gnus-summary-mark-format-letter))
>    >       (lambda (header)
>    > 	(gnorb-gnus-insert-format-letter-maybe header)))
>
>    > Which should do the trick.
>
>
> Right, my gnorb init file was not complete. After the correction the
> registry error is gone, I still run into difficulties but I report on
> this later.

Good -- I'll take a look at that other message in a bit.

Eric

Re: registry and the gnus-summary-line-format

[Uwe Brauer]

>>> "Eric" == Eric Abrahamsen <eric@ericabrahamsen.net> writes:

   > Uwe Brauer <oub@mat.ucm.es> writes:
   >> 
   >> BTW, would it be difficult to implement colors for different registries,
   >> like red for important etc, just asking...

   > You mean different colors for different marks? I don't suppose that
   > would be too hard. We could save a different face name in each element
   > of gnus-registry-marks.

Yes this is what I mean

   >> 
   >> Right, my gnorb init file was not complete. After the correction the
   >> registry error is gone, I still run into difficulties but I report on
   >> this later.

   > Good -- I'll take a look at that other message in a bit.

Ok thanks, the bug I found prevents me from looking  into the gnorb registry
feature deeper.

Uwe