Custom Message-ID

Custom Message-ID

[Byung-Hee HWANG (황병희)]

Firstly, i would like to give "Big Thanks" to Jorge and Emanuel about
two weeks ago, thanks to them, i got my style's citiation in Gnus. That
is so happy.

Today i have more question.

Really i am literary man rather than computing man. One by one i am
making my style's Gnus.

In Message-ID of Gnus, i want to put a prefix "yw" into front of
Message-ID. The "yw" is special to me. That is all. But i failed to
search a way. As you know, i am not programmer nor elisp expert.

I searched google, and i looked some .el files in gnus directory. Maybe
message.el seems to have hints. But i don't know what key is.

Anyway i want a Message-ID as below: (example)

       <yw.87jdfsfms7838.fsf@myhost.fqdn>

Thanks for Advance!!!

-- 
^고맙습니다 감사합니다_^))//

Re: Custom Message-ID

[Eric Abrahamsen]

"Byung-Hee HWANG "(황병희)"" <soyeomul@doraji.xyz> writes:

> Firstly, i would like to give "Big Thanks" to Jorge and Emanuel about
> two weeks ago, thanks to them, i got my style's citiation in Gnus. That
> is so happy.
>
> Today i have more question.
>
> Really i am literary man rather than computing man. One by one i am
> making my style's Gnus.
>
> In Message-ID of Gnus, i want to put a prefix "yw" into front of
> Message-ID. The "yw" is special to me. That is all. But i failed to
> search a way. As you know, i am not programmer nor elisp expert.
>
> I searched google, and i looked some .el files in gnus directory. Maybe
> message.el seems to have hints. But i don't know what key is.
>
> Anyway i want a Message-ID as below: (example)
>
>        <yw.87jdfsfms7838.fsf@myhost.fqdn>
>
> Thanks for Advance!!!

You're looking for `message-unique-id', and unfortunately it doesn't
seem like you have any access to the string it produces. Sorry! You'd
probably have to override that function to get what you want.

Re: Custom Message-ID

[Byung-Hee HWANG (황병희)]

Eric Abrahamsen <eric@ericabrahamsen.net> 께서 쓰시길,
 《記事 全文 <87fuq74gdg.fsf@ericabrahamsen.net> 에서》:

> "Byung-Hee HWANG "(황병희)"" <soyeomul@doraji.xyz> writes:
>
>> Firstly, i would like to give "Big Thanks" to Jorge and Emanuel about
>> two weeks ago, thanks to them, i got my style's citiation in Gnus. That
>> is so happy.
>>
>> Today i have more question.
>>
>> Really i am literary man rather than computing man. One by one i am
>> making my style's Gnus.
>>
>> In Message-ID of Gnus, i want to put a prefix "yw" into front of
>> Message-ID. The "yw" is special to me. That is all. But i failed to
>> search a way. As you know, i am not programmer nor elisp expert.
>>
>> I searched google, and i looked some .el files in gnus directory. Maybe
>> message.el seems to have hints. But i don't know what key is.
>>
>> Anyway i want a Message-ID as below: (example)
>>
>>        <yw.87jdfsfms7838.fsf@myhost.fqdn>
>>
>> Thanks for Advance!!!
>
> You're looking for `message-unique-id', and unfortunately it doesn't
> seem like you have any access to the string it produces. Sorry! You'd
> probably have to override that function to get what you want.

Solved it, thanks! Eric!!!

