Re: Custom Message-ID

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

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

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