Registry Mark in Summary buffer.

Registry Mark in Summary buffer.

[Deepak Tripathi]

[-- Attachment #1: Type: text/plain, Size: 539 bytes --]

Team, 
I would like to know that is there anyway i can display Registry mark at
summary buffer. I want something like

15-May│1.5k│. │From name         ║ subject | Registry mark| 

my summry buffer line is 
gnus-summary-line-format "%U%R %10&user-date; $%6uS [%6uM] %6k  %B %(%4L: %*%-25,25a%) %s \n"


--
,----
| Life's Too Short, Write Fast Code, Use emacs :) 
| Deepak Tripathi(gnumonk)
| irc: irc.debian.org | nick: deepak, gnumonk
| irc: irc.freenode.com | nick: gnumonk
| web: http://www.gnumonk.com 
`----

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Registry Mark in Summary buffer.

[Ted Zlatanov]

On Wed, 18 May 2011 15:43:13 +0530 Deepak Tripathi <deepak@gnumonk.com> wrote: 

DT> I would like to know that is there anyway i can display Registry mark at
DT> summary buffer. I want something like

DT> 15-May│1.5k│. │From name         ║ subject | Registry mark| 

DT> my summry buffer line is 
DT> gnus-summary-line-format "%U%R %10&user-date; $%6uS [%6uM] %6k  %B %(%4L: %*%-25,25a%) %s \n"

You need 

(defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M)

and then you can use %uM in the summary line format above.  Hmm, isn't
that in the Gnus registry manual?  Nope...  I'll add it later today:

"(gnus) Setup": mention the defalias, rename to "Registry setup"
"(gnus) The Gnus Registry": mention the defalias
gnus-registry.el: mention the defalias in the commentary

Sorry about that, I forgot to document it.

Ted

Re: Registry Mark in Summary buffer.

[Deepak Tripathi]

[-- Attachment #1: Type: text/plain, Size: 1551 bytes --]

Ted Zlatanov <tzz@lifelogs.com> writes:

Ted, 

its not that what i am looking, I am expecting something like

15-May│1.5k│!  │Deepak tripathi ║  BBDB and Gnus  | TODO
15-May│1.5k│!  │Deepak tripathi ║  BBDB and Gnus1 | Important
15-May│1.5k│!  │Deepak tripathi ║  BBDB and Gnus2 | Later

You can see above that its marked "!" and also i added "TODO" to check later.


> On Wed, 18 May 2011 15:43:13 +0530 Deepak Tripathi
> <deepak@gnumonk.com> wrote:
>
> DT> I would like to know that is there anyway i can display Registry
> mark at
> DT> summary buffer. I want something like
>
> DT> 15-May│1.5k│. │From name         ║ subject | Registry mark| 
>
> DT> my summry buffer line is 
> DT> gnus-summary-line-format "%U%R %10&user-date; $%6uS [%6uM] %6k %B
> %(%4L: %*%-25,25a%) %s \n"
>
> You need 
>
> (defalias 'gnus-user-format-function-M
> gnus-registry-user-format-function-M)
>
> and then you can use %uM in the summary line format above.  Hmm, isn't
> that in the Gnus registry manual?  Nope...  I'll add it later today:
>
> "(gnus) Setup": mention the defalias, rename to "Registry setup"
> "(gnus) The Gnus Registry": mention the defalias
> gnus-registry.el: mention the defalias in the commentary
>
> Sorry about that, I forgot to document it.
>
> Ted
--
,----
| Life's Too Short, Write Fast Code, Use emacs :) 
| Deepak Tripathi(gnumonk)
| irc: irc.debian.org | nick: deepak, gnumonk
| irc: irc.freenode.com | nick: gnumonk
| web: http://www.gnumonk.com 
`----

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Registry Mark in Summary buffer.

[Ted Zlatanov]

On Wed, 18 May 2011 17:01:01 +0530 Deepak Tripathi <deepak@gnumonk.com> wrote: 

DT> its not that what i am looking, I am expecting something like

DT> 15-May│1.5k│!  │Deepak tripathi ║  BBDB and Gnus  | TODO
DT> 15-May│1.5k│!  │Deepak tripathi ║  BBDB and Gnus1 | Important
DT> 15-May│1.5k│!  │Deepak tripathi ║  BBDB and Gnus2 | Later

DT> You can see above that its marked "!" and also i added "TODO" to check later.

`gnus-registry-user-format-function-M' will give you those marks as
single characters, which is more compact (note you can customize the
characters).  If you want the marks' names in full you can write your
own function (or I can write it, if you don't know ELisp well).

Ted

Re: Registry Mark in Summary buffer.

[Ted Zlatanov]

On Wed, 18 May 2011 05:42:03 -0500 Ted Zlatanov <tzz@lifelogs.com> wrote: 

TZ> and then you can use %uM in the summary line format above.  Hmm, isn't
TZ> that in the Gnus registry manual?  Nope...  I'll add it later today:

TZ> "(gnus) Setup": mention the defalias, rename to "Registry setup"
TZ> "(gnus) The Gnus Registry": mention the defalias
TZ> gnus-registry.el: mention the defalias in the commentary

This is done, please let me know if the manual explains it OK now.

TZ> `gnus-registry-user-format-function-M' will give you those marks as
TZ> single characters, which is more compact (note you can customize the
TZ> characters).  If you want the marks' names in full you can write your
TZ> own function (or I can write it, if you don't know ELisp well).

<Lars>What the hey, I wrote `gnus-registry-user-format-function-M2' to
do what you needed.</Lars>

Ted

gnus-user-format-function-* in non-user code (was: Registry Mark in Summary buffer.)

[Reiner Steib]

On Wed, May 18 2011, Ted Zlatanov wrote:

> On Wed, 18 May 2011 05:42:03 -0500 Ted Zlatanov <tzz@lifelogs.com> wrote: 
> TZ> `gnus-registry-user-format-function-M' will give you those marks as
> TZ> single characters, [...]
> <Lars>What the hey, I wrote `gnus-registry-user-format-function-M2' to
> do what you needed.</Lars>

Why do you name these function gnus-registry-*user*-format-function if
they are predefined rather than *user*-defined?

I know, we already have such (IMHO) bad examples[1], but we should try
to eliminate those instead of adding new ones.

Bye, Reiner.

[1]
,----[ grep -nH -e user-format-function *.el ]
| gnus-diary.el:159:(defun gnus-user-format-function-d (header)
| gnus-diary.el:196:(defun gnus-user-format-function-D (header)
| gnus.el:2981:            function gnus-user-format-function-X, where X is the
| gnus-group.el:196:      be a letter.  Gnus will call the function gnus-user-format-function-X,
| gnus-load.el:728:;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d)
| gnus-load.el:732:(autoload (quote gnus-user-format-function-d) "gnus-diary" "\
| gnus-load.el:737:(autoload (quote gnus-user-format-function-D) "gnus-diary" "\
| gnus-registry.el:65:;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M)
| gnus-registry.el:68:;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M2)
| gnus-registry.el:901:;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M)
| gnus-registry.el:902:(defun gnus-registry-user-format-function-M (headers)
| gnus-registry.el:914:;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M2)
| gnus-registry.el:915:(defun gnus-registry-user-format-function-M2 (headers)
| gnus-spec.el:620:				      "gnus-user-format-function-%s"
| gnus-spec.el:621:				    "gnus-user-format-function-%c")
| spam.el:1180:(defun spam-user-format-function-S (headers)
`----

Grep finished (matches found) at Thu May 19 08:08:32

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

Re: gnus-user-format-function-* in non-user code

[Ted Zlatanov]

On Thu, 19 May 2011 08:13:01 +0200 Reiner Steib <reinersteib+gmane@imap.cc> wrote: 

RS> On Wed, May 18 2011, Ted Zlatanov wrote:
>> On Wed, 18 May 2011 05:42:03 -0500 Ted Zlatanov <tzz@lifelogs.com> wrote: 
TZ> `gnus-registry-user-format-function-M' will give you those marks as
TZ> single characters, [...]
>> <Lars>What the hey, I wrote `gnus-registry-user-format-function-M2' to
>> do what you needed.</Lars>

RS> Why do you name these function gnus-registry-*user*-format-function if
RS> they are predefined rather than *user*-defined?

Because they are supposed to be defaliased to
gnus-user-format-function-X so the naming echoed that.

What name would you use?

RS> I know, we already have such (IMHO) bad examples[1], but we should try
RS> to eliminate those instead of adding new ones.

Why is this bad?  Does it confuse people or cause technical problems?

Ted

Re: gnus-user-format-function-* in non-user code

[Reiner Steib]

On Thu, May 19 2011, Ted Zlatanov wrote:

> On Thu, 19 May 2011 Reiner Steib <reinersteib+gmane@imap.cc> wrote: 
>
> RS> On Wed, May 18 2011, Ted Zlatanov wrote:
>
> RS> Why do you name these function gnus-registry-*user*-format-function if
> RS> they are predefined rather than *user*-defined?
>
> Because they are supposed to be defaliased to
> gnus-user-format-function-X so the naming echoed that.
>
> What name would you use?

Maybe `gnus-registry-format-function-char' and
`gnus-registry-format-function-word'?

> RS> I know, we already have such (IMHO) bad examples[1], but we should try
> RS> to eliminate those instead of adding new ones.
>
> Why is this bad?  Does it confuse people or cause technical problems?

Although it is not spelled out in the manual[1], I think that the user
defined functions (and format specifiers) should be reserved for the
user just like the keys[2] that are reserved for users.  In this way
the user can be sure that Gnus won't overwrite his bindings[3].

[1]
,----[ (info "(gnus)Summary Buffer Lines") ]
| `u'
|      User defined specifier.  The next character in the format string
|      should be a letter.  Gnus will call the function
|      `gnus-user-format-function-X', where X is the letter following
|      `%u'.  [...]
`----

[2] (info "(emacs)Keymaps")

[3] "bad example": (info "(gnus)The Gnus Diary Library")

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

Re: gnus-user-format-function-* in non-user code

[Ted Zlatanov]

On Fri, 20 May 2011 08:15:56 +0200 Reiner Steib <reinersteib+gmane@imap.cc> wrote: 

RS> On Thu, May 19 2011, Ted Zlatanov wrote:
>> On Thu, 19 May 2011 Reiner Steib <reinersteib+gmane@imap.cc> wrote: 
>> 
RS> On Wed, May 18 2011, Ted Zlatanov wrote:
>> 
RS> Why do you name these function gnus-registry-*user*-format-function if
RS> they are predefined rather than *user*-defined?
>> 
>> Because they are supposed to be defaliased to
>> gnus-user-format-function-X so the naming echoed that.
>> 
>> What name would you use?

RS> Maybe `gnus-registry-format-function-char' and
RS> `gnus-registry-format-function-word'?

I'll use `gnus-registry-article-marks-to-chars' and
`gnus-registry-article-marks-to-words' if that's OK, after thinking
about it.  The words "article-marks" are useful in the function name.

How do I go about obsoleting the old functions if people have defaliased
to them?

Ted

Re: gnus-user-format-function-* in non-user code

[Reiner Steib]

On Fri, May 20 2011, Ted Zlatanov wrote:

> On Fri, 20 May 2011 Reiner Steib <reinersteib+gmane@imap.cc> wrote: 
>
> RS> Maybe `gnus-registry-format-function-char' and
> RS> `gnus-registry-format-function-word'?
>
> I'll use `gnus-registry-article-marks-to-chars' and
> `gnus-registry-article-marks-to-words' if that's OK, after thinking
> about it.  The words "article-marks" are useful in the function name.
>
> How do I go about obsoleting the old functions if people have defaliased
> to them?

(make-obsolete 'gnus-registry-user-format-function-M
               'gnus-registry-article-marks-to-chars "24.1") ?

For -M2, there's no need.

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

Re: gnus-user-format-function-* in non-user code

[Ted Zlatanov]

On Fri, 20 May 2011 22:17:21 +0200 Reiner Steib <reinersteib+gmane@imap.cc> wrote: 

RS> On Fri, May 20 2011, Ted Zlatanov wrote:
>> On Fri, 20 May 2011 Reiner Steib <reinersteib+gmane@imap.cc> wrote: 
>> 
RS> Maybe `gnus-registry-format-function-char' and
RS> `gnus-registry-format-function-word'?
>> 
>> I'll use `gnus-registry-article-marks-to-chars' and
>> `gnus-registry-article-marks-to-words' if that's OK, after thinking
>> about it.  The words "article-marks" are useful in the function name.
>> 
>> How do I go about obsoleting the old functions if people have defaliased
>> to them?

RS> (make-obsolete 'gnus-registry-user-format-function-M
RS>                'gnus-registry-article-marks-to-chars "24.1") ?

RS> For -M2, there's no need.

This is done.  Thanks for your help, as always.

Ted

Re: Registry Mark in Summary buffer.

[Deepak Tripathi]

[-- Attachment #1: Type: text/plain, Size: 1573 bytes --]

Ted Zlatanov <tzz@lifelogs.com> writes:

Hi Ted, 

With new installation from bzr repository of emacs, there are following
errors when i use M-x gnus-registry-initialize

byte-code: Wrong number of arguments: (lambda (symbol doc definition) "Make SYMBOL name the test DEFINITION, and return DEFINITION." (when doc (put symbol (quote ert-test-documentation) doc)) (put symbol (quote ert-test) definition) definition), 2


> On Wed, 18 May 2011 05:42:03 -0500 Ted Zlatanov <tzz@lifelogs.com> wrote: 
>
> TZ> and then you can use %uM in the summary line format above.  Hmm, isn't
> TZ> that in the Gnus registry manual?  Nope...  I'll add it later today:
>
> TZ> "(gnus) Setup": mention the defalias, rename to "Registry setup"
> TZ> "(gnus) The Gnus Registry": mention the defalias
> TZ> gnus-registry.el: mention the defalias in the commentary
>
> This is done, please let me know if the manual explains it OK now.
>
> TZ> `gnus-registry-user-format-function-M' will give you those marks as
> TZ> single characters, which is more compact (note you can customize the
> TZ> characters).  If you want the marks' names in full you can write your
> TZ> own function (or I can write it, if you don't know ELisp well).
>
> <Lars>What the hey, I wrote `gnus-registry-user-format-function-M2' to
> do what you needed.</Lars>
>
> Ted
--
,----
| Life's Too Short, Write Fast Code, Use emacs :) 
| Deepak Tripathi(gnumonk)
| irc: irc.debian.org | nick: deepak, gnumonk
| irc: irc.freenode.com | nick: gnumonk
| web: http://www.gnumonk.com 
`----


[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Registry Mark in Summary buffer.

[Ted Zlatanov]

On Thu, 19 May 2011 15:41:30 +0530 Deepak Tripathi <deepak@gnumonk.com> wrote: 

DT> With new installation from bzr repository of emacs, there are following
DT> errors when i use M-x gnus-registry-initialize

DT> byte-code: Wrong number of arguments: (lambda (symbol doc definition)
DT> "Make SYMBOL name the test DEFINITION, and return DEFINITION." (when
DT> doc (put symbol (quote ert-test-documentation) doc)) (put symbol
DT> (quote ert-test) definition) definition), 2

You need to recompile Gnus against the latest Emacs, I think.  This is
probably not a bug in the Gnus registry.

Ted

Re: Registry Mark in Summary buffer.

[Deepak Tripathi]

[-- Attachment #1.1: Type: text/plain, Size: 445 bytes --]

Ted Zlatanov <tzz@lifelogs.com> writes:

ok, so i have done following steps.

1) download emacs from bzr and compiled.
2) download gnus from git and compile.

added 
;; load gnus git path in .emacs.

(setq load-path (cons (expand-file-name "~/gnus_git/gnus/lisp") load-path))
(require 'gnus-load)

and restarted emacs23,(started successfully) and then M-x gnus, it has
following error.
Please find enclosed file for log details.

[-- Attachment #1.2: Lisp debug error. --]
[-- Type: application/octet-stream, Size: 2945 bytes --]

[-- Attachment #1.3: Type: text/plain, Size: 624 bytes --]



> On Thu, 19 May 2011 15:41:30 +0530 Deepak Tripathi
> <deepak@gnumonk.com> wrote:
>
> DT> With new installation from bzr repository of emacs, there are
> following
> DT> errors when i use M-x gnus-registry-initialize
>
> DT> byte-code: Wrong number of arguments: (lambda (symbol doc
> definition)
> DT> "Make SYMBOL name the test DEFINITION, and return DEFINITION."
> (when
> DT> doc (put symbol (quote ert-test-documentation) doc)) (put symbol
> DT> (quote ert-test) definition) definition), 2
>
> You need to recompile Gnus against the latest Emacs, I think.  This is
> probably not a bug in the Gnus registry.
>
> Ted

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Registry Mark in Summary buffer.

[Ted Zlatanov]

On Thu, 19 May 2011 16:44:41 +0530 Deepak Tripathi <deepak@gnumonk.com> wrote: 

DT> Ted Zlatanov <tzz@lifelogs.com> writes:
DT> ok, so i have done following steps.

DT> 1) download emacs from bzr and compiled.
DT> 2) download gnus from git and compile.

DT> added 
DT> ;; load gnus git path in .emacs.

DT> (setq load-path (cons (expand-file-name "~/gnus_git/gnus/lisp") load-path))
DT> (require 'gnus-load)

DT> and restarted emacs23,(started successfully) and then M-x gnus, it has
DT> following error.

Emacs 23?  Emacs from Bazaar is 24.x.  Can you do `M-x emacs-version'?

DT> Debugger entered--Lisp error: (void-function gnus-macroexpand-all)
DT>   gnus-macroexpand-all((nnir-article-rsv (mail-header-number gnus-tmp-header)))
...
DT> ("/home/gnumonk/gnus_git/gnus/lisp/gnus-sum.elc" . 50954))

Yeah, something is wrong with your setup.  Maybe someone else knows, I
can't see the problem if you're really using the trunk Emacs and Gnus.
The exact same setup works for me.

Ted