Folded subject line with inserted Keywords line

Folded subject line with inserted Keywords line

[Harry Putnam]

I sometimes insert a `^Keywords: WORD1 WORD2' sort of line into the
headers of news or mail I want to be able to find certain things again
at some other time.

And have included `^Keywords:' into `gnus-visible-headers'
Once a message is opened the `Keywords:' line is visible.

Most of them I keep in a certain group.

I'd like to do something so that in that group, I can see that
`keywords' line in summary view.  I'm thinking one could create a
folded Subject line from the Subject line and the Keywords line.

And somehow make messages display the 2 lines in summary view.  So
that my summary view instead of this:

  5O  18-Sep [  12: Steinar Bang        ] Re: .newsrc.eld is a black hole for old groups
  4O  19-Sep [  62: Reiner Steib        ] Re: nnimap and searching articles by message-id
  1O  19-Sep [  32: Reiner Steib        ] gnus-load re (was:[...](-ed HP)

Assuming I've inserted keywords lines, Would look like:

  5O  18-Sep [  12: Steinar Bang        ] Re: .newsrc.eld is a black hole for old groups
                                          Keywords: word1 word2 [...]
  4O  19-Sep [  62: Reiner Steib        ] Re: nnimap and searching articles by message-id
                                          Keywords: word1 word2 [...]
  1O  19-Sep [  32: Reiner Steib        ] gnus-load re (was:[...](-ed HP)
                                          Keywords: word1 word2 [...]

That might get kind of messy in general use... but in the single group
I use for this, there will rarely be more than one message per thread,
if there are they would have been sent to this group after `S O p'..
(`gnus-uu-digest-post-forward')

Re: Folded subject line with inserted Keywords line

[Reiner Steib]

On Sat, Oct 03 2009, Harry Putnam wrote:

> I'd like to do something so that in that group, I can see that
> `keywords' line in summary view.  I'm thinking one could create a
> folded Subject line from the Subject line and the Keywords line.
[...]
>   5O  18-Sep [  12: Steinar Bang        ] Re: .newsrc.eld is a black hole for old groups
>                                           Keywords: word1 word2 [...]

You can use a gnus-user-format-function-X to do this.  Here's an
(untested!) sketch to get you started:

(defun rs-gnus-summary-line-keywords (header)
  "Display keywords of message in summary line.

This function is intended to be used in `gnus-summary-line-format-alist', with
\(defalias 'gnus-user-format-function-X 'rs-gnus-summary-line-keywords).
See (info \"(gnus)Group Line Specification\").

You need to add `Keywords' to `nnmail-extra-headers' and
`gnus-extra-headers', see Info node `(gnus)To From Newsgroups'."
  (let ((case-fold-search t)
	(keywords (or (cdr (assq 'Keywords (mail-header-extra header)))
		     "")))
    (if keywords
	(format "\n                           %s" keywords)
      "")))

(defalias 'gnus-user-format-function-keywords 'rs-gnus-summary-line-keywords)

Then add "%u&keywords;" to the end of your `gnus-summary-line-format'
for that group.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: Folded subject line with inserted Keywords line

[Harry Putnam]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> On Sat, Oct 03 2009, Harry Putnam wrote:
>
>> I'd like to do something so that in that group, I can see that
>> `keywords' line in summary view.  I'm thinking one could create a
>> folded Subject line from the Subject line and the Keywords line.
> [...]
>>   5O  18-Sep [  12: Steinar Bang        ] Re: .newsrc.eld is a black hole for old groups
>>                                           Keywords: word1 word2 [...]
>
> You can use a gnus-user-format-function-X to do this.  Here's an
> (untested!) sketch to get you started:

Thanks for the tips...
I'm probably doing this all wrong... I checked a few things you
mention and added the part to summary-line-format, you recommended.
(Explained better below) but then I have a serious problem opening a
group. 

> (defun rs-gnus-summary-line-keywords (header)
>   "Display keywords of message in summary line.
>
> This function is intended to be used in `gnus-summary-line-format-alist', with
> \(defalias 'gnus-user-format-function-X 'rs-gnus-summary-line-keywords).
> See (info \"(gnus)Group Line Specification\").
>
> You need to add `Keywords' to `nnmail-extra-headers' and
> `gnus-extra-headers', see Info node `(gnus)To From Newsgroups'."

That part seems to have been taken care of some how, maybe by:
(setq gnus-visible-headers
"^From:\\|^Subject:\\|^To:\\|^Date:\\|^Message-ID:\\|^X-Spam-Status:\\|^X-HP.*:\\|^Newsgroup:\\|^X-Newsgroups:\\|^Keyword:\\|^Gnus-Warning:")

Or maybe from somewhere else because those variable do not show all of
those.

But at least C-h v on either `nnmail-extra-headers' or 
`gnus-extra-headers' shows:
  Its value is 
  (To Newsgroup Keywords)

>   (let ((case-fold-search t)
> 	(keywords (or (cdr (assq 'Keywords (mail-header-extra header)))
> 		     "")))
>     (if keywords
> 	(format "\n                           %s" keywords)
>       "")))
>
> (defalias 'gnus-user-format-function-keywords 'rs-gnus-summary-line-keywords)
>
> Then add "%u&keywords;" to the end of your `gnus-summary-line-format'
> for that group.

For me, that leaves a setting like:
"%O%2t%U%R%7d%z%I%(%[%4L: %-20,20f%]%) %s %u&keywords;\n"

(After adding to gnus-summary-line-format and setting for current
session with customize... I then did `C-h v' on
`gnus-summary-line-format'  to get the value listed above)

I suspect that summary line is the culprit but don't know enough about
it to tell.

Anyway, with the settings above and having `eval'd region' on your
code, when opening a group gnus goes thru the opening of a group
routine up to the point where it says something like 
`summary [...] done'...  But then the group never opens and I see the
clock for a cursor... ... nothing more happens... ever.

Re: Folded subject line with inserted Keywords line

[Harry Putnam]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

>> I'd like to do something so that in that group, I can see that
>> `keywords' line in summary view.  I'm thinking one could create a
>> folded Subject line from the Subject line and the Keywords line.
> [...]
>>   5O  18-Sep [  12: Steinar Bang        ] Re: .newsrc.eld is a black hole for old groups
>>                                           Keywords: word1 word2 [...]
>
> You can use a gnus-user-format-function-X to do this.  Here's an
> (untested!) sketch to get you started:

Reiner, I meant to send this backtrace with my report:

Optained by trying to inter a group from group buffer.

Debugger entered--Lisp error: (quit)
  gnus-summary-go-to-next-thread(nil)
  gnus-summary-next-thread(1 t)
  gnus-summary-hide-all-threads(nil)
  gnus-summary-maybe-hide-threads()
  gnus-summary-read-group-1("gmane.emacs.gnus.general" nil t nil nil nil)
  gnus-summary-read-group("gmane.emacs.gnus.general" nil t nil nil nil nil)
  gnus-group-read-group(nil t)
  gnus-group-select-group(nil)
  gnus-topic-select-group(nil)
  call-interactively(gnus-topic-select-group nil nil)
  recursive-edit()
  byte-code("\306\x10	@\307=\203!

More info please WAS Re: Folded subject line [...]

[Harry Putnam]

Sorry to be dog about this... but I'm not getting how to do this... I
think this thread may have just died a quiet death so trying to
resurrect it here with a repost of my questions and Reiners input.
Reiner Steib <reinersteib+gmane@imap.cc> writes:

-------        ---------       ---=---       ---------      --------
Reprint of:

From: Harry Putnam <reader@newsguy.com>
Subject: Re: Folded subject line with inserted Keywords line
Newsgroups: gmane.emacs.gnus.general
To: ding@gnus.org
Date: Sat, 03 Oct 2009 12:05:53 -0500
Message-ID: <87ske0z9u6.fsf@newsguy.com>

> On Sat, Oct 03 2009, Harry Putnam wrote:
>
>> I'd like to do something so that in that group, I can see that
>> `keywords' line in summary view.  I'm thinking one could create a
>> folded Subject line from the Subject line and the Keywords line.
> [...]
>>   5O  18-Sep [  12: Steinar Bang        ] Re: .newsrc.eld is a black hole for old groups
>>                                           Keywords: word1 word2 [...]
>
> You can use a gnus-user-format-function-X to do this.  Here's an
> (untested!) sketch to get you started:

Thanks for the tips...
I'm probably doing this all wrong... I checked a few things you
mention and added the part to summary-line-format, you recommended.
(Explained better below) but then I have a serious problem opening a
group. 

> (defun rs-gnus-summary-line-keywords (header)
>   "Display keywords of message in summary line.
>
> This function is intended to be used in `gnus-summary-line-format-alist', with
> \(defalias 'gnus-user-format-function-X 'rs-gnus-summary-line-keywords).
> See (info \"(gnus)Group Line Specification\").
>
> You need to add `Keywords' to `nnmail-extra-headers' and
> `gnus-extra-headers', see Info node `(gnus)To From Newsgroups'."

That part seems to have been taken care of some how, maybe by:
(setq gnus-visible-headers
"^From:\\|^Subject:\\|^To:\\|^Date:\\|^Message-ID:\\|^X-Spam-Status:\\|^X-HP.*:\\|^Newsgroup:\\|^X-Newsgroups:\\|^Keyword:\\|^Gnus-Warning:")

Or maybe from somewhere else because those variable do not show all of
those.

But at least C-h v on either `nnmail-extra-headers' or 
`gnus-extra-headers' shows:
  Its value is 
  (To Newsgroup Keywords)

>   (let ((case-fold-search t)
> 	(keywords (or (cdr (assq 'Keywords (mail-header-extra header)))
> 		     "")))
>     (if keywords
> 	(format "\n                           %s" keywords)
>       "")))
>
> (defalias 'gnus-user-format-function-keywords 'rs-gnus-summary-line-keywords)
>
> Then add "%u&keywords;" to the end of your `gnus-summary-line-format'
> for that group.

For me, that leaves a setting like:
"%O%2t%U%R%7d%z%I%(%[%4L: %-20,20f%]%) %s %u&keywords;\n"

(After adding to gnus-summary-line-format and setting for current
session with customize... I then did `C-h v' on
`gnus-summary-line-format'  to get the value listed above)

I suspect that summary line is the culprit but don't know enough about
it to tell.

Anyway, with the settings above and having `eval'd region' on your
code, when opening a group gnus goes thru the opening of a group
routine up to the point where it says something like 
`summary [...] done'...  But then the group never opens and I see the
clock for a cursor... ... nothing more happens... ever.

Re: Folded subject line with inserted Keywords line

[Reiner Steib]

On Sat, Oct 03 2009, Harry Putnam wrote:

> Anyway, with the settings above and having `eval'd region' on your
> code, when opening a group gnus goes thru the opening of a group
> routine up to the point where it says something like 
> `summary [...] done'...  But then the group never opens and I see the
> clock for a cursor... ... nothing more happens... ever.

Here is a tested variant of the code (Note: I substituted X-Mailer for
Keywords, so I don't need to modify my mail):

--8<---------------cut here---------------start------------->8---
(defun rs-gnus-summary-line-keywords (header)
  "Display keywords of message in summary line.

This function is intended to be used in `gnus-summary-line-format-alist', with
\(defalias 'gnus-user-format-function-X 'rs-gnus-summary-line-keywords).
See (info \"(gnus)Group Line Specification\").

You need to add `Keywords' to `nnmail-extra-headers' and
`gnus-extra-headers', see Info node `(gnus)To From Newsgroups'."
  (let ((keywords (cdr (assq 'X-Mailer (mail-header-extra header)))))
    (if keywords
	(format "  Keywords: %s" keywords)
      "")))

(defalias 'gnus-user-format-function-keywords 'rs-gnus-summary-line-keywords)

;; (defvar rs-gnus-summary-line-format-orig gnus-summary-line-format)
;; (setq gnus-summary-line-format rs-gnus-summary-line-format-orig)

(setq gnus-summary-line-format
      "%U%R%z%I%(%[%4L: %-23,23f%]%) %s%u&keywords;\n")

(add-to-list 'nnmail-extra-headers 'X-Mailer)
(add-to-list 'gnus-extra-headers 'X-Mailer)
--8<---------------cut here---------------end--------------->8---

The I did regenerate the overview for foo.bar (an nnml group):
  M-x nnml-generate-nov-databases-directory RET ~/Mail/foo/bar/ RET

Entering the group foo.bar now shows:

,----
| O  [  51: A. Müller   ] t......  Keywords: FooMail...
| O  [  50: A. Müller   ] w............  Keywords: FooMail...
| O  [  29: A. Müller   ] Hi ...........  Keywords: FooMail...
`----

BTW, when changing the subject (which was not useful here), please
use...

,----[ `C-h k <menu-bar> <Field> <Change subject...>' ]
| <menu-bar> <Field> <Change subject...> runs the command message-change-subject
|   which is an interactive Lisp function in `message.el'.
| It is bound to C-c C-f s, <menu-bar> <Field> <Change subject...>.
| (message-change-subject NEW-SUBJECT)
| 
| Ask for NEW-SUBJECT header, append (was: <Old Subject>).
`----

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: Folded subject line with inserted Keywords line

[Harry Putnam]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> On Sat, Oct 03 2009, Harry Putnam wrote:
>
>> Anyway, with the settings above and having `eval'd region' on your
>> code, when opening a group gnus goes thru the opening of a group
>> routine up to the point where it says something like 
>> `summary [...] done'...  But then the group never opens and I see the
>> clock for a cursor... ... nothing more happens... ever.
>
> Here is a tested variant of the code (Note: I substituted X-Mailer for
> Keywords, so I don't need to modify my mail):

[...]

Nice... thanks.

> The I did regenerate the overview for foo.bar (an nnml group):
>   M-x nnml-generate-nov-databases-directory RET ~/Mail/foo/bar/ RET
>
> Entering the group foo.bar now shows:
>
> ,----
> | O  [  51: A. Müller   ] t......  Keywords: FooMail...
> | O  [  50: A. Müller   ] w............  Keywords: FooMail...
> | O  [  29: A. Müller   ] Hi ...........  Keywords: FooMail...
> `----

Here (after the regeneration) I get something a little different. Both
the Subject and Keywords lines show up as one massive line Subject
first, then keywords.

Or are the .... (dots) in your box quote above.. supposed to be the
subject content?

What I was hoping for as indicated in first post (edited slightly here
by removing some space to keep wrapping down a bit and adding a
separator):

From OP:

>And somehow make messages display the 2 lines in summary view.  So
>that my summary view instead of this:
>
>5O 18-Sep [ 12: Steinar Bang ] Re: .newsrc.eld is a black hole [...]
>4O 19-Sep [ 62: Reiner Steib ] Re: nnimap and searching articl [...]
>1O 19-Sep [ 32: Reiner Steib ] gnus-load re (was:[...](-ed HP)
>
-------        ---------       ---=---       ---------      -------- 
> Assuming I've inserted keywords lines, Would look like:
>
>5O 18-Sep [ 12: Steinar Bang ] Re: .newsrc.eld is a black hole [...]
>                               Keywords: word1 word2 [...]
>4O 19-Sep [ 62: Reiner Steib ] Re: nnimap and searching articl [...]
>                               Keywords: word1 word2 [...]
>1O 19-Sep [ 32: Reiner Steib ] gnus-load re (was:[...](-ed HP)
>                                          Keywords: word1 word2 [...]

Or even better would be to leave the actual `Keywords:' string out so
that right hand side... line 1 is Subj line
                        line 2 is Keyw line
Just the content of the two lines... 

Is a two line setup even a possibility?

> BTW, when changing the subject (which was not useful here), please
> use...

[...]

First a word here... Thanks for going to what is really above the call
of duty on this.

Now, ok, thanks for the pointer to the subject changing
commands... and just to let you know...I thought you may have gone
away for a few days... and that the original thread just died a
natural death.  I thought chances of resurrecting the subject might be
better if I changed the subject line.

I should have known you'd see it without any extra messing from me,
since it would be a new post.  Again thanks for the time.

Re: Folded subject line with inserted Keywords line

[Reiner Steib]

On Fri, Oct 16 2009, Harry Putnam wrote:

> Reiner Steib <reinersteib+gmane@imap.cc> writes:
>> ,----
>> | O  [  51: A. Müller   ] t......  Keywords: FooMail...
>> | O  [  50: A. Müller   ] w............  Keywords: FooMail...
>> | O  [  29: A. Müller   ] Hi ...........  Keywords: FooMail...
>> `----
>
> Here (after the regeneration) I get something a little different. Both
> the Subject and Keywords lines show up as one massive line Subject
> first, then keywords.

It is one line per article.

> Or are the .... (dots) in your box quote above.. supposed to be the
> subject content?

Yes, they are subject content (elided for privacy reasons).

> Or even better would be to leave the actual `Keywords:' string out so
> that right hand side... line 1 is Subj line
>                         line 2 is Keyw line
> Just the content of the two lines... 
>
> Is a two line setup even a possibility?

I tried to modify the format string in `rs-gnus-summary-line-keywords'
from...
	(format "  Keywords: %s" keywords)
to...
	(format "\n%35s%s" "" keywords)

But this didn't give good result when I tried yesterday[1].  However,
today it looks fine.  You need to adjust the number of spaces (35
here) to your needs.

,----
| O  [  41: A.... M.....           ] heute
|                                    FooMail...
| O  [  30: -> A.... M.....        ] T..
| O  [  51: A.... M.....           ] AW: F...
|                                    FooMail...
| O  [  16: -> A.... M.....        ] D...
| OA [  34: A.... M.....           ] T...
|                                    FooMail...
| O  [  48: -> A.... M.....        ] Re: T..
| O  [  51: A.... M.....           ] t...
|                                    FooMail...
|    [  50: A.... M.....           ] w...
|                                    FooMail...
|    [  29: A.... M.....           ] Hi ...
|                                    FooMail...
`----

[1] Probably I tried something slightly different yesterday.  Maybe
    Gnus gots confused if the second line contains a colon, cf. (info
    "(gnus)Positioning Point")

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: Folded subject line with inserted Keywords line

[Harry Putnam]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> On Fri, Oct 16 2009, Harry Putnam wrote:
>
>> Reiner Steib <reinersteib+gmane@imap.cc> writes:
>>> ,----
>>> | O  [  51: A. Müller   ] t......  Keywords: FooMail...
>>> | O  [  50: A. Müller   ] w............  Keywords: FooMail...
>>> | O  [  29: A. Müller   ] Hi ...........  Keywords: FooMail...
>>> `----
>>
>> Here (after the regeneration) I get something a little different. Both
>> the Subject and Keywords lines show up as one massive line Subject
>> first, then keywords.
>
> It is one line per article.
>
>> Or are the .... (dots) in your box quote above.. supposed to be the
>> subject content?
>
> Yes, they are subject content (elided for privacy reasons).

Ahh I see, I guess I expected elided to look like the standard `[...]'.  

>
>> Or even better would be to leave the actual `Keywords:' string out so
>> that right hand side... line 1 is Subj line
>>                         line 2 is Keyw line
>> Just the content of the two lines... 
>>
>> Is a two line setup even a possibility?
>
> I tried to modify the format string in `rs-gnus-summary-line-keywords'
> from...
> 	(format "  Keywords: %s" keywords)
> to...
> 	(format "\n%35s%s" "" keywords)
>
> But this didn't give good result when I tried yesterday[1].  However,
> today it looks fine.  You need to adjust the number of spaces (35
> here) to your needs.

[...]

Thanks.. I tried just using your setting "\n%35s%s" and putting the
whole thing at the end of .gnus.  Restarting emacs and gnus.  But when
I try to enter the group that has Keywords lines in headers... gnus
just stalls out, showing the clock cursor.  It's not a large group.
Only some 300 mgs. 

I've bugged you to death at this point... my failure to understand
what the few lines of code do makes it really hard to experiment with
it.  But I can keep tinkering with the format summary.

I'm using your summary-line-format verbatim though so it should act
the same here shouldn't it?

This is what I have in gnus now below.  I've tried all the settings
(3) shown there...but the only one that actually allows me to even
enter a group where headers have Keywords lines is shown with
asterisks (The original posted forumla).

Also, I don't understand what the extra pair of double quotes do:
(Your original formulation)
  (format "  Keywords: %s" keywords)
Latest posted formula:
 (format "\n%35s%s" "" keywords)
                     ^  The extra pair of quotes above carat

And does the summary-line-format need to be changed in any way?

-------        ---------       ---=---       ---------      -------- 
-------        ---------       ---=---       ---------      -------- 
(defun rs-gnus-summary-line-keywords (header)
  "Display keywords of message in summary line.

This function is intended to be used in `gnus-summary-line-format-alist', with
\(defalias 'gnus-user-format-function-X 'rs-gnus-summary-line-keywords).
See (info \"(gnus)Group Line Specification\").

You need to add `Keywords' to `nnmail-extra-headers' and
`gnus-extra-headers', see Info node `(gnus)To From Newsgroups'."
  (let ((keywords (cdr (assq 'Keywords (mail-header-extra header)))))
    (if keywords
;; **(format "  Keywords: %s" keywords)
;; (format "\n%35s%s" "" keywords)
   (format "\n%s" "" keywords)
      "")))

(defalias 'gnus-user-format-function-keywords 'rs-gnus-summary-line-keywords)

;; (defvar rs-gnus-summary-line-format-orig gnus-summary-line-format)
;; (setq gnus-summary-line-format rs-gnus-summary-line-format-orig)
(setq gnus-summary-line-format
      "%U%R%z%I%(%[%4L: %-23,23f%]%) %s%u&keywords;\n")

(add-to-list 'nnmail-extra-headers 'Keywords)
(add-to-list 'gnus-extra-headers 'Keywords)

(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)