X-Sent with Ma Gnus

X-Sent with Ma Gnus

[Gabor Z. Papp]

lo lo,

how could I get back the X-Sent 'lapsed header with Ma Gnus?

I really liked it in No Gnus, and now the multiple Date headers just
looks weird, the combined one is often long as hell. :-)

Re: X-Sent with Ma Gnus

[Katsumi Yamaoka]

Gabor Z. Papp wrote:
> how could I get back the X-Sent 'lapsed header with Ma Gnus?

If you aren't satisfied with

(setq gnus-article-date-headers '(lapsed)) ;; [1]

that produces `Date: lapsed', but really want `X-Sent: lapsed',
try this:

(setq gnus-article-date-headers '(user-defined))
(setq gnus-article-time-format
      (lambda (time)
	(concat "X-Sent: " (article-lapsed-string time))))

Otherwise, if you want X-Sent in addition to Date expressed in
local time, for example, you can do it like:

(setq gnus-article-time-format
      (lambda (time)
	(concat "Date: " (message-make-date time) "\n"
		"X-Sent: " (article-lapsed-string time))))

The only difficulty of this way is to display the original date
a sender made.

[1] (info "(gnus)Customizing Articles")

Re: X-Sent with Ma Gnus

[Gabor Z. Papp]

* Katsumi Yamaoka <yamaoka@jpl.org>:

| Otherwise, if you want X-Sent in addition to Date expressed in
| local time, for example, you can do it like:

| (setq gnus-article-time-format
|       (lambda (time)
| 	(concat "Date: " (message-make-date time) "\n"
| 		"X-Sent: " (article-lapsed-string time))))

Yes, I would like this, but...

| The only difficulty of this way is to display the original date
| a sender made.

...there is really no way to display the original date?

Re: X-Sent with Ma Gnus

[Katsumi Yamaoka]

Gabor Z. Papp wrote:
> * Katsumi Yamaoka <yamaoka@jpl.org>:
>| The only difficulty of this way is to display the original date
>| a sender made.

> ...there is really no way to display the original date?

Oops, I realized that's easy to do.  Here it is:

(setq gnus-article-date-headers '(original user-defined))
(setq gnus-article-time-format
      (lambda (time)
	(concat "X-Sent: " (article-lapsed-string time))))

Re: X-Sent with Ma Gnus

[Gabor Z. Papp]

* Katsumi Yamaoka <yamaoka@jpl.org>:

| > ...there is really no way to display the original date?

| Oops, I realized that's easy to do.  Here it is:

| (setq gnus-article-date-headers '(original user-defined))
| (setq gnus-article-time-format
|       (lambda (time)
| 	(concat "X-Sent: " (article-lapsed-string time))))

Discovered, at forwarded messages <C-c C-f> the X-Sent header show up twice or
more

Look at: http://imagestore.ugbox.net/image/x-sent_d44cbdcc7964b459a389866dc.jpg

Re: X-Sent with Ma Gnus

[Katsumi Yamaoka]

Gabor Z. Papp wrote:
> * Katsumi Yamaoka <yamaoka@jpl.org>:

>|> ...there is really no way to display the original date?

>| Oops, I realized that's easy to do.  Here it is:

>| (setq gnus-article-date-headers '(original user-defined))
>| (setq gnus-article-time-format
>|       (lambda (time)
>| 	(concat "X-Sent: " (article-lapsed-string time))))

> Discovered, at forwarded messages <C-c C-f> the X-Sent header show
> up twice or more

> Look at:
> http://imagestore.ugbox.net/image/x-sent_d44cbdcc7964b459a389866dc.jpg

Confirmed.  Here is a temporary measure:

(defadvice article-transform-date (before delete-X-Sent-header activate)
  "Delete X-Sent header in advance."
  (save-excursion
    (message-remove-header "x-sent")))

One of the causes, two or more X-Sent headers appear, is that Gnus
calls the function that draws a Date header twice or more.  I don't
know why so far.

The other is that Gnus assumes the Date header begins with "Date:";
that is hard-coded.  Because of this, the old X-Sent header (for
the above reason, it is drawn at the first time) won't be deleted.

I'd like to fix it properly, only I have no time for a while.

Re: X-Sent with Ma Gnus

[Gabor Z. Papp]

* Katsumi Yamaoka <yamaoka@jpl.org>:

| > http://imagestore.ugbox.net/image/x-sent_d44cbdcc7964b459a389866dc.jpg

| Confirmed.  Here is a temporary measure:

| (defadvice article-transform-date (before delete-X-Sent-header activate)
|   "Delete X-Sent header in advance."
|   (save-excursion
|     (message-remove-header "x-sent")))

Seems good, except font coloring lost from the Date header. Thanks.

| I'd like to fix it properly, only I have no time for a while.

Thank you.

Re: X-Sent with Ma Gnus

[Katsumi Yamaoka]

Gabor Z. Papp wrote:
> * Katsumi Yamaoka <yamaoka@jpl.org>:
>| I'd like to fix it properly, only I have no time for a while.

Should be fixed now.