From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/87241 Path: news.gmane.org!.POSTED!not-for-mail From: "Byung-Hee HWANG =?utf-8?B?KO2Zqeuzke2drCk=?=" Newsgroups: gmane.emacs.gnus.general Subject: Re: Custom Message-ID Date: Mon, 15 Aug 2016 23:31:17 +0900 Organization: =?utf-8?B?6YeR6Zm1ICjmt7XmupDsnZgg66eI7J2MKQ==?= Message-ID: References: <8737m78ri3.fsf@alex.chromebook> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: blaine.gmane.org 1471271522 9795 195.159.176.226 (15 Aug 2016 14:32:02 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 15 Aug 2016 14:32:02 +0000 (UTC) User-Agent: Gnus/5.130016 (Ma Gnus v0.16) Emacs/23.3 (gnu/linux) To: ding@gnus.org Original-X-From: ding-owner+M35461@lists.math.uh.edu Mon Aug 15 16:31:57 2016 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from lists1.math.uh.edu ([129.7.128.208]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bZIvk-0002In-BQ for ding-account@gmane.org; Mon, 15 Aug 2016 16:31:56 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.86_2) (envelope-from ) id 1bZIvR-0008AL-B6; Mon, 15 Aug 2016 09:31:37 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by lists1.math.uh.edu with esmtps (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256) (Exim 4.86_2) (envelope-from ) id 1bZIvP-00089s-6y for ding@lists.math.uh.edu; Mon, 15 Aug 2016 09:31:35 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1.2:DHE-RSA-AES128-SHA:128) (Exim 4.86_2) (envelope-from ) id 1bZIvN-0005wD-Pq for ding@lists.math.uh.edu; Mon, 15 Aug 2016 09:31:35 -0500 Original-Received: from mail-pf0-f176.google.com ([209.85.192.176]) by quimby.gnus.org with esmtps (TLS1.2:RSA_AES_128_CBC_SHA1:128) (Exim 4.80) (envelope-from ) id 1bZIvL-0000Pp-VR for ding@gnus.org; Mon, 15 Aug 2016 16:31:32 +0200 Original-Received: by mail-pf0-f176.google.com with SMTP id x72so17449384pfd.2 for ; Mon, 15 Aug 2016 07:31:31 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=doraji.xyz; s=google-2048-bit; h=from:to:subject:organization:references:date:in-reply-to:message-id :user-agent:mime-version:content-transfer-encoding; bh=omOFRfoq/6Ca3R39XC32hOnHVhzB1ig3+lpCj6+AzOU=; b=gHxXauMyHq+ywSnR7/lJZF42oC6RxBb2x/IMUd+DuePuuR3GLYX2Y+dmlEoniWZuBN Vu9xFj7ZH6PhpnRT2DGCsrC1OuE9FLLtCWlTyBrEybwzNcb4dHej94hsMTn5uDwTZXup 7F/dV9a/PHnBd9xBd8iPRSOV28aZ8YZHkVUxrE87ppr9CPfREyB9P+cPq7LjR7XKOE5g C+oPZD3+CesewcTvHclxIYNKTrqZ7gftG8WNdB6aCBXDqlwkR2vDwa2xLD72qAj5LWxA kDf8DlI2lUoXfSsSe0RxxlXI61TpeFAu+lz6rZWfTwcquOtaROTYxa8rCnzDdVEF3m70 Kbiw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:from:to:subject:organization:references:date :in-reply-to:message-id:user-agent:mime-version :content-transfer-encoding; bh=omOFRfoq/6Ca3R39XC32hOnHVhzB1ig3+lpCj6+AzOU=; b=V2sTLT8S3KPN7CiqdZZY9u2T5leltVHgOBq2RWw83VxQEDhxRfuSBIXHEe6RqhBu7p EZ+l1gPkpkiiJVOpXqzOynsXTzWgkNUYW9XwQHyYg+mX6vg5jleJ8N3upXQvwC+Sf+ID tk+EoLtW0utXgZtlq8+XpyvRQ6k/ZA0lw05QqE+t0kqQnFXYeI1Bw5rTLgPFXHGsN5CY cCvWKtKJSpYGZLZO2FPISSec3Eq2XAzn92WkoeokLSwgM6Zlh8lf8xTJGeuwn0S9794L l7yIBnzhbT0qEchqzwZNC4iHThjfnOJlWwoIArXMdUjZQhynSjP5wNvLTOSChR69GqJX cjMA== X-Gm-Message-State: AEkoouv2jakBTS2rf5ytdmHzJ/ez13VLsysxdTk2AmF4UVbV0Cc2a2fK7JwmjGLtnktdjg== X-Received: by 10.98.11.86 with SMTP id t83mr54412948pfi.51.1471271485051; Mon, 15 Aug 2016 07:31:25 -0700 (PDT) Original-Received: from alex.chromebook ([106.241.79.72]) by smtp.gmail.com with ESMTPSA id v124sm32103852pfb.14.2016.08.15.07.31.22 for (version=TLS1 cipher=AES128-SHA bits=128/128); Mon, 15 Aug 2016 07:31:24 -0700 (PDT) X-Google-Original-From: soyeomul@yw.doraji.xyz (Byung-Hee HWANG =?utf-8?B?KO2Zqeuzke2drCk=?=) Original-Received: by alex.chromebook (sSMTP sendmail emulation); Mon, 15 Aug 2016 23:31:18 +0900 X-Thanks-HS: =?utf-8?B?XuyynO2VmOywveyDneydhCDri6Qg7IK066as7Iuc66Ck64qU?= =?utf-8?B?IOuniOydjF9eKSkvLw==?= X-Thanks-BS: =?utf-8?B?Xl7sppDqsbDsmrTluIPlvrflpKnkuIte67O0656M7LCs5Zyw?= =?utf-8?B?5LiK5aSp5ZyL5bu66KitX14pKS8v?= X-Thanks-Absolete-Coding-System: UTF-8 X-Operating-System: =?utf-8?B?44CKZGluZ+OAiw==?= -- The Gnus X-Gnus-Location: Seoul, South Korea =?utf-8?B?KOuMgO2VnOuvvOq1rSwg5aSn6Z+T?= =?utf-8?B?5rCR5ZyLKQ==?= X-Gnus-Local-TimeZone: (UTC+09:00) Korea Standard Time, Seoul X-Gnus-Github: https://github.com/soyeomul/Gnus In-Reply-To: (Emanuel Berg's message of "Mon, 15 Aug 2016 15:59:13 +0200") List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:87241 Archived-At: >> Anyway i want a Message-ID as below: (example) >> >> > > [...] > 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, --=20 ^=EA=B3=A0=EB=A7=99=EC=8A=B5=EB=8B=88=EB=8B=A4 =EA=B0=90=EC=82=AC=ED=95=A9= =EB=8B=88=EB=8B=A4_^))//