### begins here ###
--- message.el.orig	2016-08-15 20:07:35.222584247 +0900
+++ message.el	2016-08-15 21:32:18.315036847 +0900
@@ -5731,6 +5731,7 @@
 	   (* 25 25)))
   (let ((tm (current-time)))
     (concat
+     "yw."
      (if (or (eq system-type 'ms-dos)
 	     ;; message-number-base36 doesn't handle bigints.
 	     (floatp (user-uid)))
### ends here ###

That is not elegant style, though i'm so happy!

Today, i would like to shout myself for world!

Thanks! Thanks! Thanks!

Byung-Hee

-- 
^고맙습니다 감사합니다_^))//

Re: Custom Message-ID

[Ted Zlatanov]

(resending because Gmane is not posting, sorry if this ends up as a
duplicate)

On Mon, 15 Aug 2016 23:07:49 +0900 "Byung-Hee HWANG "(황병희)"" <soyeomul@doraji.xyz> wrote: 

BH> Solved it, thanks! Eric!!!

BH> ### begins here ###
BH> --- message.el.orig	2016-08-15 20:07:35.222584247 +0900
BH> +++ message.el	2016-08-15 21:32:18.315036847 +0900
BH> @@ -5731,6 +5731,7 @@
BH>	   (* 25 25)))
BH>    (let ((tm (current-time)))
BH>	 (concat
BH> +	  "yw."
BH>	  (if (or (eq system-type 'ms-dos)
BH>	     ;; message-number-base36 doesn't handle bigints.
BH>	     (floatp (user-uid)))
BH> ### ends here ###

BH> That is not elegant style, though i'm so happy!

I think you can use advice instead, since you just want to prepend a string:

(defun yw-message-unique-id (original)
  (concat "yw." original))

(advice-add #'message-unique-id :filter-return #'yw-message-unique-id)
(message-unique-id) ;; "yw.random ID"

;; then you can remove it
(advice-remove #'message-unique-id #'yw-message-unique-id)

That can go in your emacs.el and leave message.el clean unpatched :)

HTH
Ted

Re: Custom Message-ID

[Emanuel Berg]

Ted Zlatanov wrote:

> (resending because Gmane is not posting, sorry
> if this ends up as a duplicate)

Some of my posts get thru. I thought it was
a group thing as my posts to this group (as
well as to gmane.test) gets thru, but not those
to gmane.emacs.gnus.user .

-- 
underground experts united .... http://user.it.uu.se/~embe8573
Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic
                   - so far: 66 Blogomatic articles -                   

Re: Custom Message-ID

[Andreas Schwab]

On Aug 15 2016, "Byung-Hee HWANG "(황병희)"" <soyeomul@doraji.xyz> wrote:

> ### begins here ###
> --- message.el.orig	2016-08-15 20:07:35.222584247 +0900
> +++ message.el	2016-08-15 21:32:18.315036847 +0900
> @@ -5731,6 +5731,7 @@
>  	   (* 25 25)))
>    (let ((tm (current-time)))
>      (concat
> +     "yw."
>       (if (or (eq system-type 'ms-dos)
>  	     ;; message-number-base36 doesn't handle bigints.
>  	     (floatp (user-uid)))
> ### ends here ###
>
> That is not elegant style, though i'm so happy!

(add-function :filter-return 'message-unique-id
              #'(lambda (muid) (concat "yw." muid)))

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

Re: Custom Message-ID

[Emanuel Berg]

Andreas Schwab wrote:

>> ### begins here ### --- message.el.orig
>> 2016-08-15 20:07:35.222584247 +0900 +++
>> message.el 2016-08-15 21:32:18.315036847
>> +0900 @@ -5731,6 +5731,7 @@ (* 25 25))) (let
>> ((tm (current-time))) (concat + "yw." (if (or
>> (eq system-type 'ms-dos) ;;
>> message-number-base36 doesn't handle bigints.
>> (floatp (user-uid))) ### ends here ### That
>> is not elegant style, though i'm so happy!
>
> (add-function :filter-return 'message-unique-id
> #'(lambda (muid) (concat "yw." muid)))

Certainly more the expert style but do it too
much and you won't know your name :)

But what about quoting lambdas?

-- 
underground experts united .... http://user.it.uu.se/~embe8573
Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic
                   - so far: 66 Blogomatic articles -                   

Re: Custom Message-ID

[Emanuel Berg]

Andreas Schwab wrote:

> On Aug 15 2016, "Byung-Hee HWANG "(황병희)""
> <soyeomul@doraji.xyz> wrote:
>
>> ### begins here ### --- message.el.orig 2016-08-15 20:07:35.222584247 +0900 +++ message.el 2016-08-15 21:32:18.315036847 +0900 @@ -5731,6 +5731,7 @@ (* 25 25))) (let ((tm (current-time))) (concat + "yw." (if (or (eq system-type 'ms-dos) ;; message-number-base36 doesn't handle bigints. (floatp (user-uid))) ### ends here ###
>> That is not elegant style, though i'm so happy!
>
> (add-function :filter-return 'message-unique-id
> #'(lambda (muid) (concat "yw." muid)))

This works for me with no complains from the
byte-compiler:

    (require 'message)
    (add-function :filter-return
                  (symbol-function #'message-unique-id)
                  (lambda (muid) (concat "yw." muid)) )

-- 
underground experts united .... http://user.it.uu.se/~embe8573
Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic
                   - so far: 66 Blogomatic articles -                   

Re: Custom Message-ID

[Byung-Hee HWANG (황병희)]

Hellow!

Andreas Schwab <schwab@linux-m68k.org> 께서 쓰시길,
 《記事 全文 <877fbi3qrr.fsf@linux-m68k.org> 에서》:

> On Aug 15 2016, "Byung-Hee HWANG "(황병희)"" <soyeomul@doraji.xyz> wrote:
>
>> ### begins here ###
>> --- message.el.orig	2016-08-15 20:07:35.222584247 +0900
>> +++ message.el	2016-08-15 21:32:18.315036847 +0900
>> @@ -5731,6 +5731,7 @@
>>  	   (* 25 25)))
>>    (let ((tm (current-time)))
>>      (concat
>> +     "yw."
>>       (if (or (eq system-type 'ms-dos)
>>  	     ;; message-number-base36 doesn't handle bigints.
>>  	     (floatp (user-uid)))
>> ### ends here ###
>>
>> That is not elegant style, though i'm so happy!
>
> (add-function :filter-return 'message-unique-id
>               #'(lambda (muid) (concat "yw." muid)))
>
> Andreas.

First of all, your codes is so beautiful!!!

Then, it is start my story...

My Emacs version is old, so i did download from git server of GNU,
branch emacs-25. The file name is nadvice.el, i found the variable
`add-funcetion' in nadvice.el. Actually for some reason, i cannot
upgrade to emacs 25. 

### begins here: emacs error messages by M-x byte-compile  
Compiling file /home/soyeomul/.emacs.d/elisp/nadvice.el at Wed Aug 17 20:28:15 2016
Entering directory `/home/soyeomul/.emacs.d/elisp/'

In remove-function:
nadvice.el:322:24:Warning: reference to free variable `setter'
nadvice.el:323:24:Warning: reference to free variable `new'
nadvice.el:323:55:Warning: reference to free variable `getter'
nadvice.el:429:30:Error: Symbol's value as variable is void: setter
### ends here

Sorry. As you see above, i did myself best to write the variable
`add-function'. In current, below is my environments:


;;;;; Emacs: GNU Emacs 23.3.1 (modified by Debian)
;;;;; OS: Ubuntu 12.04.5 LTS (via Crouton)
;;;;; HW: Google Chromebook (Codename: Alex)
;;;;; Kernel: Linux 3.8.11 (chrome-bot@cros-beefy264-c2)

For a while, i should be stick in humble short patch. [1]
Though i love my short patch;;

Really Thank You Andreas!

and also Ted, Emanuel and Eric, 
thank you for your time and good codes ^^

Sincerely,
Byung-Hee

[1] https://github.com/soyeomul/Gnus/blob/MaGnus/dot.gnus.20160816

-- 
^고맙습니다 감사합니다_^))//

Re: Custom Message-ID

[Byung-Hee HWANG (황병희)]

Just for the record,

>>> ### begins here ###
>>> --- message.el.orig	2016-08-15 20:07:35.222584247 +0900
>>> +++ message.el	2016-08-15 21:32:18.315036847 +0900
>>> @@ -5731,6 +5731,7 @@
>>>  	   (* 25 25)))
>>>    (let ((tm (current-time)))
>>>      (concat
>>> +     "yw."
>>>       (if (or (eq system-type 'ms-dos)
>>>  	     ;; message-number-base36 doesn't handle bigints.
>>>  	     (floatp (user-uid)))
>>> ### ends here ###
>
> [1] https://github.com/soyeomul/Gnus/blob/MaGnus/dot.gnus.20160816

It moved to as below:

https://github.com/soyeomul/Gnus/blob/MaGnus/dot.gnus.20160818

Thanks!

-- 
^고맙습니다 감사합니다_^))//

Re: Custom Message-ID

[Emanuel Berg]

Byung-Hee HWANG "(황병희)" wrote:

> Firstly, i would like to give "Big Thanks" to
> Jorge and Emanuel about two weeks ago, thanks
> to them, i got my style's citiation in Gnus.
> That is so happy.

Well, obviously you are welcome, but thank us
even more by making sure always to process the
information (even when it doesn't help or you
don't agree), that way, helping you solve
problem A will given time and effort prepare
you to solve problem O without help, and with
even more time and efforts you can help someone
else - perhaps even us - solve yet
another problem!

> Today i have more question.
>
> Really i am literary man rather than computing
> man.

You can be both! Start today!

> In Message-ID of Gnus, i want to put a prefix
> "yw" into front of Message-ID. The "yw" is
> special to me. That is all. But i failed to
> search a way.

> As you know, i am not ... elisp expert

Who is? :)

> I searched google, and i looked some .el
> files in gnus directory. Maybe message.el
> seems to have hints. But i don't know what
> key is.

I don't think this is a problem that a lot of
people have solved because it is in the
mageo-mythical domain :)

> Anyway i want a Message-ID as below: (example)
>
>        <yw.87jdfsfms7838.fsf@myhost.fqdn>

There are 93 occurrences of "Message-ID" in the
Gnus manual, and 8 in the "message manual" (or
info file).

It is a good start and probably a quick check
(open the file in Emacs, then do normal search,
or use the Emacs info interface if you are
comfortable with that).

    93   emacs     /usr/share/info/emacs-24/gnus.info
     8   emacs     /usr/share/info/emacs-24/message.info

The Message-ID header "contains a unique
identifier for this electronic mail message.
This is constructed by using the originator's
domain name for the domain component along with
a locally generated string". [1, p. 96]

Now, if something is unique, and you append
something to it, is there a hazard the result
won't be unique? Well, it depends, but I think
it should be safe.

Here is the code you need, from

    /usr/share/emacs/24.4/lisp/gnus/message.el.gz

starting at line 5544, with only one change (at
line 15, or "5559").

;; If you ever change this function, make sure the new version
;; cannot generate IDs that the old version could.
;; You might for example insert a "." somewhere (not next to another dot
;; or string boundary), or modify the "fsf" string.
(defun message-unique-id ()
  ;; Don't use microseconds from (current-time), they may be unsupported.
  ;; Instead we use this randomly inited counter.
  (setq message-unique-id-char
	(% (1+ (or message-unique-id-char
		   (logand (random most-positive-fixnum) (1- (lsh 1 20)))))
	   ;; (current-time) returns 16-bit ints,
	   ;; and 2^16*25 just fits into 4 digits i base 36.
	   (* 25 25)))
  (let ((tm (current-time)))
    (concat
     "yw."
     (if (or (eq system-type 'ms-dos)
	     ;; message-number-base36 doesn't handle bigints.
	     (floatp (user-uid)))
	 (let ((user (downcase (user-login-name))))
	   (while (string-match "[^a-z0-9_]" user)
	     (aset user (match-beginning 0) ?_))
	   user)
       (message-number-base36 (user-uid) -1))
     (message-number-base36 (+ (car tm)
			       (lsh (% message-unique-id-char 25) 16)) 4)
     (message-number-base36 (+ (nth 1 tm)
			       (lsh (/ message-unique-id-char 25) 16)) 4)
     ;; Append a given name, because while the generated ID is unique
     ;; to this newsreader, other newsreaders might otherwise generate
     ;; the same ID via another algorithm.
     ".fsf")))

[1] @book{internet-message,
  title      = {The Internet Message: Closing the Book with Electronic Mail},
  author     = {Marshall Rose},
  publisher  = {Prentice-Hall},
  year       = 1993,
  ISBN       = {0-13-092941-7},
}

--
underground experts united .... http://user.it.uu.se/~embe8573
Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic
                   - so far: 66 Blogomatic articles -

Re: Custom Message-ID

[Byung-Hee HWANG (황병희)]

>> Anyway i want a Message-ID as below: (example)
>>
>>        <yw.87jdfsfms7838.fsf@myhost.fqdn>
>
> [...]
> Here is the code you need, from
>
>     /usr/share/emacs/24.4/lisp/gnus/message.el.gz
>
> starting at line 5544, with only one change (at
> line 15, or "5559").
>
> ;; If you ever change this function, make sure the new version
> ;; cannot generate IDs that the old version could.
> ;; You might for example insert a "." somewhere (not next to another dot
> ;; or string boundary), or modify the "fsf" string.
> (defun message-unique-id ()
>   ;; Don't use microseconds from (current-time), they may be unsupported.
>   ;; Instead we use this randomly inited counter.
>   (setq message-unique-id-char
> 	(% (1+ (or message-unique-id-char
> 		   (logand (random most-positive-fixnum) (1- (lsh 1 20)))))
> 	   ;; (current-time) returns 16-bit ints,
> 	   ;; and 2^16*25 just fits into 4 digits i base 36.
> 	   (* 25 25)))
>   (let ((tm (current-time)))
>     (concat
>      "yw."
>      (if (or (eq system-type 'ms-dos)
> 	     ;; message-number-base36 doesn't handle bigints.
> 	     (floatp (user-uid)))
> 	 (let ((user (downcase (user-login-name))))
> 	   (while (string-match "[^a-z0-9_]" user)
> 	     (aset user (match-beginning 0) ?_))
> 	   user)
>        (message-number-base36 (user-uid) -1))
>      (message-number-base36 (+ (car tm)
> 			       (lsh (% message-unique-id-char 25) 16)) 4)
>      (message-number-base36 (+ (nth 1 tm)
> 			       (lsh (/ message-unique-id-char 25) 16)) 4)
>      ;; Append a given name, because while the generated ID is unique
>      ;; to this newsreader, other newsreaders might otherwise generate
>      ;; the same ID via another algorithm.
>      ".fsf")))

Before i was struggling for finding it about 15 hours. Anyway now i got
it, solved it. Thanks Emanuel^^ and you are elisp expert, it is true;;

Sincerely,

-- 
^고맙습니다 감사합니다_^))//

Re: Custom Message-ID

[Emanuel Berg]

Byung-Hee HWANG "(황병희)" wrote:

> Before i was struggling for finding it about
> 15 hours. Anyway now i got it, solved it.
> Thanks Emanuel^^ and you are elisp expert, it
> is true;;

Now let's think about this in all
clear-headedness possible to upbring.

In theory, there are no Elisp experts.
There are only Lisp (or LISP) experts!

In practice, I suppose the most experienced
Emacs developers, e.g. [names removed by the
anti-namedropping filter], are likewise Elisp
and Lisp experts.

-- 
underground experts united .... http://user.it.uu.se/~embe8573
Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic
                   - so far: 66 Blogomatic articles -                   

Re: Custom Message-ID

[Byung-Hee HWANG (황병희)]

Emanuel Berg <embe8573@student.uu.se> 께서 쓰시길,
 《記事 全文 <yu.86twemvtz2.fsf@student.uu.se> 에서》:

> Byung-Hee HWANG "(황병희)" wrote:
>
>> Before i was struggling for finding it about
>> 15 hours. Anyway now i got it, solved it.
>> Thanks Emanuel^^ and you are elisp expert, it
>> is true;;
>
> Now let's think about this in all
> clear-headedness possible to upbring.
>
> In theory, there are no Elisp experts.
> There are only Lisp (or LISP) experts!
>
> In practice, I suppose the most experienced
> Emacs developers, e.g. [names removed by the
> anti-namedropping filter], are likewise Elisp
> and Lisp experts.

Very detailed. To non-expert like me, it is same so so both lisp and
elisp ^^;;

Thanks!

-- 
^고맙습니다 감사합니다_^))//